VBA Word Macro

macropod · #5 03-24-2025, 10:43 PM

Quote:

Originally Posted by gcp

Thanks Paul. I couldn't make that work as "Replace = nothing
where the Find format is specified as superscript" is beyond my abilities.
In any event, my aim is to learn to write VBA macros.

I tested it and it worked for me. Are your parentheses superscripted?

As a macro, the Find/Replace becomes:

Code:

Sub DemoA()
Application.ScreenUpdating = False
With ActiveDocument.Range.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Font.Superscript = True
  .Text = "\(*\)"
  .Replacement.Text = ""
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchWildcards = True
  .Execute Replace:=wdReplaceAll
End With
Application.ScreenUpdating = True
End Sub

or even:

Code:

Sub DemoB()
Application.ScreenUpdating = False
With ActiveDocument.Range.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Font.Superscript = True
  .Execute FindText:="\(*\)", ReplaceWith:="", MatchWildcards:=True, Format:=False, Forward:=True, Wrap:=wdFindContinue, Replace:=wdReplaceAll
End With
Application.ScreenUpdating = True
End Sub

Avoid generative AI VBA code - it's frequently bug-ridden. Even Word's macro recorder would have done better in this instance.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word Macro for removing parentheses around footnote numbers	LLLCa947	Word VBA	6	11-21-2024 01:44 AM
Convert superscript numbers to auto-footnote markers	ra_beale	Word VBA	4	09-05-2022 07:09 AM
How to remove extra space between footnote separator and 1st footnote. No para breaks present.	Swarup	Word	2	07-09-2022 07:42 PM
Macro to change font size of Footnote Reference in Footnote Text	TheBigBoss	Word VBA	5	06-10-2022 06:14 AM
Footnote reference numbers precede by superscript '(' and follow w/ superscript ')'	Swarup	Word	4	07-18-2019 05:51 PM