ドキュメント内の文字に下線を引くことは珍しくありません。これは通常、ある種の強調のために行われます。ただし、文字を上書きするのは少し注意が必要です。通常、電子機器に関するドキュメントにはオーバーラインを使用します。オーバーラインは、信号線が「アクティブロー」であることを示します。

オーバーラインを含む特別なフォント（パブリックドメインのSPAtlantisフォントなど）を検索したり、数式エディターを使用したり（アンダーバーテンプレートとオーバーバーテンプレートは非常に便利です）など、文字にオーバーラインを付ける方法はたくさんあります。ただし、これらのソリューションは、追加の問題を引き起こす可能性があります。たとえば、特別なフォントを使用すると、実際に使用される文字がドキュメントの他の部分で使用される文字と一致しなくなります。ドキュメントを他の人に送信する場合は、必ずフォントを埋め込むか、フォントを提供する必要があります。別々に他の人に。

私たちが見つけた最善の解決策は、Wordで提供されている特別なフィールドコマンドを使用することです。たとえば、W文字にオーバーラインを使用する場合は、次のようにします。

。上線を引いた文字を表示する位置に挿入ポイントを配置します。

。 Ctrl + F9を押して、中括弧を挿入します。

。 EQ \ x \ to（W）と入力します。

。入力した内容の周囲（文字と中括弧の間）の余分なスペースを削除します。

。 Shift + F9を押して、フィールドコードの結果を表示します。

表示される文字を変更するには、フィールドのWを別の文字に変更するだけです。同様のアプローチは、上線文字を使用し、フィールドを使用して別の文字の「上」に配置することです。次の手順に従ってこれを行うことができます：

。上線を引いた文字を表示する位置に挿入ポイントを配置します。

。 Ctrl + F9を押して、中括弧を挿入します。

。 EQ \ o（W、）と入力します。

。挿入ポイントをコンマと閉じ括弧の間に配置します。 Altキーを押しながら、テンキーを使用して0175と入力します。

これにより、オーバースコア文字が挿入されます。

。フィールドに表示されている余分なスペースを削除します。

。 Shift + F9を押して、フィールドコードの結果を表示します。

使用しているフォントによっては、上記のいずれかを使用すると、オーバーラインが長すぎて好みに合わない場合があります。使用している文字のサイズにより密接に関連するオーバーラインが必要な場合は、次の手順を試してください（ここでもフィールドを使用します）：

。上線を引いた文字を表示する位置に挿入ポイントを配置します。

。 Ctrl + F9を押して、中括弧を挿入します。

。 EQ \ o（W、）と入力します。

。カンマと終了括弧の間に、もう一度Ctrl + F9を押します。

これにより、2番目のフィールドが配置されます。これは最初のフィールド内にあります。

。 EQ \ s \ up10（_）と入力します。

。 2つの中括弧内の余分なスペースを削除します。

。 Shift + F9を2回押して、フィールドコードの結果を表示します。

使用する方法に関係なく、フィールドを選択して定型句エントリに割り当てると、エントリを入力したときに自動的に表示されます。

必要に応じて、マクロを使用して適切なフィールドコードを追加することもできます。

次のマクロ例では、上線を引く文字の入力を求められ、上線を引くフィールドを作成します。マクロで使用されるフィールドは、最後の一連の手順で手動で作成したフィールドです。

Sub Overline()

Dim sChar As String

sChar = InputBox("Enter character to overline", "Overline")



Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _         PreserveFormatting:=False     Selection.MoveLeft Unit:=wdCharacter, Count:=1     Selection.Delete Unit:=wdCharacter, Count:=2     Selection.TypeText Text:="EQ \o(" + sChar + ",)"

Selection.MoveLeft Unit:=wdCharacter, Count:=1     Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _         PreserveFormatting:=False     Selection.MoveLeft Unit:=wdCharacter, Count:=1     Selection.Delete Unit:=wdCharacter, Count:=2     Selection.TypeText Text:="EQ \s\up10(_)"

Selection.Fields.ToggleShowCodes     Selection.MoveLeft Unit:=wdCharacter, Count:=2     Selection.Fields.ToggleShowCodes End Sub

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（4314）は、Microsoft Word 2007、2010、2013、および2016に適用されます。Wordの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。

linkOverliningCharacters。