Vba Word宏另存为带当前文件名的文本

所以我要做的是获取一个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文件。有什么帮助/建议吗？

文件名在引号中，因此将用作文字。将其从用作变量的引号中分离出来。此外，如果您使用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

---

我以为会是这么简单。谢谢我真的很感谢你给我完整的编码。