Memo/2004-07-21 のバックアップの現在との差分(No.1)

追加された行はこの色です。
削除された行はこの色です。
#contents

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

 ' デバッグログの出力先
 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）
#ref(word_sample_20040721.jpg);

-実行結果（プロシージャ：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

#comment