Метод Document. SaveAs2 (Word)Document.SaveAs2 method (Word)

Сохраняет указанный документ с новым именем или форматом.Saves the specified document with a new name or format. Некоторые аргументы этого метода соответствуют параметрам в диалоговом окне " Сохранить как " (вкладка "файл ").Some of the arguments for this method correspond to the options in the Save As dialog box (File tab).

СинтаксисSyntax

выражение.expression. SaveAs2( _FileName_ , _FileFormat_ , _LockComments_ , _Password_ , _AddToRecentFiles_ , _WritePassword_ , _ReadOnlyRecommended_ , _EmbedTrueTypeFonts_ , _SaveNativePictureFormat_ , _SaveFormsData_ , _SaveAsAOCELetter_ , _Encoding_ , _InsertLineBreaks_ , _AllowSubstitutions_ , _LineEnding_ , _AddBiDiMarks_ , _CompatibilityMode_ )SaveAs2( _FileName_ , _FileFormat_ , _LockComments_ , _Password_ , _AddToRecentFiles_ , _WritePassword_ , _ReadOnlyRecommended_ , _EmbedTrueTypeFonts_ , _SaveNativePictureFormat_ , _SaveFormsData_ , _SaveAsAOCELetter_ , _Encoding_ , _InsertLineBreaks_ , _AllowSubstitutions_ , _LineEnding_ , _AddBiDiMarks_ , _CompatibilityMode_ )

Expression (выражение ) Выражение, возвращающее объект Document .expression An expression that returns a Document object.

ПараметрыParameters

