Word文書でテキストを上付き文字または下付き文字にバッチ変更する2つの方法

今日の記事では、Word文書でテキストを上付き文字または下付き文字にバッチ変更する2つの方法を紹介します。

Word文書内で、特に同じテキストが複数回出現する場合、特定のテキストを上付き文字や下付き文字に変更する必要が生じることがあります。このような状況では、一括置換が最も役立ちます。そこで、この作業を迅速に行うための2つの方法をご紹介します。

方法1：「検索と置換」機能を使用する

今後のコンテンツでは、サンプル「DataNumen Word Repair デモンストレーションとしてv2.5」。 私たちの目的は、添え字として「v2.5」を置き換えることです。

1. まず最初に、「ホーム」タブをクリックしてください。
2. 次に、「置換」をクリックして、「検索と置換」ダイアログボックスを開きます。
3. まず、[検索する文字列]テキストボックスに「v2.5」と入力します。 テキストの前にスペースを入力することを忘れないでください。
4. 次に、「置換」テキストボックスに「v2.5」と入力します。 今回はテキストの前にスペースはありません。
5. 次に、「詳細」ボタンをクリックして、その他のオプションを展開します。
6. 次に、「フォーマット」をクリックして「フォント」を選択します。
7. [フォントの検索]ダイアログボックスで、[上付き文字]または[下付き文字]チェックボックスをオンにします。
8. 次に「OK」をクリックします。
9. 最後に「すべて置換」ボタンをクリックします。

ここで効果を確認できます：

方法2：Wordマクロを実行してバッチ置換

1. まず、「Alt + F11」を押してVBAエディターをトリガーします。
2. 次に、「通常」プロジェクトをクリックし、次に「挿入」タブをクリックします。
3. ドロップダウンメニューで「モジュール」を選択します。
4. 次に、新しいモジュールをダブルクリックして、コーディング領域を開きます。
5. 次のマクロをそこに貼り付けます。

Sub ReplaceTheTextAsSubscript()
  Dim strSelectText As String
  Dim strReplaceText As String
 
  strSelectText = InputBox("Enter the text you want to search", "Select text", "For example: v2.5")
  strReplaceText = InputBox("Enter the text you want to replace with", "Replace text", "For example:v2.5")
 
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  With Selection.Find.Replacement.Font
    .Superscript = False
    .Subscript = True
  End With
  With Selection.Find
    .Text = strSelectText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

6. 「実行」をクリックします。
7. まず、「テキストの選択」ボックスがあります。 検索テキストを入力し、「OK」をクリックします。 この場合、「v2.5」と入力します。
8. 次に、「テキストを置き換える」ボックスがあります。 そこに置換テキストを入力し、「OK」をクリックします。 「v2.5」と入力します。

テキストを上付き文字に変更する必要がある場合は、次のマクロを使用できます。

Sub ReplaceTheTextAsSuperscript()
  Dim strSelectText As String
  Dim strReplaceText As String
 
  strSelectText = InputBox("Enter the text you want to search", "Select text", "For example: v2.5")
  strReplaceText = InputBox("Enter the text you want to replace with", "Replace text", "For example:v2.5")
 
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  With Selection.Find.Replacement.Font
    .Superscript = True
    .Subscript = False
  End With
  With Selection.Find
    .Text = strSelectText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

ドキュメントエラーを修正

単語の誤りは、私たちのほとんどにとって珍しいことではありません。単語の崩壊は、 破損したdocx ファイル。 このような問題に対処するには、壊れたドキュメントを回復するための資格のある専門的なツールを手に入れる必要があります。

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 破損したxlsx (NAIST) と pdf ソフトウェア製品を修理します。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com