Memo/2004-07-21 のバックアップ(No.8)

Word 関連情報
- サンプルコード
  - Wordで使用しているフォント名を文字単位で出力するマクロ

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

対象ファイル（test.doc）

実行結果（プロシージャ：ShowCharZenHanFontName() / 結果：DebugPrint.log ）

[Century][半]a
[Century][半]b
[Century][半]c
[Century][半]d
[Century][半]e
[Century][半]f
[Century][半]g
[Century][半]h
[Century][半]i
[Century][半]j
[Century][半]k
[Century][半]l
[Century][半]m
[Century][半]n
[Century][半]o
[Century][半]p
[Century][半]q
[Century][半]r
[Century][半]s
[Century][半]t
[Century][半]u
[Century][半]v
[Century][半]w
[Century][半]x
[Century][半]y
[Century][半]z
[Century][半]

[Century][半]A
[Century][半]B
[Century][半]C
[Century][半]D
[Century][半]E
[Century][半]F
[Century][半]G
[Century][半]H
[Century][半]I
[Century][半]J
[Century][半]K
[Century][半]L
[Century][半]M
[Century][半]N
[Century][半]O
[Century][半]P
[Century][半]Q
[Century][半]R
[Century][半]S
[Century][半]T
[Century][半]U
[Century][半]V
[Century][半]W
[Century][半]X
[Century][半]Y
[Century][半]Z
[Century][半]

[ＭＳ 明朝][全]あ
[ＭＳ 明朝][全]い
[ＭＳ 明朝][全]う
[ＭＳ 明朝][全]え
[ＭＳ 明朝][全]お
[ＭＳ ゴシック][全]１
[ＭＳ ゴシック][全]２
[ＭＳ ゴシック][全]３
[ＭＳ ゴシック][全]４
[ＭＳ ゴシック][全]５
[Century][半]1
[Century][半]2
[Century][半]3
[Century][半]4
[Century][半]5
[Century][半]

[ＭＳ 明朝][全]あ
[ＭＳ 明朝][全]い
[ＭＳ 明朝][全]う
[ＭＳ 明朝][全]え
[ＭＳ 明朝][全]お
[ＭＳ 明朝][全]１
[ＭＳ 明朝][全]２
[ＭＳ 明朝][全]３
[ＭＳ 明朝][全]４
[ＭＳ 明朝][全]５
[Century][半]1
[Century][半]2
[Century][半]3
[Century][半]4
[Century][半]5
[Century][半]

[Century][半]