title image


Smiley Re: Word 2003 - Textmarken des Dokuments drucken
Hallo, Isabel,

ich habe das makro von Claudia (s.u.) mal etwas abgeändert. Jetzt schreibt es (hoffentlich) alle Textmarken an das Ende des Dokuments.



Gruß

Hermann









Public Sub TextmarkenSammeln()

Selection.EndKey Unit:=wdStory

Selection.InsertAfter vbCr

x = ActiveDocument.Bookmarks.Count

If x >= 1 Then

ReDim aMarks(ActiveDocument.Bookmarks.Count - 1)

For Each aBookmark In ActiveDocument.Bookmarks

a = aBookmark.Name

Selection.InsertAfter a & vbCr

Selection.MoveRight Unit:=wdCharacter

Next aBookmark

End If

End Sub





Code eingefügt mit Syntaxhighlighter 4.0




Gruß, Hermann

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: