当サイトの記事にはプロモーションが含まれています。

Word VBAでフォントの設定を変更する方法【初心者向け解説】

パソコンパソコン・スマホ教室
スポンサーリンク

Wordで文書を作成していると、フォントの変更を自動化したい場面が出てきますよね。特に、同じフォントを何度も手動で設定するのは面倒です。そこで登場するのが「Word VBA(Visual Basic for Applications)」です。VBAを使うと、フォントの設定を簡単に変更でき、作業効率が大幅にアップします。

今回は、初心者の方でもわかりやすいように、VBAを使ってWordのフォントを変更する方法を解説します。45歳以上の方でも安心して学べる内容ですので、ぜひ最後までご覧ください。

スポンサーリンク

VBAとは?

Wordのイメージ

Wordのイメージ

まず、VBAとは何かをご説明します。VBAは、Microsoft Office製品(WordやExcelなど)に組み込まれているプログラミング言語です。これを使うことで、普段の操作を自動化したり、複雑な処理を簡単に実行したりできます。

例えば、毎回同じフォントに変更する作業をVBAで自動化すれば、ボタン一つでその作業を実行できるようになります。

VBAでフォントを変更する基本のコード

それでは、実際にVBAを使ってフォントを変更する方法を見ていきましょう。以下のコードをVBAエディタに入力することで、文書全体のフォントを変更できます。

Sub フォントを変更する()
With ActiveDocument.Content.Font
.Name = "MS ゴシック" ' フォント名を指定
.Size = 12 ' フォントサイズを指定
.Bold = True ' 太字にする
.Italic = False ' 斜体にしない
End With
End Sub

このコードでは、文書全体のフォントを「MS ゴシック」に設定し、サイズを12ポイント、太字にしています。必要に応じて、フォント名やサイズを変更してください。

特定の範囲だけフォントを変更する方法

文書全体ではなく、特定の部分だけフォントを変更したい場合もありますよね。そんな時は、以下のようにコードを書きます。

Sub 範囲を指定してフォントを変更する()
Dim rng As Range
Set rng = ActiveDocument.Range(Start:=100, End:=200) ' 100文字目から200文字目までを指定
With rng.Font
.Name = "Arial" ' フォント名を指定
.Size = 14 ' フォントサイズを指定
.Bold = False ' 太字にしない
.Italic = True ' 斜体にする
End With
End Sub

このコードでは、文書の100文字目から200文字目までの範囲のフォントを「Arial」に設定し、サイズを14ポイント、斜体にしています。範囲の指定は、文字数や位置を基準に変更できます。

フォントを変更する際の注意点

フォントを変更する際には、以下の点に注意してください。

ここがポイント!

  • フォント名は正確に入力する例えば、「MS ゴシック」と「MS ゴシック体」は異なるフォントです。正確な名前を確認して入力しましょう。
  • フォントサイズはポイント単位で指定する例えば、「12」と指定すると12ポイントの大きさになります。
  • 太字や斜体などのスタイルも設定できる.Bold = Trueで太字に、.Italic = Trueで斜体に設定できます。

これらの設定を組み合わせることで、文書の見た目を自由にカスタマイズできます。

よくある質問や疑問

Q1: VBAを使うにはどうすればいいですか?

Wordを開き、「Alt」+「F11」を押すとVBAエディタが開きます。新しいモジュールを挿入し、そこにコードを入力して実行できます。

Q2: フォントを変更する際、他の書式設定(色や下線など)も一緒に変更できますか?

はい、できます。例えば、.ColorIndex = wdColorRedで文字色を赤に、.Underline = Trueで下線を引くことができます。

Q3: VBAでフォントを変更する際、特定の条件(例えば、特定の単語だけ)で変更することはできますか?

はい、できます。Findメソッドを使って特定の単語を検索し、その範囲に対してフォントを変更することが可能です。

まとめ

VBAを使うことで、Wordのフォント設定を自動化し、作業効率を大幅に向上させることができます。最初は難しく感じるかもしれませんが、少しずつ学んでいけば、誰でも使いこなせるようになります。

他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。

この記事を書いた人
この記事を書いた人

企業の情報システム部門で10年以上、PC・アカウント・社内ネットワーク・Microsoft 365/Google Workspace運用を担当。年間数百件の問い合わせ対応(PC不調、メール送受信、Excel/Word資料、Teams会議、スマホ連携など)を通じて、初心者がつまずくポイントを「再現→原因切り分け→最短解決」の手順に落とし込んできました

現場や身近で実際に起きたトラブルをベースに、手順だけでなく「なぜそうなるか」「失敗しやすい落とし穴」「安全な設定(セキュリティ)」まで含めて解説します。

相談窓口(問い合わせ/LINE等)を設け、記事で解決しないケースも個別にサポートしていますので「パソコンが急に動かなくなった」「スマホの設定がわからない」などの悩みは一人で抱え込まず、お気軽にご相談ください。

【お問い合わせは下記URLから】
https://m32006400n.xsrv.jp/inquiry-form/

【公式LINEは下記URLから】
https://lin.ee/t8TDjcj

uri uriをフォローする
スポンサーリンク
よかったらシェアしてね! /
uri uriをフォローする

コメント

タイトルとURLをコピーしました