Populate Word bookmark into excel

[muhdass]

Hi Guys,

ANy of you have codes that can extract bookmark form fields from words and populate it in excel?

Appreciate your help!

THanks
Asir

 

[Worf]

Hi

Sub GetBookmarks()
Dim wapp, bm As Word.Bookmark, r As Range
On Error Resume Next
Set wapp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
  Err.Clear
  Set wapp = CreateObject("Word.Application")
End If
On Error GoTo 0
Set r = Range("k10")
For Each bm In wapp.ActiveDocument.Bookmarks
    r = bm.Range.Text
    Set r = r.Offset(1)
Next
End Sub