如何将.txt文件保存为.doc通过vba

Question

这里的第一个问题。我想要做的是在word上打开一个txt文件并使用宏执行以下操作： 1.获取文件的名称 2.在文档中应用我想要的更改 3.保存PDF和DOC版本。 4.关闭文档。

问题出在第一步，当我在第一步时，Word将打开WordModel文档上的.txt文件，因此我得到的名称是＃34; normal.dotm＆＃34;。我需要的是，例如，打开文件car.txt并获取名称＆＃34; car＆＃34;所以我可以保存带有该名称的pdf和doc版本。

到目前为止，我用来获取名称的代码是：

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

任何想法？提前问。

Answer 1

在旧网上多挖掘一下，我找到了解决方案。

 Dim path As String
 Dim name As String

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