word VBAで特定のテキストを文書の最後にもっていきたい。

Question

###word VBAで特定のテキストを文書の最後にもっていきたい。
タイトル通りです。

例えば

あいうえお
かきくけこ
さしすせそ
たちつてと

という文書があった場合。"かきくけこ"を指定すると

あいうえお
さしすせそ
たちつてと
かきくけこ

となるような動作を実現したいです。
またそれと合わせて、文書を移動した後、カーソルを指定した文字のあと、ここで言えば「さ」の前に持って行きたいです。(これはテキストの抽出を連続して動作させるためです。)

ネットで調べても指針すら分からなかったので、テンプレートだけ貼っておきます・・・(置き換えを使うのかな？と思ったので一応リプレースを入れています・・・)

Sub 抽出()

With Selection.Find
    .Text = "かきくけこ"
    .MatchFuzzy = False
    .MatchWildcards = True
    .Replacement.Text = ""
    .Execute Replace:=wdReplaceOne
End With

End Sub

ほぼほぼ、丸投げ状態で申しわけないのですが、ご助力どうかよろしくおねがいします・・・

Answer 1

Word VBAはあまり詳しくは無いですが以下のようなイメージでしょうか
すでに「特定のテキスト」を選択している状態が前提です。

'選択している文字範囲に対して
Dim selRng As Word.Range
Set selRng = Word.Selection.Range

'文書全体の文字範囲
Dim docRng As Word.Range
Set docRng = selRng.Document.Range

With docRng
    '文書の末尾に移動
    .Collapse WdCollapseDirection.wdCollapseEnd
    '改行追加（適当）
    .InsertBreak WdBreakType.wdLineBreak
    '選択範囲を追加（書式維持）
    .InsertXML selRng.XML
End With 'docRng

'選択範囲削除（カーソル自動移動）
selRng.Delete

---

追記

「選択範囲を追加（書式維持）」は上記の方法よりもFormattedTextを使った方が適切なようです。

    '選択範囲追加（書式維持）
    .FormattedText = selRng.FormattedText

参考

【コード】文字列を横方向に移動するWordマクロ（その２） | みんなのワードマクロ

Comments

[hood]

回答ありがとうございます！早速このコードを試したところ、私の実現したい動作ができました！
・・・しかし、欲をいうとテキスト選択の点で、ドラッグではなく文字列で指定したいのです・・そういったやりかたはあるでしょうか？

二度も申し訳ないのですがもう少しだけアドバイスをいただけると助かります・・・！

[hood]

おさわがせしてすいません！文字列の指定のほうはこちらで解決できました！なので私の実現したいことは完璧にできるようになりました！本当にありがとうございました！

[hood]

なるほど・・そんなのがあったのですね・・・細部まで丁寧に教えてくださり本当にありがとうございます！