Insert text at a bookmark via VBA

[aellington287]

I am somewhat new to VBA, I have created a userform that will open a word document and update several lines of text within the document before saving and closing it. I know that it is possible to insert text at a bookmark, but I do not currently have the understanding to do this. My code is as follows:

Private Sub Generate_Click()

Dim wdapp As Object
Set wdapp = CreateObject("Word.Application")
    wdapp.Visible = True
    wdapp.ChangeFileOpenDirectory "V:\PI\QI\MDB\"
    wdapp.documents.Open Filename:="DATA-  -PSS.docx"
wdapp.ActiveDocument.Close savechanges:=True
    wdapp.Quit
    Set wdapp = Nothing

Unload Me
End Sub

What line of code would I use and where would I put it if I were wanting to insert "I love excel and VBA" followed by the contents of cell A1, at the bookmark labeled "txtbx1"? Any help would be appreciated. Thanks!

 

[Sarahmueller]

Excuse me, I have overseen a typo!
Your code works perfectly fine!

But your code currently also copies the names of the bookmarks (Start and End) into the new document.

Is there a way to prevent this?

i have tried using Range.End + 1 / Range.End - 1, but this does not work correctly.

Thank you very much Norie, I really appreciate your help!

Have a great day and thanks in advance,

Sarah

 

[Norie]

Do you mean 2 new bookmarks named 'Start' and 'End' are being created?

 

[Sarahmueller]

After the macro has copied the text from the old document into the new document, the text inserted into the new document looks like this:

Start - Text that should be inserted - End


So basically the names of the bookmarks that define the range in the old document are also pasted into the new document.

Thank you in advance,

Sarah

 

[Norie]

Strange, I'll take a look at that later and post back.

 

[Sarahmueller]

Thank you very much!!

Because the bookmarks are the headings of different chapters in the new document, I am also trying to insert the text below the bookmark in the new document.

E.g.:
"BookmarkNewDoc"
Inserted text


This would be very helpful, because there would be no need for fixing the layout/structure of the new document after inserting the new text.

Is this possible with vba?

Thank you and best regards,

Sarah