Tag Formatted Text in Word using VBA
Here is a Word VBA snippet for searching text in a particular format, for example, underlined text and Tag them
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 "< /UL >"
Selection.MoveRight
Selection.Find.Execute ""
End Sub
Word Document with Formatting (Underline)
(Tagged Word Document after Macro Execution)
No comments:
Post a Comment