View Single Post
  #3   Report Post  
Jean-Guy Marcil
 
Posts: n/a
Default

CMK was telling us:
CMK nous racontait que :

I have created 30 or so documents with at least 75 bookmarks in each.
Is there any way I can export a bookmark list (TXT) from each
document? I need to compare bookmarks between documents and I'm
hoping that I don't have to type them all out.


You could try a little macro like this one:

'_______________________________________
Sub TypeOutBookmarkList()

Dim MyBkmk As Bookmark
Dim MyList As String
Dim DocList As Document
Dim CurDocName As String

With ActiveDocument
If .Bookmarks.Count = 0 Then
MsgBox "There are no bookmarks in this document."
Exit Sub
End If

For Each MyBkmk In .Bookmarks
MyList = MyList & MyBkmk.Name & Chr(13)
Next

CurDocName = .Name
End With

Set DocList = Documents.Add

With DocList
.Range.Text = "Here is the list of bookmarks in " _
& CurDocName & ":" & Chr(13) & Chr(13) & MyList
.PrintOut
.Close wdDoNotSaveChanges
End With
End Sub
'_______________________________________

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
ISTOO
Word MVP site:
http://www.word.mvps.org