Wordで選択範囲の文字列を逆順にする方法

Microsoft Wordでテキストを逆順にする方法をお探しですか？この記事では、範囲選択した文字列を逆順にするためのVBAコードについて説明します。この方法を使えば、簡単かつ迅速にテキストを逆順にすることができます。

逆順にするVBAコード

以下に示すのは、選択されたテキストを逆順にするVBAコードです。VBAエディタを起動し(Alt+F11キー)、文書の「標準モジュール N」に貼り付けてください(挿入→標準モジュール)。

Sub ReverseSelectedText()
    Dim selectedText As String
    Dim reversedText As String
    Dim i As Integer

    ' 選択されたテキストを取得
    selectedText = Selection.Text

    ' 選択されたテキストを逆順にする
    For i = Len(selectedText) To 1 Step -1
        reversedText = reversedText & Mid(selectedText, i, 1)
    Next i

    ' 選択されたテキストを逆順にしたテキストで置き換える
    Selection.Delete
    Selection.TypeText (reversedText)

    ' 置き換えた文字列を選択する
    Selection.MoveStart Unit:=wdCharacter, Count:=-Len(reversedText)
End Sub

貼り付けた後は逆順にしたい文字列を選択し、{Alt}+{F8}でマクロ一覧を出して「ReverseSelectedText」を実行してください。

実例

例えば、以下のような文章があった場合、

Wordで範囲選択した文字列を逆順にするには

このVBAコードを実行すると、次のようになります。

はにる順逆を串文字択選囲範でdrow

まとめ

この記事では、Wordで選択範囲の文字列を逆順にする方法を紹介しました。VBAコードを使って、簡単かつ迅速に選択範囲のテキストを逆順にすることができます。この方法を活用して、Wordでの作業をより効率的に行いましょう。