This is a multi-part message in MIME format.
I want to keep two lines blank in the starting and end of each page in a
Ms Word document and the last two lines of the page should be kept blank
after a comma(,) or a fullstop(.). If a blank line already exits, then
don't enter a new blank line.
I'd be truly greatful if somebody could help me out. I've written a code
but it only puts 2 blank lines at the start and end but if the document
has lines in between then it doesn't work as I want.
The code goes like this:
On Error GoTo dip
'To get the current page...
Selection.Fields.Add Range:=3DSelection.Range, Type:=3DwdFieldPage
Selection.MoveLeft Unit:=3DwdWord, count:=3D1, Extend:=3DwdExtend
d =3D Selection.Fields(Selection.Fields.count).Result
Dim co As Integer
Dim total As Integer
co =3D 56
' wdinfo =3D Word.WdInformation.wdNumberOfPagesInDocument
msg =3D "Enter Total Number of Pages "
total =3D InputBox(msg)
Selection.MoveDown Unit:=3DwdLine, count:=3D52
If d =3D total Then
Do Until d =3D total
Selection.MoveDown Unit:=3DwdLine, count:=3Dco - 2
d =3D d + 1