Lire en anglais

Partager via


Document.SaveAs2, méthode (Word)

Enregistre le document spécifié sous un nouveau nom ou format. Certains arguments utilisés pour cette méthode correspondent aux options de la boîte de dialogue Enregistrer sous (onglet Fichier).

Syntaxe

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

Expression Expression qui renvoie un objet Document .

Parameters

Nom Requis/Facultatif Type de données Description
FileName Facultatif Variant Nom du document. Il s'agit par défaut du nom de dossier et de fichier actif. Si le document n'a jamais été enregistré, le nom par défaut est utilisé (par exemple, Doc1.doc). Si un document portant le nom de fichier spécifié existe déjà, celui-ci est remplacé sans que l'utilisateur en soit averti.
FileFormat Facultatif Variant Format sous lequel le document est enregistré. Il peut s’agir de n’importe quelle constante WdSaveFormat . Pour enregistrer un document dans un autre format, définissez la valeur appropriée pour la propriété SaveFormat de l'objet FileConverter.
LockComments Facultatif Variant True pour verrouiller le document afin d'empêcher l'insertion de commentaires. La valeur par défaut est False.
Password Facultatif Variant Chaîne de mot de passe permettant l'ouverture du document. (Voir les remarques ci-dessous.)
AddToRecentFiles Facultatif Variant True pour ajouter le document à la liste des derniers fichiers utilisés, qui s'affiche en bas du menu Fichiers. La valeur par défaut est True.
WritePassword Facultatif Variant Chaîne de mot de passe permettant l'enregistrement des modifications apportées au document. (Voir les remarques ci-dessous.)
ReadOnlyRecommended Facultatif Variant True pour que Microsoft Word propose le statut lecture seule à chaque ouverture du document. La valeur par défaut est False.
EmbedTrueTypeFonts Facultatif Variant True pour enregistrer les polices TrueType avec le document. Si cet argument est omis, l'argument EmbedTrueTypeFonts prend la valeur de la propriété EmbedTrueTypeFonts.
SaveNativePictureFormat Facultatif Variant Si des graphiques ont été importés à partir d'une autre plateforme (par exemple, Macintosh), True pour enregistrer uniquement la version Microsoft Windows des graphiques importés.
SaveFormsData Facultatif Variant True pour enregistrer les données entrées par un utilisateur dans un formulaire en tant qu'enregistrement.
SaveAsAOCELetter Facultatif Variant Si le document a un publipostage associé, True pour enregistrer le document sous la forme d'une lettre AOCE (le publipostage est enregistré).
Encoding Facultatif Variant Page de code ou jeu de caractères à utiliser pour les documents enregistrés au format de fichier texte codé. La valeur par défaut est la page de code système. Vous ne pouvez pas utiliser toutes les constantes MsoEncoding avec ce paramètre.
InsertLineBreaks Facultatif Variant Si le document est enregistré en tant que fichier texte, True pour insérer un saut de ligne à la fin de chaque ligne de texte.
AllowSubstitutions Facultatif Variant Si le document est enregistré en tant que fichier texte, la valeur True permet à Word de remplacer certains caractères spéciaux par du texte d’aspect similaire. Un exemple consiste à afficher le symbole de copyright sous la forme (c). La valeur par défaut est False.
LineEnding Facultatif Variant Manière dont Word marque les sauts de ligne et de paragraphe dans les documents enregistrés au format de fichier texte. Il peut s’agir de l’une des constantes WdLineEndingType suivantes : wdCRLF (par défaut) ou wdCROnly.
AddBiDiMarks Facultatif Variant True ajoute des caractères de contrôle au fichier de sortie pour conserver la disposition bi-directionnelle du texte dans le document d'origine.
CompatibilityMode Facultatif Variant Mode de compatibilité utilisé par Word à l'ouverture du document. Constante WdCompatibilityMode.
Important
Par défaut, si aucune valeur n'est définie pour ce paramètre, Word entre une valeur de 0, qui spécifie que le mode de compatibilité actuel du document doit être conservé.

Valeur renvoyée

Aucune

Exemple

L'exemple de code suivant enregistre le document actif au format texte enrichi (RTF) sous le nom Test.rtf.

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

L'exemple de code suivant enregistre le document actif au format de fichier texte avec l'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

L’exemple de code suivant effectue une boucle dans tous les convertisseurs installés et, s’il trouve le convertisseur WordPerfect 6.0, il enregistre le document actif à l’aide du convertisseur.

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

L'exemple de code suivant montre une procédure qui enregistre un document avec un mot de passe.

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

Voir aussi

Objet Document

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.