Word-Makro als Text Speichern w/ Name der Aktuellen Datei

Also, was ich versuche zu tun ist, nehmen Sie ein word-Dokument, speichern Sie es als eine Klage, die text .txt mit den Zeilenumbrüche aktiviert. Mir wurde gesagt, ein makro wäre das eine einfache Möglichkeit, dies zu tun, und ich habe etwas Erfolg gehabt. Mein größtes problem jetzt ist, dass es nicht das Dokument zu speichern, wie es der name der aktuellen Datei. Ich sah mich um und die Leute haben gesagt, ActiveDocument zu verwenden.Namen, aber aus irgendeinem Grund, das funktioniert nicht für mich und ich am Ende mit dem Dokument gespeichert als txt-Datei, sondern wörtlich benannt ActiveDocument.Name. Dies ist mein Erster Versuch etwas VBA verbunden, so dass es wahrscheinlich einige kleine syntax-Fehler, den ich nicht sehen kann. Hier ist meine aktuelle code:

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

Hinweis: ich habe den Pfad und den Dateinamen in meinem code zu generischen Typen (also 'Weg' und 'FILENAME'), nur um die Dinge ein wenig einfacher/klarer. ALSO, wenn ich mir ein Dokument namens cat.doc ich möchte das makro, um es zu speichern als .txt-Datei mit Zeilenumbrüchen und mit dem gleichen Dateinamen. Jede Hilfe/Vorschläge?

InformationsquelleAutor user1440061 | 2012-07-13
  1. 2

    Dem Namen DATEINAME wird in Anführungszeichen eingeschlossen, so dass es verwendet werden als ein literal. Trennen Sie es aus der Zitate verwendet werden wie eine variable. Auch, wenn Sie mit ActiveDocument.Namen, es wird das suffix als Teil der Zeichenkette ("somefile.doc"); Sie müssen entfernen Sie das suffix.

       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
    • Ich dachte, es wäre etwas einfaches wie, dass. Danke! Und ich wirklich zu schätzen, Sie geben mir die vollständige Kodierung für Sie.
    InformationsquelleAutor ForEachLoop
Schreibe einen Kommentar