Open header to insert text into bookmark

macropod · #2 07-12-2012, 02:50 PM

Hi Christine,

Try:
Call UpdateBookmark("BMQuoteNumberHeader", txtQuoteNumber.Text)
with:

Code:

Sub UpdateBookmark(BmkNm As String, NewTxt As String)
Dim BmkRng As Range
With ActiveDocument
  If .Bookmarks.Exists(BmkNm) Then
    Set BmkRng = .Bookmarks(BmkNm).Range
    BmkRng.Text = NewTxt
    .Bookmarks.Add BmkNm, BmkRng
  End If
End With
Set BmkRng = Nothing
End Sub

Note: There is no need for the GoTo, to explicitly access the header, or to select anything. Furthermore, unlike your code, if you change your mind about what should appear in the header, the content gets changed - your's just appends the new content.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Repeating Bookmark Text	BECKTHOMO	Word	1	03-27-2012 08:34 PM
Word 2003 - IncludeText Does Not Include Bookmark Text if in a Form Text Control	skarden	Word	1	12-12-2011 10:39 PM
Insert a header name in the text (body)	bal-007	Word	3	11-25-2011 01:08 PM
delete all bookmark text	hklein	Word VBA	4	08-10-2011 04:33 AM
VBA to insert Bookmark	rockwellsba	Word VBA	2	05-31-2011 01:07 AM