Word 関連情報 †
サンプルコード †
Wordで使用しているフォント名を文字単位で出力するマクロ †
' デバッグログの出力先
Const g_strLogFile = "C:\DebugPrint.Log"
' 段落単位でフォント名を出力
Sub ShowParaFontName()
Dim para
For Each para In ActiveDocument.Paragraphs
DebugPrint "[" & para.Font.Name & "]" & para.Text
Next
End Sub
' 単語単位でフォント名を出力
Sub ShowWordFontName()
Dim para
For Each para In ActiveDocument.Paragraphs
Dim word
For Each word In para.Range.Words
DebugPrint "[" & word.Font.Name & "]" & word.Text
Next
Next
End Sub
' 文字単位でフォント名を出力
Sub ShowCharFontName()
Dim para
For Each para In ActiveDocument.Paragraphs
Dim char
For Each char In para.Range.Characters
DebugPrint "[" & char.Font.Name & "]" & char.Text
Next
Next
End Sub
' 文字単位でフォント名と全角・半角判別情報を出力
Sub ShowCharZenHanFontName()
Dim para
For Each para In ActiveDocument.Paragraphs
Dim char
For Each char In para.Range.Characters
If Asc(char.Text) >= 0 And Asc(char.Text) <= 255 Then
DebugPrint "[" & char.Font.Name & "]" & "[半]" & char.Text
Else
DebugPrint "[" & char.Font.Name & "]" & "[全]" & char.Text
End If
Next
Next
End Sub
' デバッグ文字列の出力
Function DebugPrint(ByVal strData As String)
' Debug.Print strData
Open g_strLogFile For Append As #1
Print #1, strData
Close #1
End Function
' ログファイルのクリア用
Function TruncateLogFile()
Open g_strLogFile For Output As #1
Close #1
End Function