Wordで水平方向のテキストを垂直方向のテキストに、またはその逆に変換する4つの簡単な方法

ワードソリューション 2025 年 9 月 28 日
今すぐ共有：

この記事では、Word文書の水平テキストと垂直テキストをすばやく簡単に変換する4つの方法を紹介します。

時々、ドキュメント内でテキストを水平または垂直に配置する可能性があります。 次に、水平方向のテキストを垂直方向のテキストに変換する機会があります。 すべての情報を再入力するのは、時間と忍耐力が必要です。

したがって、以下のように、水平方向のテキストを垂直方向のテキストに、またはその逆に変更する4つの方法を提供したいと思います。テキストの方向

ケース1：垂直テキストを水平テキストに変換する

まず、縦書きと横書きを切り替える方法は2つあります。

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

  1. まず、対象のテキストを選択してください。
  2. 次に、「ホーム」タブをクリックします。
  3. 次に、「編集」グループに移動し、「置換」オプションをクリックします。 または、「Ctrl + H」を押して、「検索と置換」ダイアログボックスを開くこともできます。「ホーム」をクリック->「置換」をクリック
  4. 次に、「Findwhat」テキストボックスにカーソルを置き、「^ p」と入力します。
  5. また、[置換]テキストボックスにスペースを入力します。
  6. 次に、「すべて置換」をクリックするだけです。「検索対象」に「^ p」と入力->「置換」ボックスにスペースをXNUMXつ入力->「すべて置換」をクリック
  7. 「はい」をクリックするだけで、ダイアログボックスがポップアップ表示されます。「はい」をクリックします

方法2：マクロを実行する

  1. まず、「開発者」タブをクリックします。
  2. 次に、「VisualBasic」をクリックしてVBAエディターをトリガーします。 別の方法は、「Alt + F11」を押すことです。「開発者」をクリック->「VisualBasic」をクリック
  3. 次に、「通常」プロジェクトをクリックします。
  4. そして、「挿入」をクリックします。
  5. 「モジュール」を選択して、通常のプロジェクトに新しいモジュールを作成します。「通常」をクリック->「挿入」をクリック->「モジュール」をクリック
  6. 次に、モジュールをダブルクリックして編集スペースを開きます。
  7. 次のコードをそこに貼り付けます。
Sub ConvertVerticalToHorizontalList()
 
  With Selection.Find
    .Text = "^p"
    .Replacement.Text = " "
    .Forward = False
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub
  1. 最後に、「実行」をクリックします。コードの貼り付け-> [実行]をクリックします

ケース2：水平方向のテキストを垂直方向のテキストに変換する

方法1：「置換」機能を再度使用する

  1. まず、ケース1の方法1の最初の3つの手順を繰り返してください。
  2. ただし、今回は、[検索と置換]ダイアログボックスで、[検索する文字列]テキストボックスにスペースを入力し、[置換]ボックスに「^ p」と入力します。
  3. 次に、「すべて置換」をクリックします。[検索する文字列]ボックスにスペースを入力-> [置換]ボックスに「^ p」と入力-> [すべて置換]をクリックします

方法2：マクロを実行する

  1. 同様に、ケース6の方法2の最初の1つの手順に従います。
  2. そして今回は、代わりに次のコードを貼り付けます。
Sub ConvertHorizontalToVerticalList()

  With Selection.Find
    .Text = " "
    .Replacement.Text = "^p"
    .Forward = False
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub
  1. 「実行」をクリックすることを忘れないでください。コードを入力-> [実行]をクリックします

あなたのLを取得しますost File

今日の仕事では常にデジタルデバイスを扱う必要があるため、重要な情報を失うリスクもあります。 それを防ぐには、バックアップを取ることは素晴らしい解決策です。 ただし、バックアップには日々の永続性が必要です。 時間が経つにつれて、ファイルのバックアップを作成するというあなたの決意は、日常生活の背景に薄れる可能性があります。 そして、バックアップでさえ、特効薬は何もありません。 したがって、必要になります 破損したWord文書回復ツール.

著者紹介：

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

今すぐ共有：

コメントは締め切りました。