Excel VBA - Fill Multiple Word Bookmarks with one cell value

[Storm8585]

Hi,
I have a Word document with lots of references to a Project No. (and others). I use VBA to auto-fill these in from a spreadsheet. Because Word makes you give each bookmark a unique name I have lots of bookmarks relating to the same cell value in my worksheet. This makes my code long an inefficient. Currently I am using the method

With objWord
    .Bookmarks("PNo1").Range.Text = Range("AA30").Value
    .Bookmarks("PNo2").Range.Text = Range("AA30").Value
    .Bookmarks("PNo3").Range.Text = Range("AA30").Value
End With

and so on.... Is there a way I can say something like .Bookmarks("PNo1","PNo2","PNo3") etc??

Thanks in advance

 

[Macropod]

Unless you have a situation in which you might need to give some of the bookmarks a different value, you could use just one bookmark and, in the Word document, have as many pre-existing cross-references to it as you need, scattered throughout the body of the document. Then all you need is code like:

Dim BmkRng As Object
Const BmkNm As String = "SomeBookmarkName"
With objWord
  If .Bookmarks.Exists(BmkNm) Then
    Set BmkRng = .Bookmarks(BmkNm).Range
    BmkRng.Text = Range("AA30").Value
    .Bookmarks.Add BmkNm, BmkRng
  Else
    MsgBox "Bookmark: " & BmkNm & " not found."
  End If
  .Fields.Update
End With
Set BmkRng = Nothing

 

[Storm8585]

Great many thanks - that will teach me for trying to do everything with Excel...