word 宏怎么添加拼音时字号选择代码

gujinfeng1029

Sub AddPinYin()

    Dim tintTreatingCount As Integer
    Dim tstrCharA As String
    Dim tlngCurPos As Long
    Dim tintA As Integer


    Selection.WholeStory
    tstrText = Selection.text
    tintTextLength = Selection.Characters.Count
    tintlinestart = 1

    tintTreatingCount = 0

    Selection.GoTo What:=wdGoToHeading, Which:=wdGoToAbsolute, Count:=1

   Selection.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtend

    Selection.GoTo What:=wdGoToHeading, Which:=wdGoToAbsolute, Count:=1

    For tintloopx = 1 To tintTextLength

      tlngCurPos = Selection.MoveRight(unit:=wdCharacter, Count:=1, Extend:=wdExtend)

      tstrCharA = Right(Selection.text, 1)

      If AscW(tstrCharA) < 255 And AscW(tstrCharA) > -255 Then


        If tintTreatingCount > 0 Then

            tintA = Len(Selection.text)

            SendKeys "{enter}", 1

            Application.Run MacroName:="FormatPhoneticGuide"

            Selection.MoveRight unit:=wdCharacter, Count:=tintA

            tintTreatingCount = 0

        End If

      Else

         tintTreatingCount = tintTreatingCount + 1

      End If

    Next

    MsgBox "任务成功完成"
      '  .Range.PhoneticGuide Text:="lǐ", Alignment:= _
       '     wdPhoneticGuideAlignmentOneTwoOne, Raise:=15, FontSize:=8, FontName _
        '    :="宋体"

End Sub
、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
请问大神们，在哪里添加代码实行在拼音加注时字号的选择，我想把字号改为16，小弟感激不尽