Anthonyは、複数のレポートをテキストファイル（つまり、filename.txt）でWordに定期的にインポートします。次に、マクロを使用して、このインポートされた情報をフォーマットします。書式設定マクロが完了した後、Anthonyは各レポートに手動で「名前を付けて保存」を使用してレポートをWord文書として保存します。彼は、データを保存する最後のステップを自動化するために、マクロにどのコマンドを追加する必要があるのか​​疑問に思っています。 Anthonyは、filename.docのように、元のテキストファイルと同じルート名を使用してファイルをWord形式に変更するだけで、マクロにファイルを保存させたいと考えています。

実際にファイルを保存する手順は比較的簡単です。ドキュメントをWord形式で保存する次のコードスニペットについて考えてみます。

ActiveDocument.SaveAs FileName:=sDocName, _   FileFormat:=wdFormatDocument

ファイルの名前はsDocName変数に格納され、FileFormatプロパティの設定は、ドキュメントをWord形式で保存することを示しています。既存のマクロでは、あとは必要なファイル名でsDocNameを設定するだけです。

元のテキストファイル名を変数sOrigNameに保存したとすると、次のコードを使用して拡張子を.docに変更し、ファイルを保存できます。

sDocName = Left(sOrigName, Len(sOrigName) - 4)

sDocName = sDocName & ".doc"

ActiveDocument.SaveAs FileName:=sDocName, _   FileFormat:=wdFormatDocument

このコードは、sOrigNameの最後の4文字にファイル名拡張子（ピリオドと3文字）が含まれていることを前提としています。これらは削除され、「。doc」拡張子が追加されます。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（427）は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス（Word 2007）用のこのヒントのバージョンを見つけることができます。以降）ここ：

linkマクロからドキュメント形式で保存。