Microsoft Office Forums - View Single Post

gmayor · 12-10-2020, 10:30 PM

Your macro does not convert the document to match the result example. They most obvious difference is the example doesn't use tabs whereas the macro inserts them. To get what you wanted and based solely on the provided examples, you need something like.

Code:

Sub DPU_convertdefinitions()
Dim vFindText As Variant
Dim vReplaceText As Variant
Dim i As Integer
    vFindText = Array(Chr(34), Chr(9), Chr(32) & Chr(45), Chr(32) & Chr(44), Chr(32) & Chr(41), Chr(32) & Chr(38))
    vReplaceText = Array("", " ", Chr(45), Chr(44), Chr(41), Chr(38))
    For i = 0 To UBound(vFindText)
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = vFindText(i)
            .Replacement.Text = vReplaceText(i)
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute Replace:=wdReplaceAll
        End With
        DoEvents
    Next i
End Sub