Word Wasserzeichen per VB.NET einfügen für alle Seiten

  • VB.NET

    Word Wasserzeichen per VB.NET einfügen für alle Seiten

    Hallo,
    in einem VB.Net Programm wird eine Word-Datei erzeugt. Nun soll noch (optional) auf alle Seiten ein Wasserzeichen gedruckt werden.
    Mit folgendem Code kommt es nur auf die 1. Seite.
    Kann mir jemand auf die Sprünge helfen?

    Gruß Bernd

    (habe das schon mal in ein anderes Office-Forum gepostet, da kam leider nichts, sorry)

    VB.NET-Quellcode

    1. Imports Microsoft.Office.Interop.Word
    2. Imports Microsoft.Office.Interop
    3. Imports Microsoft.Office.Core
    4. Imports System.Text
    5. Imports System.IO
    6. ...
    7. ...
    8. Private Sub AddWatermarkToDocument(ByVal sText As String, ByVal fTextSize As Single)
    9. Dim logoWatermark As Microsoft.Office.Interop.Word.Shape = Nothing
    11. Try
    12. For Each section As Microsoft.Office.Interop.Word.Section In WrdDoc.Sections
    13. For Each hdr As Microsoft.Office.Interop.Word.HeaderFooter In section.Headers
    14. If hdr.Exists Then
    15. hdr.Range.[Select]()
    16. Dim shHeaders As Microsoft.Office.Interop.Word.Shapes = hdr.Shapes
    17. '>>>Dim headerApp As Microsoft.Office.Interop.Word.Application = WrdDoc.Sections(1).Headers(Microsoft.Office.Interop.Word.WdHeaderFooterIndex.wdHeaderFooterEvenPages).Application
    18. Dim headerApp As Microsoft.Office.Interop.Word.Application = WrdDoc.Sections(1).Headers(Microsoft.Office.Interop.Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Application
    19. logoWatermark = headerApp.ActiveDocument.Shapes.AddTextEffect(Microsoft.Office.Core.MsoPresetTextEffect.msoTextEffect1, sText, "Arial", 60, Microsoft.Office.Core.MsoTriState.msoTrue, Microsoft.Office.Core.MsoTriState.msoFalse, 0, 0, Type.Missing)
    20. 'logoWatermark.[Select](Type.Missing)
    21. logoWatermark.Fill.Visible = Microsoft.Office.Core.MsoTriState.msoTrue
    22. logoWatermark.Line.Visible = Microsoft.Office.Core.MsoTriState.msoFalse
    23. logoWatermark.Fill.Solid()
    24. logoWatermark.Fill.BackColor.RGB = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Transparent)
    25. logoWatermark.Fill.Visible = Microsoft.Office.Core.MsoTriState.msoFalse
    26. logoWatermark.Fill.Transparency = 0F
    27. logoWatermark.Line.Visible = Microsoft.Office.Core.MsoTriState.msoTrue
    28. logoWatermark.Line.ForeColor.RGB = CType(Microsoft.Office.Interop.Word.WdColor.wdColorRed, Int32)
    29. logoWatermark.Top = CSng(300)
    30. logoWatermark.Left = CSng(50)
    31. logoWatermark.Rotation = CSng(-45)
    32. End If
    33. Next
    34. Next
    36. Catch ex As Exception
    37. Throw New Exception(ex.Message)
    38. End Try
    39. End Sub

Facebook
Telefonspende