Word - Textbereich bei Bookmark formatieren

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von FormFollowsFunction.

    Word - Textbereich bei Bookmark formatieren

    Moin!

    ich nochmal.

    Es soll bei einem Bookmark der Text formatiert werden.

    Was ich habe ist eine alte Vorlage aus einer VBA-Programmierung.

    Visual Basic-Quellcode

    1. Public Sub BJ_BOOKMARK_FONT(BJ_BM As String, BJ_TXT As Variant, BJ_FETT As Variant, BJ_FARBE As Variant, BJ_SIZE As Long)
    2. If ActiveDocument.Bookmarks.Exists(BJ_BM) Then
    3. If IsNull(BJ_TXT) = False Then
    4. Selection.GoTo What:=wdGoToBookmark, Name:=BJ_BM
    5. With ActiveDocument.Bookmarks
    6. .DefaultSorting = wdSortByName
    7. .ShowHidden = False
    8. End With
    9. If BJ_SIZE > 1 Then
    10. Selection.Font.Size = BJ_SIZE
    11. End If
    12. Selection.Font.Bold = BJ_FETT
    13. Selection.Font.Color = BJ_FARBE
    14. Selection.TypeText BJ_TXT
    15. End If
    16. Else
    17. MsgBox "Die Textmarke [" & BJ_BM & "] fehlt"
    18. End If
    19. End Sub


    Meine Suche hat mich bisher zu diesem Code geführt:

    VB.NET-Quellcode

    1. _oDoc.Bookmarks.Item(BookmarkName).Range.Select()
    2. _oDoc.Bookmarks.Item(BookmarkName).Range.Font.Bold = True
    3. _oDoc.Bookmarks.Item(BookmarkName).Range.Font.ColorIndex = Word.WdColorIndex.wdDarkRed
    4. _oDoc.Bookmarks.Item(BookmarkName).Range.Text = Text


    Aber, wenn ich das ausführe, dann ist keine Formatierung zu erkennen.

    Weiß einer von Euch mehr zu diesem Thema´?

    Gruß Jan

Facebook
Telefonspende