Memo/2004-07-21

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][半]

• はてな
  • http://www.hatena.ne.jp/1090284941