すべてのカテゴリ

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 '漢字判定(語句) ' 'この部分は、人様がネットのサイトで公開しているロジックを '使用しているので、著作権