.txtファイルを.docトラフvbaとして保存する方法

Question

ここで最初に質問します。私がしようとしているのは、単語とマクロを使ってtxtファイルを開くことです。 1.ファイルの名前を取得します。 2.文書に必要な変更を適用します。 3. PDFとDOCバージョン。 4.文書を閉じます。

問題はステップ1にありますが、WordはWordModelドキュメント上の.txtファイルを開きますので、取得する名前は「normal.dotm」です。そして、私が必要とするのは、たとえばcar.txtというファイルを開き、その名前でpdfとdocのバージョンを保存できるように "car"という名前を取得することです。

Dim esse As String 
esse = ThisDocument.Name 
MsgBox (esse) 

任意のアイデア：

私は名前を取得するために使用しているコードの一部は、これまでのところ、これは何ですか？あらかじめThks。

Answer 1

古いウェブを少し掘り下げて解決策を見つけました。

Dim path As String 
Dim name As String 

path = ActiveDocument.FullName 
name = Replace(Dir(path), ".txt", "")