WordVBA: Write #文の文字化け？

質問

お世話になります。
UTF-8でエンコードされたXMLをWordVBAで処理しています。
activedocument.paragraphsで取得したコレクションをfor each～nextで回して、各paragraph.rangeプロパティをWrite #文でcsvに出力しています。
言語は繁体字／簡体字中国語、韓国語、日本語、フランス語、イタリア語、ドイツ語、スペイン語があります。
マクロの進行中にWordで開いた画面を見ていると、各言語で文字化けなく表示されていますが、完成したcsvを見ると、各国のローカルの文字コードでエンコードされていて、文字化けがおきます。
これ、Unicodeのまま出力する方法はないでしょうか。
よろしくお願いします。

回答No.1

redfox63 · ベストアンサー

ScriptランタイムのTextStreamであればUnicodeで出力出来たと思います
引数にオプションの指定入りますが ・・・

『Microsoft Scripting runtime』を参照設定
dim fso as new FileSystemObject
dim ts as TextStream
Set ts = fos.CreateTextFile("ファイルパス", _
　　True, True )

ts.Write( paragraph.range )
' または ts.WriteLine( paragraph.range )
ts.Close
Set ts = Nothing
Set fso = Nothing

といった具合で

--- 参照設定しないなら コードの冒頭部分を
dim fso as Object, ts As Object
set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fos.CreateTextFile("ファイルパス", _
　　True, True )
といった具合に変更してください

上記の例は 処理開始前にファイルを開いて、すべての処理が終了した時点でファイルを閉じることを想定しています
逐次追記という形をとるのであれば FSOのOpenTextFileメソッドを使う方向になるでしょう

お礼

ありがとうございます。
バッチリです！(^^)