ワード文書をマクロでHTML文書として保存したいのですが

質問

ワード文書をHTML文書の形式で保存するマクロを組みたいのですが、
以下のようにしても、HTMLとして保存されません。
以前のワードＸＰでも、今度新しく導入したワード２００３でも同様です。
どこが間違っているのでしょうか？

ActiveDocument.SaveAs FileName:=Titulo & ".htm", FileFormat:=wdFormatHTML, LockComments:=False, _
　　　　Password:="", AddToRecentFiles:=True, WritePassword:="", _
　　　　ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
　　　　SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
　　　　False

Tituloとある部分は、Stringとして作った変数で、文書のタイトルになっています。
よろしくお願いします。

回答No.1

BLUEPIXY

ウチの環境はXP+Word2002SP3ですが、
質問文のそのままでHTML形式として保存されました。

保存されたところがわからなくなっているとかそういうことではないのですか？

お礼

ご回答ありがとうございます。
うーん、これで行けてますか。
保存すべきディレクトリは指定しています。
どこか他の部分が問題かもしれないので、補足にもう少し書き足しておきます。
どうもありがとうございました。

補足

マクロの他の部分が問題かもしれないので、書き足してみます。

Dim Titulo As String

（文書のフォーマットをあれこれいじる部分　略）

Selection.HomeKey unit:=wdStory
Selection.EndKey unit:=wdLine, Extend:=wdExtend
Titulo = Selection.Text　これで文書の一行目がTituloとして設定
ChangeFileOpenDirectory "C:\" & （ディレクトリへのパス　略）

このあとに、質問本文のSaveAsが続きます。
わかる方、よろしくお願いします。

あ、環境はウィンドウズＸＰにオフィス２００３です。