マクロを使用して文書内の数字を反転する

Question

数値を見つけて文書に逆変換するためのマクロを作成します。例えば
は変換：123456
654321に私はこのマクロ書くが、それは仕事をdoesntの：

Function inverter(Numbers) 
Dim Num As Long 
Dim inverted As Long 
Num = Numbers 
Do Until Num >= 1 
    remainder = Num Mod 10 
    Num = Num/10 
    inverted = inverted * 10 + remainder 
Loop 
inverter = inverted 
End Function 
Sub invert() 
Dim a As Long 
    Selection.GoTo What = wdGoToLine, Which = wdGoToFirst 
    Selection.Find.ClearFormatting 
    Selection.Find.Replacement.ClearFormatting 
    With Selection.Find 
      .Text = "([!0-9])([0-9]@)([!0-9])" 
      .Replacement.Text = "\1" & a="\2" inverter(a) & "\3" 
      .Forward = True 
      .Wrap = wdFindContinue 
      .Format = False 
      .MatchCase = False 
      .MatchWholeWord = False 
      .MatchKashida = False 
      .MatchDiacritics = False 
      .MatchAlefHamza = False 
      .MatchControl = False 
      .MatchWildcards = True 
      .MatchSoundsLike = False 
      .MatchAllWordForms = False 
      .Execute Replace:=wdReplaceAll 
    End With 
End Sub 

私はそれがこのエラーを返すコンパイルすると：

--------------------------- 
Microsoft Visual Basic for Applications 
--------------------------- 
Compile error: 

Expected: end of statement 
--------------------------- 
OK Help 
--------------------------- 

Answer 1

をこの行は、のために意味がありません。私

.Replacement.Text = "\1" & a="\2" inverter(a) & "\3" 

これは、割り当て、logi評価とエラーが発生する

必要に応じてバッチ置換ソリューションが見つかりません。だからここに私の提案：

私はあなたのInvertorが1000代わりに0001ため1を返しますので、

Function Inverter2(nb As String) As String 
    Dim bn As String 
    For i = 1 To Len(nb) 
     bn = Mid(nb, i, 1) & bn 
    Next i 
    Inverter2 = bn 
End Function 

（おそらくこれは、Wordの正規表現では考慮されていない）、代わりに文字列で動作するようにあなたのInvertorを変更し、ここにありますあなたのinvertは、テキストがとてもまま2回反転されますので、私は.Wrap = wdFindContinueを削除

Sub invert() 
Dim a As Long 
    Selection.GoTo What = wdGoToLine, Which = wdGoToFirst 
    Selection.Find.ClearFormatting 
    Selection.Find.Replacement.ClearFormatting 
    With Selection.Find 
      .Text = "([!0-9])([0-9]@)([!0-9])" 
      '.Replacement.Text = "\1" & a="\2" inverter(a) & "\3" 
      .Forward = True 
      '.Wrap = wdFindContinue 
      .Format = False 
      .MatchCase = False 
      .MatchWholeWord = False 
      .MatchKashida = False 
      .MatchDiacritics = False 
      .MatchAlefHamza = False 
      .MatchControl = False 
      .MatchWildcards = True 
      .MatchSoundsLike = False 
      .MatchAllWordForms = False 
      '.Execute Replace:=wdReplaceOne 
      While .Execute 
       Selection.Text = Inverter2(Selection.Text) 
      Wend 
    End With 
    Selection.GoTo What = wdGoToLine, Which = wdGoToFirst 
End Sub 

を変更しました同じ

私もあなたの交換を取り除き、1つずつ進めました。