Word 宏另存为带有当前文件名的文本答案

【问题标题】：Word Macro Save as Text w/ Current File NameWord 宏另存为带有当前文件名的文本
【发布时间】：2012-07-13 07:40:33
【问题描述】：

所以我要做的是获取一个 word 文档，将其保存为纯文本 .txt 并启用换行符。有人告诉我，宏是一种简单的方法，并且我取得了一些成功。我现在最大的问题是它没有将文档保存为当前文件名。我环顾四周，人们说要使用 ActiveDocument.Name，但由于某种原因，这对我不起作用，我最终将文档保存为 txt 文件，但实际上命名为 ActiveDocument.Name。这是我第一次尝试与 VBA 相关的任何事情，所以这可能是一些我看不到的简单的小语法错误。这是我当前的代码：

Sub WordtoTxtwLB()
'
' WordtoTxtwLB Macro
'
'
    ActiveDocument.SaveAs2 FileName:= _
        "\\Path\Path\FILENAME.txt", FileFormat:= _
        wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, _
        WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
         SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False, Encoding:=1252, InsertLineBreaks:=True, AllowSubstitutions:=False, _
         LineEnding:=wdCRLF, CompatibilityMode:=0
End Sub

注意：我确实将代码中的路径和文件名更改为通用名称（即“路径”和“文件名”），只是为了让事情变得更容易/更清晰。因此，如果我有一个名为 cat.doc 的文档，我希望宏将其保存为带有换行符和相同文件名的 .txt 文件。有什么帮助/建议吗？

【问题讨论】：

标签： vba ms-word

【解决方案1】：

名称 FILENAME 包含在引号中，因此它将用作文字。将其与引号分开以用作变量。此外，如果您使用 ActiveDocument.Name，它会将后缀作为字符串的一部分（“somefile.doc”）；您必须删除后缀。

   Sub WordtoTxtwLB()
    '
    ' WordtoTxtwLB Macro
    '
    '
        Dim fileName As String
        myFileName = "New_File"

        ActiveDocument.SaveAs2 FileName:= _
            "\\Path\Path\" & myFileName & ".txt", FileFormat:= _
            wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, _
            WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
             SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
            False, Encoding:=1252, InsertLineBreaks:=True, AllowSubstitutions:=False, _
             LineEnding:=wdCRLF, CompatibilityMode:=0
    End Sub

【讨论】：

我认为它会像那样简单。谢谢！我真的很感谢你给我完整的编码。