C
CJ
How can I change how the footnotes appear at the bottom of the page in a
document that already exists with footnotes in it?
Issues are: (1) Sometimes there is one space, (2) sometimes there is a tab
before the footnote text -- both of which I think I've handled in the code
below, and (3) in rare occassions, there is no space before the footnote text
-- and I have no idea what to do in that case!
I want to programatically edit all footnotes to appear with two spaces
before the footnote text.
Can someone please take a look and advise me (1) have I dealt with the first
two issues properly? and (2) how to properly handle issue 3? I would be
ever so grateful for help!
Here is code:
Sub FixFootnotes()
Dim s As Integer
For s = 1 To ActiveDocument.Footnotes.Count
ActiveDocument.Footnotes(s).Range.Select
With Selection
.Collapse Direction:=wdCollapseStart
.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
If Selection.Text = Chr(32) Then .TypeText Text:=" "
If Selection.Text = vbTab Then .TypeText Text:=" "
End With
Next
End Sub
document that already exists with footnotes in it?
Issues are: (1) Sometimes there is one space, (2) sometimes there is a tab
before the footnote text -- both of which I think I've handled in the code
below, and (3) in rare occassions, there is no space before the footnote text
-- and I have no idea what to do in that case!
I want to programatically edit all footnotes to appear with two spaces
before the footnote text.
Can someone please take a look and advise me (1) have I dealt with the first
two issues properly? and (2) how to properly handle issue 3? I would be
ever so grateful for help!
Here is code:
Sub FixFootnotes()
Dim s As Integer
For s = 1 To ActiveDocument.Footnotes.Count
ActiveDocument.Footnotes(s).Range.Select
With Selection
.Collapse Direction:=wdCollapseStart
.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
If Selection.Text = Chr(32) Then .TypeText Text:=" "
If Selection.Text = vbTab Then .TypeText Text:=" "
End With
Next
End Sub