ИмяName Обязательный или необязательныйRequired/Optional Тип данныхData type ОписаниеDescription
FileNameFileName НеобязательныйOptional VariantVariant Имя документа.The name for the document. Значение по умолчанию — текущая папка и имя файла.The default is the current folder and file name. Если документ никогда не сохранялся, используется имя по умолчанию (например, Doc1. doc).If the document has never been saved, the default name is used (for example, Doc1.doc). Если документ с указанным именем уже существует, он перезаписывается без приглашения пользователя.If a document with the specified file name already exists, the document is overwritten without prompting the user.
FileFormatFileFormat НеобязательныйOptional VariantVariant Формат, в котором сохранен документ.The format in which the document is saved. Может быть любой константой вдсавеформат .Can be any WdSaveFormat constant. Чтобы сохранить документ в другом формате, укажите соответствующее значение для свойства савеформат объекта FileConverter .To save a document in another format, specify the appropriate value for the SaveFormat property of the FileConverter object.
локккомментсLockComments НеобязательныйOptional VariantVariant Значение true , чтобы заблокировать документ для примечаний.True to lock the document for comments. По умолчанию используется значение False.The default is False.
PasswordPassword НеобязательныйOptional VariantVariant Строка пароля для открытия документа.A password string for opening the document. (См. примечания ниже).(See Remarks below.)
аддторецентфилесAddToRecentFiles НеобязательныйOptional VariantVariant Значение true , чтобы добавить документ в список недавно использовавшихся файлов в меню файл .True to add the document to the list of recently used files on the File menu. По умолчанию используется значение True.The default is True.
WritePasswordWritePassword НеобязательныйOptional VariantVariant Строка пароля для сохранения изменений в документе.A password string for saving changes to the document. (См. примечания ниже).(See Remarks below.)
ReadOnlyRecommendedReadOnlyRecommended НеобязательныйOptional VariantVariant Значение true , чтобы при открытии документа в Microsoft Word предлагалось состояние "только чтение".True to have Microsoft Word suggest read-only status whenever the document is opened. По умолчанию используется значение False.The default is False.
EmbedTrueTypeFontsEmbedTrueTypeFonts НеобязательныйOptional VariantVariant Значение true для сохранения шрифтов TrueType вместе с документом.True to save TrueType fonts with the document. Если этот параметр опущен, аргумент Ембедтруетипефонтс предполагает значение свойства ембедтруетипефонтс .If omitted, the EmbedTrueTypeFonts argument assumes the value of the EmbedTrueTypeFonts property.
савенативепиктуреформатSaveNativePictureFormat НеобязательныйOptional VariantVariant Если графика была импортирована с другой платформы (например, Macintosh), значение true , чтобы сохранить только версию импортированной графики Microsoft Windows.If graphics were imported from another platform (for example, Macintosh), True to save only the Microsoft Windows version of the imported graphics.
SaveFormsDataSaveFormsData НеобязательныйOptional VariantVariant Значение true , чтобы сохранить данные, введенные пользователем в форме, в виде записи.True to save the data entered by a user in a form as a record.
савеасаоцелеттерSaveAsAOCELetter НеобязательныйOptional VariantVariant Если в документе есть вложенная почта, значение true , чтобы сохранить документ как аоце букву (средство рассылки сохраняется).If the document has an attached mailer, True to save the document as an AOCE letter (the mailer is saved).
EncodingEncoding НеобязательныйOptional VariantVariant Кодовая страница или набор знаков, которые необходимо использовать для документов, сохраненных в виде кодированных текстовых файлов.The code page, or character set, to use for documents saved as encoded text files. По умолчанию используется системная кодовая страница.The default is the system code page. С этим параметром нельзя использовать все константы мсоенкодинг .You cannot use all MsoEncoding constants with this parameter.
инсертлинебреаксInsertLineBreaks НеобязательныйOptional VariantVariant Если документ сохраняется в виде текстового файла, значение true используется для вставки разрывов строк в конце каждой строки текста.If the document is saved as a text file, True to insert line breaks at the end of each line of text.
алловсубститутионсAllowSubstitutions НеобязательныйOptional VariantVariant Если документ сохраняется в виде текстового файла, значение true позволяет Word заменять некоторые символы похожим на похожий текст.If the document is saved as a text file, True allows Word to replace some symbols with text that looks similar. Например, отображение знака авторского права как (c).For example, displaying the copyright symbol as (c). По умолчанию используется значение False.The default is False.
лининдингLineEnding НеобязательныйOptional VariantVariant Способ, с помощью которого Word помечает разрывы строк и абзацев в документах, сохраненных в виде текстовых файлов.The way Word marks the line and paragraph breaks in documents saved as text files. Может быть одной из следующих констант вдлининдингтипе : вдкрлф (по умолчанию) или вдкронли.Can be one of the following WdLineEndingType constants: wdCRLF (default) or wdCROnly.
аддбидимарксAddBiDiMarks НеобязательныйOptional VariantVariant Значение true добавляет управляющие символы в выходной файл для сохранения макета текста в исходном документе с двунаправленным письмом.True adds control characters to the output file to preserve bi-directional layout of the text in the original document.
CompatibilityModeCompatibilityMode НеобязательныйOptional VariantVariant Режим совместимости, который Word использует при открытии документа.The compatibility mode that Word uses when opening the document. Константа вдкомпатибилитимоде .WdCompatibilityMode constant.
Важно!Important
По умолчанию, если для этого параметра не указано значение, Word вводит значение 0, которое указывает, что текущий режим совместимости документа должен быть сохранен.By default, if no value is specified for this parameter, Word enters a value of 0, which specifies that the current compatibility mode of the document should be retained.

Возвращаемое значениеReturn value

ОтсутствуетNothing

ПримерExample

В приведенном ниже примере кода активный документ сохраняется как Test. RTF в формате RTF.The following code example saves the active document as Test.rtf in rich-text format (RTF).

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

В приведенном ниже примере кода активный документ сохраняется в текстовом формате с расширением txt.The following code example saves the active document in text-file format with the extension ".txt".

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

В приведенном ниже примере кода выполняется цикл по всем установленным конвертерам и, если обнаруживает конвертер WordPerfect 6,0, он сохраняет активный документ с помощью конвертера.The following code example loops through all the installed converters, and if it finds the WordPerfect 6.0 converter, it saves the active document using the converter.

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

В следующем примере кода показана процедура сохранения документа с паролем.The following code example shows a procedure that saves a document with a password.

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

См. такжеSee also

Объект DocumentDocument Object

Поддержка и обратная связьSupport and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.