Regular expressions for text with complex formatting

macropod · #1 04-12-2013, 07:33 PM

Your code has many inconsistencies in the way you have used the variables for the bold and italics. You should fix those.

Your 'Replase_New' sub could be simplified:

Code:

Sub Replase_New(FFText As String, FFName As String, FFBold As String, FFItalic As String, _
    RFFText As String, RFFName As String, RFFColor As WdColor, RFFBold As String, RFFItalic As String, _
    bFormat As Boolean, bCase As Boolean, bWholeWord As Boolean, bWildcards As Boolean)
    With ActiveDocument.Range.Find
        .ClearFormatting
        .Text = FFText
        With .Font
          If FFBold = "True" Then .Bold = True
          If FFBold = "False" Then .Bold = False
          If FFItalic = "True" Then .Italic = True
          If FFItalic = "False" Then .Italic = False
        End With
        With .Replacement
            .ClearFormatting
            .Text = RFFText
            With .Font
                .Color = RFFColor
                .Name = RFFName
                If RFFBold = "True" Then .Bold = True
                If RFFBold = "False" Then .Bold = False
                If RFFItalic = "True" Then .Italic = True
                If RFFItalic = "False" Then .Italic = False
            End With
        End With
        .Forward = True
        .Wrap = wdFindContinue
        .Format = bFormat
        .MatchCase = bCase
        .MatchWholeWord = bWholeWord
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = bWildcards
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Also, whenever you're using wildcards, you should specify both a Find string and (unless you want to delete the found text) a Replace string. For example:

Code:

Call Replase_New("*", "Cambria", "True", "True", "^&", "Clarendon Indologique", wdColorGreen, "True", "True", True, False, False, True)

You'll see that I've inserted '*' and '^&' for the Find and Replace expressions. Also, where you don't care about whether the Find and Replace strings are bold or italic, you can simply leave both empty or use something like "Null". That way, instead of having three lines for 'Call Replase_New(FinderArray_abr(count)' you could have one:

Code:

Call Replase_New(FinderArray_abr(count), "", "Null", "Null", ReplaseArray_abr(count), "Charter Capital", wdColorBlue, "False", "False", True, True, False, False)

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Regular Expressions: match words within quotes?	tinfanide	Word VBA	3	02-02-2013 10:07 PM
regular expressions for empty lines	eNGiNe	Word	1	01-21-2013 06:38 AM
Regular expressions: lower case after hyphen	SusanG	Word	2	06-06-2012 11:58 PM
Regular Expressions: [!0-9] does not work???	tinfanide	Excel Programming	4	05-30-2012 04:09 AM
Issue skipping characters by Regular Expressions in Word	pochtara	Word VBA	0	04-01-2010 05:37 AM