Прочитать на английском

Поделиться через


Метод Document.SaveAs2 (Word)

Сохраняет указанный документ с новым именем или форматом. Некоторые аргументы для этого метода соответствуют параметрам в диалоговом окне Сохранить как (вкладка Файл ).

Синтаксис

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

Выражение Выражение, возвращающее объект Document .

Параметры

Имя Обязательный или необязательный Тип данных Описание
FileName Необязательный Variant Имя документа. По умолчанию используется текущая папка и имя файла. Если документ никогда не сохранялся, используется имя по умолчанию (например, Doc1.doc). Если документ с указанным именем файла уже существует, документ перезаписывается без запроса пользователя.
FileFormat Необязательный Variant Формат, в котором сохраняется документ. Может быть любой константой WdSaveFormat . Чтобы сохранить документ в другом формате, укажите соответствующее значение для свойства SaveFormat объекта FileConverter .
LockComments Необязательный Variant Значение true , чтобы заблокировать документ для комментариев. Значение по умолчанию - false.
Password Необязательный Variant Строка пароля для открытия документа. (См. примечания ниже.)
AddToRecentFiles Необязательный Variant Значение true , чтобы добавить документ в список недавно использовавшихся файлов в меню Файл . По умолчанию используется значение True.
WritePassword Необязательный Variant Строка пароля для сохранения изменений в документе. (См. примечания ниже.)
ReadOnlyRecommended Необязательный Variant Значение true , чтобы microsoft Word предлагал состояние только для чтения при открытии документа. Значение по умолчанию - false.
EmbedTrueTypeFonts Необязательный Variant Значение true , чтобы сохранить шрифты TrueType в документе. Если этот параметр опущен, аргумент EmbedTrueTypeFonts принимает значение свойства EmbedTrueTypeFonts .
SaveNativePictureFormat Необязательный Variant Если графика была импортирована с другой платформы (например, Macintosh), значение True используется для сохранения только версии импортированной графики Microsoft Windows.
SaveFormsData Необязательный Variant Значение true для сохранения данных, введенных пользователем в форме в виде записи.
SaveAsAOCELetter Необязательный Variant Если к документу прикреплен почтовый адрес, значение True , чтобы сохранить документ как письмо AOCE (почтовый ящик сохраняется).
Encoding Необязательный Variant Кодовая страница или кодировка, используемая для документов, сохраненных в виде закодированных текстовых файлов. По умолчанию используется системная кодовая страница. С этим параметром нельзя использовать все константы MsoEncoding .
InsertLineBreaks Необязательный Variant Если документ сохраняется как текстовый файл, значение True для вставки разрывов строк в конце каждой строки текста.
AllowSubstitutions Необязательный Variant Если документ сохраняется в виде текстового файла, значение True позволяет Word заменить некоторые символы текстом, похожим на текст. Например, если символ авторских прав отображается как (c). Значение по умолчанию - false.
LineEnding Необязательный Variant Способ, который Word помечает строки и разрывы абзаца в документах, сохраненных в виде текстовых файлов. Может быть одной из следующих констант WdLineEndingType : wdCRLF (по умолчанию) или wdCROnly.
AddBiDiMarks Необязательный Variant True добавляет управляющие символы в выходной файл, чтобы сохранить двунаправленный макет текста в исходном документе.
CompatibilityMode Необязательный Variant Режим совместимости, который Word использует при открытии документа. Константа WdCompatibilityMode .
Важно!
По умолчанию, если для этого параметра не указано значение, Word вводит значение 0, указывающее, что текущий режим совместимости документа должен быть сохранен.

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

Отсутствует

Пример

В следующем примере кода активный документ сохраняется как Test.rtf в формате RTF.

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

В следующем примере кода активный документ сохраняется в текстовом формате с расширением ".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, он сохраняет активный документ с помощью преобразователя.

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

В следующем примере кода показана процедура, которая сохраняет документ с паролем.

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

См. также

Объект Document

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.