フレッドは、他の国のユーザーから受け取ったドキュメントを扱う際の問題について説明しています。フレッドはすべての仕事を英語（米国）で行っています

彼の文書言語として。彼は他の人から文書を受け取ると、それらの文書の一部と一部を自分の文書にコピーします。彼が最終的に作成するのは、一部の段落が英語（米国）、一部がオランダ語（オランダ）、一部がドイツ語に設定されているドキュメントです。フレッドがドキュメントのそれらの部分（またはドキュメント全体）を選択して英語（US）に設定しようとしても、機能しないようです。Wordは元のソース言語のままです。

最初に行う必要があるのは、システムが実際にデフォルト言語として英語（US）を使用するように設定されていることを確認することです。 Word 2000以降のバージョンを使用していると仮定すると、Wordが段落で使用している言語を把握できるようにするOffice機能を無効にする必要があります。 Wordを終了し、Office言語設定ユーティリティを起動します。 （図1を参照してください。）（[スタート]ボタンをクリックし、[プログラム]を選択し、[Microsoft Officeツール]を選択して、[Microsoft Office言語設定]を実行します。）

image

図1.言語設定ユーティリティ。

ユーティリティは、システムにインストールされているOfficeのバージョンによって少し異なりますが、基本的には、英語（US）以外の言語が選択されていないことを確認する必要があります。有効になっている言語のリストとともに、使用可能な言語のリストが表示されているはずです。英語（US）のみが有効になっていることを確認してから、ユーティリティを終了します。これを行う理由（英語（US）のみを設定）は、Wordがあなたの心（まあ、ドキュメントのテキスト）を読み込もうとするのを防ぎ、段落の言語をそれがどうあるべきかを判断して設定するのを防ぐためです。

次に、Word内で、デフォルトの言語として英語（US）を設定します。 Wordを開始します。画面に空白のドキュメントがあるはずです。

ツール|を選択します言語|言語を設定して、言語ダイアログボックスを表示します。 （図2を参照）

image

図2. [言語]ダイアログボックス。

言語リストで英語（US）が選択されていること（自動的に選択されている必要があります）を確認し、[言語の自動選択]チェックボックスがオフになっていることを確認します。 [デフォルト]ボタンをクリックして、ダイアログボックスを閉じます。システムで定期的に異なるテンプレートを使用する場合は、使用するテンプレートごとに同じプロセスを実行する必要があります。

（[デフォルト]ボタンは、開いているドキュメントの基になっているテンプレートにのみ影響します。）

最後に、異なる言語が設定されている既存のドキュメントがある場合は、それらのドキュメントに変更を加える必要があります。これを行う1つの方法は、検索と置換を使用して、各段落に割り当てられている言語を変更することです。

。変更するドキュメントをロードします。

。 Ctrl + Hを押します。 Wordは、[検索と置換]ダイアログボックスの[置換]タブを表示します。

。利用可能な場合は、[その他]ボタンをクリックします。 （図3を参照）

。 [検索する文字列]ボックスと[置換する文字列]ボックスの両方が空であることを確認してください。

。 [検索する文字列]ボックスに挿入ポイントがあり、使用可能な場合は[書式設定なし]をクリックします。

。 [置換]ボックスに挿入ポイントを入力して、[フォーマット]、[置換]の順にクリックします。言語。 Wordは、[言語の置換]ダイアログボックスを表示します。 （図4を参照）

。ダイアログボックスで英語（US）を選択します。

。 [OK]をクリックして、[言語の置換]ダイアログボックスを閉じます。

。 [すべて置換]をクリックします。

Wordは、ドキュメント内の段落のすべてのインスタンスに使用される言語を置き換える必要があります。変更する必要のあるドキュメントがたくさんある場合、または頻繁に変更を加える必要がある場合は、マクロの方が適しています。

次のマクロは、ドキュメント内のすべての段落スタイルをステップスルーし、各段落の言語設定を英語（米国）に変更します。

Sub StyleUS_English()

Dim oStyle As Style     Dim MyStyle As Variant

For Each oStyle In ActiveDocument.Styles         If oStyle.InUse = True Then             On Error Resume Next             With ActiveDocument.Content.Find                 .Style = oStyle.NameLocal             End With             MyStyle = oStyle             'Do not modify any character styles             If InStr(MyStyle, " Char") = 0 Then                 oStyle.LanguageID = wdEnglishUS             End If             On Error GoTo 0         End If     Next oStyle End Sub

注：

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

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

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

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（285）は、Microsoft Word 2000、2002、および2003に適用されます。