word 置換後の範囲について。

Question

###word 置換後の範囲について。
文字列を置換したく、以下のコードを書きました。
しかし、これでは置換後の文字列が次の検索範囲となってしまいます。
つまり連続して使うことができません。
どのように改造すれば、検索範囲を通常の
｜←こういうやつに戻せるでしょうか？

Sub mion_ormal()

With Selection.Find
    .Text = "\<string name=""base([0-9]{1,3})""\>\</string\>^013\<string name=""ude([0-9]{1,3})""\>\</string\>"
    .MatchFuzzy = False
    .MatchWildcards = True
    .Replacement.Text = "<string name=""base\1"">@drawable/mio_base</string>^013<string name=""ude\2"">@drawable/mio_ude_normal</string>"
    .Execute Replace:=wdReplaceOne
End With
   
End Sub

Answer 1

Word文書に対する処理なら、Word用のコンポーネントであるSpire.Doc for .NETを使用するのは名案かもしれません。それをダウンロードして参照に追加して、VB.NETのコードを実行すれば、Wordの内容を置き換えることができます。以下のはサンプルコードです：

Imports Spire.Doc

Namespace ReplaceString
    Friend Class Program
        Shared Sub Main(ByVal args() As String)
            Dim document As New Document()
            document.LoadFromFile("サンプル.docx")

            document.Replace("あいうえお", "アイウエオ", False, True)

            document.SaveToFile("Replace.docx", FileFormat.Docx)
            System.Diagnostics.Process.Start("Replace.docx")
        End Sub
    End Class
End Namespace

Answer 2

WordのVBAは詳しくないのですが、選択範囲を折りたたむには以下のメソッドが使えないでしょうか？

Selection.Collapse メソッド (Word)

Call Word.Selection.Collapse(Word.WdCollapseDirection.wdCollapseEnd)

Comments

[hood]

回答ありがとうございます！回答者様のコードを試してみたら、無事に解決しました！本当にありがとうございます！