wordのテキストボックス

質問

たくさんあるテキストボックスのフォントを変更したいのですが、
どなたか教えて下さい。
word2003です。

回答No.2

gyouda1114

ツール → ユーザー設定 → コマンド → 分類　で
「図形描画」を選択して右のコマンドにある「複数オブジェクトの選択」を図形描画ツールバーにドラッグ＆ドロップします。

図形描画ツールバーに表示された「複数オブジェクトの選択」をクリックするとテキストボックスやその他のオブジェクトを選択又はすべての複数のオブジェクトを選択できます。

選択後フォントを変更する

お試しを

お礼

早速やってみます。
ありがとうございます。

回答No.1

enunokokoro

どのようにフォントの変更をしたいのかわかりませんが。
たとえば以下のようなWordのマクロで対応できます。

'------------------------ここから------------------------
Sub TextBoxFont()
　Dim sp As Shape
　Dim rng As Range

　For Each sp In ActiveDocument.Shapes
　　If sp.Type = msoTextBox Then
　　Set rng = sp.TextFrame.TextRange
　　　With rng.Font
　　　.Name = "MS ゴシック"　'フォント名を指定します
　　　.Size = 12　'フォントサイズを指定します
　　　End With
　　End If
　Next
End Sub
'------------------------ここまで------------------------

この場合には、[日本語用フォント]と[英数字用フォント]のどちらでも
[MS ゴシック]で[ 12pt ]に指定しています。
本来は[スタイル名]で指定したほうが無理がないのですが、質問の内容
だけでは上記のようなマクロでの説明のほうが、理解しやすいかと思い
ましたので紹介しています。
http://office.microsoft.com/ja-jp/help/HA010192301041.aspx?pid=CH011545211041