#1
|
|||
|
|||
Excluding specific signs when transforming texto into footnotes
Hi there!
I use the following macro, which was kindly constructed by macropod: Code:
Sub Demo() Application.ScreenUpdating = False Dim Rng As Range, FtNt As Footnote With ActiveDocument.Range With .Find .ClearFormatting .Replacement.ClearFormatting .Text = "\[\!*\!\]" .Replacement.Text = "" .Forward = True .Format = False .Wrap = wdFindStop .MatchWildcards = True .Execute End With Do While .Find.Found If .Characters.Last Like "[" & vbCr & vbTab & Chr(11) & Chr(160) & " ]" Then .Characters.Last.Font.Reset .End = .End - 1 End If Set Rng = .Duplicate .Collapse wdCollapseStart Set FtNt = .Footnotes.Add(.Duplicate) Rng.Start = FtNt.Reference.End FtNt.Range.FormattedText = Rng.FormattedText Rng.Delete If .End = ActiveDocument.Range.End Then Exit Sub .Collapse wdCollapseEnd .Find.Execute Loop End With Application.ScreenUpdating = True End Sub - In the body: [!This is x.!] - In the footnote: This is x. I guess I'd have to write make another line in the macro, but I don't have any idea of what I should write there. Somebody could help? Thank's! |
#2
|
||||
|
||||
You might replace:
Code:
If .Characters.Last Like "[" & vbCr & vbTab & Chr(11) & Chr(160) & " ]" Then .Characters.Last.Font.Reset .End = .End - 1 End If Code:
.Characters.First.Text = vbNullString .Characters.First.Text = vbNullString .Characters.Last.Text = vbNullString .Characters.Last.Text = vbNullString
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
Thank you very much!
|
Tags |
footnote, macro |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
How to change superscript footnotes into genuine Word footnotes | Knounte29 | Word VBA | 41 | 01-16-2020 04:48 PM |
creating manuscript w/footnotes from separate documents containing chapters with footnotes-word 2010 | Dottie | Publisher | 0 | 02-19-2017 03:18 PM |
mail group excluding | jimalton | Outlook | 0 | 06-10-2013 04:08 AM |
Excluding tables from Styles | coachpienaar | Word Tables | 4 | 10-10-2012 03:23 AM |
How can i erase these signs? | augustin87r | Word | 2 | 06-12-2010 09:22 AM |