Textmarken automatisch setzen

  • Word

    Textmarken automatisch setzen

    Hallo, ich habe ein Word Dokument, dass wie folgt aufgebaut ist:

    (Hier ein Ausschnitte/Beispiel)



    R 13 Text Text Text

    Text Text ..................... Text

    R 13a Text

    Text Text ..................... Text

    Text Text ..................... Text

    Text Text ..................... Text

    R 14 Tex

    Text Text ..................... Text



    Nun benötige ich Textmarken, welche vor jedem fetten R positioniert sein sollen und die Nummer hinter dem jeweiligen R tragen.

    Die Textmarken sollen dann z.b. "t13" "t13a" "t14" lauten.

    Mittlerweile habe ich folgenden Code, welcher aber nicht bei jedem Dokument funktionieren möchte, obwohl alle gleich formatiert sind.

    Quellcode

    1. Sub TextmarkenSetzen()
    3. Dim rngCurrent As Word.Range
    4. Dim objWord As Word.Range
    6. Set rngCurrent = ActiveDocument.Range
    8. With rngCurrent
    9. With .Find
    10. .ClearFormatting
    11. .Forward = True
    12. .Font.Bold = True
    13. .Text = "R"
    14. End With
    15. Call .Find.Execute
    16. Do While .Find.Found
    18. Call .Expand(WdUnits.wdSentence)
    19. If .Words.Count >= 2 Then
    20. Set objWord = .Words(2)
    21. Call objWord.MoveEndWhile(" ", wdBackward)
    22. Call .Collapse
    23. Call rngCurrent.Document.Bookmarks.Add("t" & objWord.Text, rngCurrent)
    24. End If
    26. Call .Move(WdUnits.wdSentence)
    27. Call .Find.Execute
    28. Loop
    30. End With
    32. End Sub


    Es tritt der Fehler "Laufzeitfehler '5828': Ungültiger Textmarkenname" auf.
    Und die Zeile 23 wird gelb markiert.

    Quellcode

    1. Call rngCurrent.Document.Bookmarks.Add("t" & objWord.Text, rngCurrent)


    Könnte mir da jemand behilflich sein ?


    Vielen Dank und beste Grüße!

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „max1605“ ()