View Single Post
 
Old 07-18-2020, 09:22 AM
Nippy Nippy is offline Windows 10 Office 2016
Novice
 
Join Date: Jul 2020
Posts: 3
Nippy is on a distinguished road
Default Word Macro - Rotation Issue with Textbox

[I am trying to write a macro to insert a custom watermark in my Word document.

The code works perfectly for the first two pages of the document but thereafter the the Textbox does not rotate to -45 as mentioned in the code

What am I doing wrong?

Code:
Sub CustomWatermark()

    Dim activeDoc As Document
    Dim rngDoc As Range
    Dim shpTextBox As Shape
    Dim lngPages As Long
    Dim i As Long
    Dim strWatermark As String
    
    
    Set activeDoc = ActiveDocument
    
    lngPages = activeDoc.Range.Information(wdNumberOfPagesInDocument)
    
    strWatermark = InputBox("Enter Watermark")
    
    With activeDoc
    
        For i = 1 To lngPages

            Set rngDoc = .GoTo(What:=wdGoToPage, Name:=i)
            rngDoc.Collapse wdCollapseStart
        
            Set shpTextBox = .Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
                                            Left:=InchesToPoints(1), _
                                            Top:=InchesToPoints(4), _
                                            Width:=InchesToPoints(6), _
                                            Height:=InchesToPoints(2), _
                                            Anchor:=rngDoc)
            With shpTextBox
                .Line.Visible = msoFalse
                .Rotation = -45
                .WrapFormat.Type = wdWrapBehind
                .TextFrame.HorizontalAnchor = msoAnchorCenter
                .TextFrame.VerticalAnchor = msoAnchorMiddle
                                                
                With .TextFrame.TextRange
                    .Font.AllCaps = True
                    .Font.Size = "60"
                    .Font.ColorIndex = wdGray25
                    .ParagraphFormat.Alignment = wdAlignParagraphCenter
                    .Text = strWatermark
                    
                End With
            End With
        Next
    End With
    

End Sub
Reply With Quote