Word VBA テキストボックスのフォントサイズ

質問

Wordでマクロを組んでいます。
文書内から取得した値を変数へ格納し、複数の変数をつないでテキストボックスに入れ、文書へ追加しています。
このテキストボックスの文字のフォントサイズを前と後ろで変えたいのですが、色々試していますがうまくいきません。
お分かりになる方がいらっしゃいましたら教えてください！

以下コードです。
下記の「EIJI」のみフォントサイズを20ptにしたいのです。
変数に格納する文字列は都度変化し、文字数も変わります。
よろしくお願いします！

Sub try()
Dim KANA As String, KATAKANA As String, EIJI As String
KANA = "あああ"
KATAKANA = "アアア"
EIJI = "AAA"

Dim myTxt As String
myTxt = KANA & "/" & KATAKANA & "/" & EIJI

Dim objTextBox As Object
Set objTextBox = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 25, 20, 530, 25)
objTextBox.Select
With Selection
.Font.Size = 16
.TypeText Text:=myTxt
End With
End Sub

回答No.1

foomufoomu · ベストアンサー

＞このテキストボックスの文字のフォントサイズを前と後ろで変えたいのですが
「前と後ろ」というのが、「一つのテキストボックスの中の、前半と後半の文字」のことでしたら、不可能だったはずです。
書式指定可能な、リッチ テキスト コントロールなら可能かもしれませんが、ワードのVBAにあったかどうか・・・

お礼

早々に回答をありがとうございました！
Wordのマクロは難しいですね（＞＜；）
コメント頂けて心強い限りです。
これからもどうぞよろしくお願いします！

補足

早々に回答ありがとうございました！
色々と試してみまして、以下のコードでやりたい事が何とかできました。
最初にテキストボックスのフォントサイズを20にして、後から前半部分を選択して16ptにしてみました。あまりスマートな形ではないのですが、とりあえずこれでしばらくいきたいと思います。
念のためコード記述いたします。テキストボックスの選択の部分からです。

objTextBox.Select
With Selection
.Font.Size = 20
.TypeText Text:=myTxt

.WholeStory
.HomeKey unit:=wdLine
.Extend character:="/"
.Extend character:="/"
.Font.Size = 16
End With