自動テキストを置換して実行します

Question

VBAを初めて使用しています。ドキュメント内のテキストを置き換えるときにテキストを配置し、自動テキストコマンド（F3）を実行できるアプリケーションを作成しようとしています。

私の問題は、カーソルが失われた後です。選択のための有効なコードが存在しないというメッセージが表示されます。誰かが助けてくれますか？

私は、コードの下に使用しています：

Sub VbaAutomation() 
    With Selection.Find 
    .ClearFormatting 
    .Text = "-A11" 
    .Replacement.ClearFormatting 
    .Replacement.Text = "" 
    .Execute Replace:=wdReplaceAll, Forward:=True, _ 
    Wrap:=wdFindContinue 
    .Execute 
    SendKeys "{F3}" 
    End With 
End Sub 

より良い解決策ではなく、テキストを交換し、コードを実行することができます。

ビルディングブロックコードを自動テキストコードに置き換えるマクロを実行します。たとえば、私の単語文書はABCD, CDEFのコードを持ち、マクロはビルディングブロックコードを自動的に反復し、正確な自動テキストコード段落に置き換えます。

Answer 1

これは、vbaを見つけて交換する方法ではありません。 F3を使用する必要はありません。あなたは.Executeの結果を収集し、何かを見つける限り繰り返す必要があります。

は、現在のドキュメント内-A11のすべての発生を置き換えるために、これを試してみてください：

Sub VbaAutomation() 
On Error GoTo ErrorTrap 

    Dim i As Long, crazyUpLimit As Long 
    Dim isFound As Boolean 
    isFound = True 
    crazyUpLimit = 1000 

    Do While (isFound And i < crazyUpLimit) 
     With Selection.Find 
      .ClearFormatting 
      .Text = "-A11" 
      .Replacement.ClearFormatting 
      .Replacement.Text = "" 
     ' here is the trick to go on as long as you find 
      isFound = .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue 
     End With 
     i = i + 1 

    Loop 

Exit Sub 

FilePatternError: 
    MsgBox ActiveDocument.Name & ": unknown patter of document (" & fPattern & " expected)." 

Exit Sub 
ErrorTrap: 
    Beep 
    MsgBox "FAILED" & Chr(13) & "Error number: " & err & Chr(13) & Error(err) 

End Sub 

PS：あなたのPCを遮断避けるために、定期的なエラー処理とcrazyUpLimitを追加しました - それは、多くの場合、自分のために便利です。

シェア&お楽しみください！