Add braces around strikethrough text

docspecial · #1 06-07-2023, 04:49 PM

I found a macro to add brackets around underlined text and remove the underline. Now I need to apply braces around strings of strikethrough text.

The code below works for the underlined text, but I still need to address the strikethrough text.

Sub Tag_Under_Line()
Selection.ClearFormatting
Selection.HomeKey wdStory, wdMove
Selection.Find.Font.Underline = wdUnderlineSingle

Selection.Find.Execute ""
Do Until Selection.Find.Found = False
Selection.Font.Underline = wdUnderlineNone
Selection.InsertBefore "["
Selection.InsertAfter "]"
Selection.MoveRight
Selection.Find.Execute ""
Loop
End Sub

Appreciate any help!

Guessed · #2 06-07-2023, 05:41 PM

Try this code

Code:

Sub Tag_Strikethroughs()
  Dim aRng As Range
  Set aRng = ActiveDocument.Range
  With aRng.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Font.StrikeThrough = True
    .Text = ""
    Do While .Execute = True
      aRng.InsertBefore "{"
      aRng.InsertAfter "}"
      aRng.Characters.Last.Font.StrikeThrough = False
      aRng.Start = aRng.End
      aRng.End = ActiveDocument.Range.End
    Loop
  End With
End Sub

docspecial · #3 06-07-2023, 06:59 PM

This worked perfectly!

So now that I have two working macros for this task, is there a way they can run together as one code or is it best to run the two macros separately?

Many, many thanks!

Guessed · #4 06-07-2023, 07:33 PM

You can either paste them together or create a third macro for having options to run either or both together.

Code:

Sub RunEmBoth()
  Tag_Strikethroughs
  Tag_Under_Line
End Sub

gmaxey · #5 06-09-2023, 10:12 AM

Code:

Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oRng As Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Font.StrikeThrough = True
    While .Execute
      oRng.InsertBefore "{"
      oRng.InsertAfter "}"
      oRng.Collapse wdCollapseEnd
      If oRng.End = ActiveDocument.Range.End Then Exit Do
    Wend
  End With
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Font.Underline = wdUnderlineWords
    Do While .Execute
      oRng.InsertBefore "["
      oRng.Collapse wdCollapseEnd
      oRng.Select
      oRng.Underline = wdUnderlineNone
      oRng.InsertAfter "]"
      If oRng.End = ActiveDocument.Range.End Then Exit Do
    Loop
  End With
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Font.Underline = wdUnderlineWords
    Do While .Execute
      oRng.Underline = wdUnderlineNone
      oRng.Collapse wdCollapseEnd
      If oRng.End = ActiveDocument.Range.End Then Exit Do
    Loop
  End With
lbl_Exit:
  Exit Sub
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Hyperlink text automatically generated too long and has braces { }	greenman1889	Word	2	11-20-2019 03:57 PM
Superscript directly above strikethrough	bowlfreak_not	Word	1	07-04-2018 03:36 PM
Edit an existing word document - red strikethrough when deleting	siam	Word	1	11-02-2017 04:30 AM
Spaces inside Fieldcode curly braces	MANOHAR	Word VBA	16	01-10-2017 11:48 AM
Replacing curly braces in a wildcard F&R	Ulodesk	Word	9	02-21-2014 07:28 AM