D
Drake
Hi - I have the following script that isn't work right. It is supposed to
go to the bookmark, determine how many lines are left on the page, and enter
a paragraph symbol for the number of lines that are the difference between
where it is and the end of the page. Any thoughts?
-----------------
Sub signature()
Selection.GoTo What:=wdGoToBookmark, name:="otherinfo"
numoflines = Selection.Information(wdFirstCharacterLineNumber)
For lngindex = 1 To CInt(43 - numoflines)
Selection.TypeParagraph
Next
Selection.EndKey Unit:=wdStory
Selection.Paste
End Sub
go to the bookmark, determine how many lines are left on the page, and enter
a paragraph symbol for the number of lines that are the difference between
where it is and the end of the page. Any thoughts?
-----------------
Sub signature()
Selection.GoTo What:=wdGoToBookmark, name:="otherinfo"
numoflines = Selection.Information(wdFirstCharacterLineNumber)
For lngindex = 1 To CInt(43 - numoflines)
Selection.TypeParagraph
Next
Selection.EndKey Unit:=wdStory
Selection.Paste
End Sub