Woord 漢字とひらがなのフォントサイズ別にする

質問

Microsoft Woordで文章を入力した際、漢字とひらがなのフォントサイズを自動的に別にする方法を教えて下さい。ひらがなのフォントサイズを漢字より少し小さくしたいのですが。宜しくお願いします。

回答No.2

imogasi

珍しい、凝った点の質問で難しいと思いました。
多分、WordVBAを使わないとできないでしょう。
だから下記のワードVBAコードの実行の方法すら判らないなら、あきらめざるをえない。
ーー
まずワードの文書の全体のフォントサイズを例えば３６に（手動操作で）設定する。
これが漢字のフォントサイズとして残る。
そして、その文書に対し、下記VBAを実行する。
・標準モジュール画面に下記をコピペ。（WEBより得た。一部修正して利用）
　　 Selection.Range.Font.Size = 10の10はフォントサイズで、お好みで変える。
　　漢字以外のフォントサイズを、１０にするということ。
・文書の全文を選択しておいて（CTRL+A)、実行すること。
ーーー
（VBAコード）
Sub 全角文字の検索()
Dim myRange As Range
Set myRange = Selection.Range
With myRange.Find
.ClearFormatting
.Text = "[ぁ-んァ-ヾa-zA-Z\!-~]" '"[亜-熙]"　バックシュラッシュが出るかもしれないが￥です
.Replacement.Text = ""
.Forward = True
'.Wrap = wdFindContinue '無限ループにはまります！
.Wrap = wdFindAsk '文書の末尾でメッセージが出ます
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchFuzzy = False
.MatchWildcards = True
Do While .Execute = True
myRange.Select
Selection.Range.Font.Size = 10
Loop
End With
Set myRange = Nothing
End Sub
＝＝＝＝
小生はテストを１例しかやってないので、質問者でテストしてください。
本当は、漢字・ひらがな部分検索を直接狙うべきだが、浅才にして、うまく行かず、
とりあえず、上記で。
ーー
こういう課題は、VBA（Word）では
（１）Find利用法
（２）FSOのRegExp（正規表現）利用法
があると思うが、上記は（１）のタイプです。それもバージョンが２００７以後かな。

回答No.1

hiro_1116

wordにそのような機能はありません。
もしかすると、お望みのようなフォントが世の中には存在するかもしれませんが。