Microsoft Office Forums - View Single Post

macropod · 12-05-2014, 01:56 AM

The code is essentially the same:

Code:

Dim Rng As Range
With ActiveDocument
  Set Rng = .Range
  With Rng
    .Collapse direction:=wdCollapseEnd
    .InsertBreak Type:=wdPageBreak
    .Collapse direction:=wdCollapseEnd
  End With
  .Shapes.AddTextbox Orientation:=msoTextOrientationHorizontal, _
    Left:=74, Top:=92, Width:=282, Height:=24, Anchor:=Rng
End With

PS: When posting code, please use the code tags, indicated by the # button on the posting menu.