lynnnow
12-09-2022, 08:55 AM
Hi,
I have a find and replace macro that looks for specific symbols to format sentences as italics, bold, bold+italics, etc. This macro is executed from a button. I'm trying to upgrade the functionality to an AutoFormatAsYouType kind of function but with my custom symbols as it is used to create an HTML table with the specified formatting.
Here is a sample for the italics formatting.
Options.DefaultHighlightColorIndex = wdBrightGreen
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Replacement.Highlight = True
With .Replacement.Font
.Bold = False
.Italic = True
End With
.Text = "^^*|"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.MatchWildcards = True
End With
The Convert to HTML function uses a sequence of Replace functions looking for these custom symbols. Any help in pointing me in the right direction would help.
Thanks in advance.
Lynnnow
I have a find and replace macro that looks for specific symbols to format sentences as italics, bold, bold+italics, etc. This macro is executed from a button. I'm trying to upgrade the functionality to an AutoFormatAsYouType kind of function but with my custom symbols as it is used to create an HTML table with the specified formatting.
Here is a sample for the italics formatting.
Options.DefaultHighlightColorIndex = wdBrightGreen
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Replacement.Highlight = True
With .Replacement.Font
.Bold = False
.Italic = True
End With
.Text = "^^*|"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.MatchWildcards = True
End With
The Convert to HTML function uses a sequence of Replace functions looking for these custom symbols. Any help in pointing me in the right direction would help.
Thanks in advance.
Lynnnow