OLEコントロールでword文書としてオブジェクトを生成します。
OLE1.CreateEmbed vbNullString, "Word.Document"
その後リッチテキスト形式として保存する訳ですが、1文字も書かなくてもフォント情報やセクション情報(おそらくデフォルトのテンプレートNormal.dotに含まれているもの)が一緒にセーブされてしまいます。
Set oDocument = OLE1.object
oDocument.SaveAs FileName:="C:\Document.rtf", FileFormat:=wdFormatRTF, _
LockComments:=False, Password:="", AddToRecentFiles:=False, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False
richtextboxを使用して保存すると最低限の情報しかセーブされない事はわかっていますが、上記のように保存してフォント情報やセクション情報を取り除く方法はありませんでしょうか?
ツイート | ![]() |