Positionsmarken in .rtf Files

[Amateurprofi]

Zitat von mjustin:

Wo sollen die Positionsmarken denn verwendet werden, geht es um Makroprogrammierung für MS Word, um bei der Bearbeitung eines RTF Dokuments Marker setzen und dorthin springen zu können?

Also z.B. so etwas: https://docs.microsoft.com/de-de/off....bookmarks.add

Habe mich jetzt entschlossen Bookmarks zu verwenden.
Meine Befürchtung war, dass der Help Compiler damit Probleme haben könnte. Hat er nicht.
Danke für den Tipp.

Code:

Sub SetBookMark(ID As Long)
   Dim BMName As String, BM As Bookmark
   If (ID >= 0) And (ID <= 9) Then
      BMName = "BookMark" & ID
      For Each BM In ActiveDocument.Bookmarks
         If BM.Name = BMName Then
            BM.Delete
            Exit For
         End If
      Next
      ActiveDocument.Bookmarks.Add Name:=BMName, Range:=Selection.Range
   End If
End Sub

Code:

Sub GotoBookMark(ID As Long)
   Dim BMName As String, BM As Bookmark
   If (ID >= 0) And (ID <= 9) Then
      BMName = "BookMark" & ID
      For Each BM In ActiveDocument.Bookmarks
         If BM.Name = BMName Then
            BM.Select
            Exit Sub
         End If
      Next
   End If
End Sub

Code:

Sub DeleteBookMarks()
   Dim BM As Bookmark
   For Each BM In ActiveDocument.Bookmarks
      BM.Delete
   Next
End Sub