Word 2003 vandmærke
Jeg har brug for en stump kode, som indsætter et vandmærke på alle siderne i et dokument. Det skal nævnes at koden skal virke med dokuemter, som indeholder "special første side".Jeg har tilføjet den kode jeg har lavet ind til videre. TextBox'en som er sat på virker! Men TextEffect kommer alle på side 1.
Jeg håber i kan hjælpe mig.
Thomas
For Each oSection In ActiveDocument.Sections
For Each oHeader In oSection.Headers
If oHeader.Exists And Not oHeader.LinkToPrevious Then
' If True Then
oHeader.Range.text = oSection.index & " " & oHeader.index
Set kopiBox = oHeader.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, 30, 200, 200, oHeader.Range)
kopiBox.TextFrame.TextRange.text = "Tester " & oSection.index & " " & oHeader.index
Set kopiBox = oHeader.Shapes.AddTextEffect(msoTextEffect1, oSection.index & " " & oHeader.index, _
"Arial Black", 80#, msoFalse, msoFalse, 130# + offset, 350#, oHeader.Range.Paragraphs(1).Range)
kopiBox.IncrementRotation -30
If GetSetting("LindCad Makroer", "Print", "UdprintGraa", "0") = "1" Then
kopiBox.Fill.Visible = msoTrue
kopiBox.Fill.Solid
kopiBox.Fill.ForeColor.RGB = RGB(192, 192, 192)
End If
kopiBox.Line.Weight = 1.5
kopiBox.Line.DashStyle = msoLineRoundDot
kopiBox.Line.style = msoLineSingle
kopiBox.Line.Visible = msoTrue
kopiBox.ZOrder msoSendBehindText
kopiBox.Name = "CBIT_KOPI_1_" + CStr(oSection.index) & "_" & CStr(oHeader.index)
End If
Next
Next