Document.SaveAs2-Methode (Word)

  • Artikel

Speichert das angegebene Dokument unter einem neuen Namen oder in einem neuen Format. Einige Argumente für diese Methode entsprechen den Optionen im Dialogfeld Speichern unter (Registerkarte Datei).

Syntax

Ausdruck. SaveAs2( _FileName_ , _FileFormat_ , _LockComments_ , _Password_ , _AddToRecentFiles_ , _WritePassword_ , _ReadOnlyRecommended_ , _EmbedTrueTypeFonts_ , _SaveNativePictureFormat_ , _SaveFormsData_ , _SaveAsAOCELetter_ , _Encoding_ , _InsertLineBreaks_ , _AllowSubstitutions_ , _LineEnding_ , _AddBiDiMarks_ , _CompatibilityMode_ )

Ausdruck Ein Ausdruck, der ein Document-Objekt zurückgibt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
FileName Optional Variant Der Name für das Dokument. Der Standardwert ist der aktuelle Ordner und der Dateiname. Wenn das Dokument noch nie gespeichert wurde, wird der Standardname verwendet (z. B. Doc1.doc). Wenn ein Dokument mit dem angegebenen Namen bereits vorhanden ist, wird das Dokument überschrieben, ohne den Benutzer darauf hinzuweisen.
FileFormat Optional Variant Das Format, in dem das Dokument gespeichert wird. Kann eine beliebige WdSaveFormat-Konstante sein. Zum Speichern eines Dokuments in einem anderen Format geben Sie den entsprechenden Wert für die SaveFormat -Eigenschaft des FileConverter -Objekts an.
LockComments Optional Variant True, wenn das Dokument für Kommentare gesperrt werden soll. Der Standardwert ist False.
Password Optional Variant Eine Kennwortzeichenfolge zum Öffnen des Dokuments. (Siehe Hinweise weiter unten.)
AddToRecentFiles Optional Variant True, wenn das Dokument der Liste der zuletzt verwendeten Dateien im Menü Datei hinzugefügt werden soll. Der Standardwert ist True.
WritePassword Optional Variant Eine zum Speichern von Änderungen am Dokument erforderliche Kennwortzeichenfolge. (Siehe Hinweise weiter unten.)
ReadOnlyRecommended Optional Variant True, wenn Microsoft Word beim Öffnen des Dokuments Schreibschutz vorschlagen soll. Der Standardwert ist False.
EmbedTrueTypeFonts Optional Variant True, wenn TrueType-Schriftarten mit dem Dokument gespeichert werden sollen. Wenn der Parameter nicht angegeben wird, nimmt das Argument EmbedTrueTypeFonts den Wert der EmbedTrueTypeFonts -Eigenschaft an.
SaveNativePictureFormat Optional Variant Wenn Grafiken von einer anderen Plattform (z. B. Macintosh) importiert wurden, wird mit True nur die Microsoft Windows-Version der importierten Grafiken gespeichert.
SaveFormsData Optional Variant True, wenn die von einem Benutzer in ein Formular eingegebenen Daten als Datensatz gespeichert werden sollen.
SaveAsAOCELetter Optional Variant Wenn mit dem Dokument ein Adressfeld verbunden ist, wird das Dokument mit True als AOCE-Brief gespeichert (das Adressfeld wird gespeichert).
Codierung Optional Variant Die Codepage oder der Zeichensatz für Dokumente, die als codierte Textdateien gespeichert wurden. Standardmäßig ist die Codepage des Systems festgelegt. Sie können nicht alle MsoEncoding-Konstanten mit diesem Parameter verwenden.
InsertLineBreaks Optional Variant Wird das Dokument als Textdatei gespeichert, werden mit True Zeilenumbrüche am Ende jeder Textzeile eingefügt.
AllowSubstitutions Optional Variant Wenn das Dokument als Textdatei gespeichert wurde, ermöglicht True das Ersetzen einiger Zeichen mit ähnlich aussehendem Text in Word. Beispielsweise wird das Copyrightzeichen als (c) angezeigt. Der Standardwert ist False.
LineEnding Optional Variant Die Art, wie in Word Zeilen- und Absatzumbrüche in Dokumenten markiert werden, die als Textdateien gespeichert wurden. Dies kann eine der folgenden WdLineEndingType-Konstanten sein: wdCRLF (Standard) oder wdCROnly.
AddBiDiMarks Optional Variant Mit True werden Steuerzeichen zur Ausgabedatei hinzugefügt, um das bidirektionale Layout des Texts im ursprünglichen Dokument beizubehalten.
CompatibilityMode Optional Variant Der Kompatibilitätsmodus, der beim Öffnen des Dokuments von Word verwendet wird. WdCompatibilityMode -Konstante.
Wichtig
Wenn für diesen Wert kein Parameter angegeben ist, gibt Word standardmäßig einen Wert von 0 ein, was angibt, dass der aktuelle Kompatibilitätsmodus des Dokuments beibehalten werden sollte.

Rückgabewert

Nichts

Beispiel

Im folgenden Codebeispiel wird das aktive Dokument als Test.rtf im RTF-Format (Rich Text Format) gespeichert.

Sub SaveAsRTF() 
    ActiveDocument.SaveAs2 FileName:="Text.rtf", _ 
        FileFormat:=wdFormatRTF 
End Sub

Im folgenden Codebeispiel wird das aktive Dokument im Textdateiformat mit der Erweiterung TXT gespeichert.

Sub SaveAsTextFile() 
    Dim strDocName As String 
    Dim intPos As Integer 
 
    ' Find position of extension in file name 
    strDocName = ActiveDocument.Name 
    intPos = InStrRev(strDocName, ".") 
 
    If intPos = 0 Then 
 
        ' If the document has not yet been saved 
        ' Ask the user to provide a file name 
        strDocName = InputBox("Please enter the name " & _ 
            "of your document.") 
    Else 
 
        ' Strip off extension and add ".txt" extension 
        strDocName = Left(strDocName, intPos - 1) 
        strDocName = strDocName & ".txt" 
    End If 
 
    ' Save file with new extension 
    ActiveDocument.SaveAs2 FileName:=strDocName, _ 
        FileFormat:=wdFormatText 
End Sub

Im folgenden Codebeispiel werden alle installierten Konverter durchlaufen. Wenn der WordPerfect 6.0-Konverter gefunden wird, wird das aktive Dokument mithilfe des Konverters gespeichert.

Sub SaveWithConverter() 
 
    Dim cnvWrdPrf As FileConverter 
 
    ' Look for WordPerfect file converter 
    ' And save document using the converter 
    ' For the FileFormat converter value 
    For Each cnvWrdPrf In Application.FileConverters 
        If cnvWrdPrf.ClassName = "WrdPrfctWin" Then 
            ActiveDocument.SaveAs2 FileName:="MyWP.doc", _ 
                FileFormat:=cnvWrdPrf.SaveFormat 
        End If 
    Next cnvWrdPrf 
 
End Sub

Im folgenden Codebeispiel wird eine Prozedur gezeigt, die ein Dokument mit einem Kennwort speichert.

Sub SaveWithPassword(docCurrent As Document, strPWD As String) 
    With docCurrent 
        .SaveAs2 WritePassword:=strPWD 
    End With 
End Sub

Siehe auch

Document-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.