MS Word 2007 - values assignment to bookmarks

[HaiderAliKhan]

Hello All,I am a newbie in MS-Word and need to find a way to access a given number of pre-defined bookmarks in a word-2007 document and assign values to their text property.Eg.How we access ranges in MS-Excel,Thisworkbook.sheets("sheet1").range("A1:C1").value = Array("Name","Age","Gender")So, what i actually need is my range in word would be bookmark1,bookmark2 etc. that i want to assign values to.Can we do it in a single statement as in excel like...Wrddoc.range(worddoc.bookmarks("bm1").range,worddoc.bookmarks("bm2").range).value = array("variable1","variable2")

 

[Macropod]

Word doesn't work that way. You need to loop through your array, populating each bookmark's range individually, using code like:

Sub Demo()
Application.ScreenUpdating = False
Dim i As Long, ArrData, ArrBkMks
ArrData = Array("Name", "Age", "Gender")
ArrBkMks = Array("Bm1", "Bm2", "Bm3")
For i = 0 To UBound(ArrData)
  Call UpdateBookmark(ArrData(i), ArrBkMks(i))
Next
Application.ScreenUpdating = True
End Sub

Sub UpdateBookmark(StrBkMk As String, StrTxt As String)
Dim BkMkRng As Range
With ActiveDocument
  If .Bookmarks.Exists(StrBkMk) Then
    Set BkMkRng = .Bookmarks(StrBkMk).Range
    BkMkRng.Text = StrTxt
    .Bookmarks.Add StrBkMk, BkMkRng
  End If
End With
Set BkMkRng = Nothing
End Sub