Microsoft Office Forums - View Single Post - [Solved] Excluding specific signs when transforming texto into footnotes

macropod · 12-09-2019, 09:49 PM

You might replace:

Code:

    If .Characters.Last Like "[" & vbCr & vbTab & Chr(11) & Chr(160) & " ]" Then
      .Characters.Last.Font.Reset
      .End = .End - 1
    End If

with:

Code:

    .Characters.First.Text = vbNullString
    .Characters.First.Text = vbNullString
    .Characters.Last.Text = vbNullString
    .Characters.Last.Text = vbNullString