The error is still there. But…
Removed 'With' 'End With' seems to have cured this
This runs ok down to .Anchor.Cut where I now get the error:
Run-time error '424' object required
Any thoughts? Thanks
Current running code:
Code:
Sub Demo2()
'
' Demo2 Macro
'
'
Dim Shp As Shape
Selection.Copy
Set Shp = ActiveDocument.Shapes.AddCallout(Type:=msoCalloutOne, _
Left:=100, Top:=40, Width:=150, Height:=75)
Shp.TextFrame.TextRange.PasteAndFormat (wdFormatOriginalFormatting)
Selection.Style = "Normal"
With Shp
.Anchor.Cut
Selection.Paste
.WrapFormat.Type = wdWrapSquare
.RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
.Top = 0
End With
Rng.Select
End Sub