【Word VBA】一括ルビ設定マクロ▽ソースコード

Option Explicit

Option Base 0

Public Sub 一括ルビ設定()

    Dim rngData As Word.Range, strRub As String

    '

    For Each rngData In ActiveDocument.Range.Words

        If rngData.Fields.Count < 1 Then

           If ChkKanjiText(rngData.Text) = True Then

              strRub = Excel.Application.GetPhonetic(rngData.Text)

              If Trim(strRub) <> "" Then

                 Call rngData.PhoneticGuide(StrConv(strRub, 32), 　_

                                            wdPhoneticGuideAlignmentCenter)

              End If

           End If

        End If

    Next

End Sub

Public Function ChkKanjiText(ByVal pStrDat As String) As Boolean

'漢字判定(語句)

'

'この部分は、人様がネットのサイトで公開しているロジックを

'使用しているので、著作権を考慮して、割愛。

'

End Function