こんにちは。
>かなの部分は10.5で、漢字の部分は16ですので、
それは、ちょっとオフセットの部分が厳しいですね。
一応は、以下で出来ていますが、それは、こちらは、元のフォントサイズが、10.5ですので、文字のバランスがどうなるかはなんとも言えません。なお、こういう問題は、マクロの初心者とか関係ないような気がしてきます。試行錯誤なのです。（^^;
Sub TestFields()
Dim i As Long
Dim n As Integer, m As Integer
Dim fCode As String
Dim Furigana As String
With ActiveDocument
For i = 1 To .Fields.Count
fCode = .Fields(i).Code.FormattedText.Text
If InStr(fCode, "\up") Then
n = InStrRev(fCode, "(")
m = InStr(n + 1, fCode, ")")
Furigana = Mid$(fCode, n + 1, m - n - 1)
.Fields(i).Select
OffsetPhonetic Selection, Furigana
End If
Next
End With
End Sub
Function OffsetPhonetic(sel As Selection, Furigana As String)
With sel
.Font.Size = 16
.Range.PhoneticGuide Text:=Furigana, Alignment:= _
wdPhoneticGuideAlignmentOneTwoOne, Raise:=15, FontSize:=10.5
.MoveRight Unit:=wdWord, Count:=1
End With
End Function
お礼
丁寧な回答をありがとうございました。マクロを使えばやっぱりできるのだということがわかりました。参考にさせていただきます。