Convertir un document de traitement de texte DOCM au format de fichier DOCX

Cette rubrique montre comment utiliser les classes du Kit de développement logiciel (SDK) Open XML pour Office afin de convertir par programmation un document Microsoft Word qui contient du code VBA (et a une extension .docm) en document standard (avec une extension .docx). Il contient un exemple ConvertDOCMtoDOCX de méthode pour illustrer cette tâche.

ConvertDOCMtoDOCX, méthode

L’exemple ConvertDOCMtoDOCX de méthode peut être utilisé pour convertir un document Word qui contient du code VBA (et a une extension .docm) en document standard (avec une extension .docx). Utilisez cette méthode pour supprimer les macros et le composant vbaProject qui les contient d’un document stocké au format de fichier .docm. La méthode accepte un seul paramètre qui indique le nom du fichier à convertir.

C#

static void ConvertDOCMtoDOCX(string fileName)

Visual Basic

Sub ConvertDOCMtoDOCX(fileName As String)

La liste de code complète pour la méthode se trouve dans la section Exemple de code.

Appel de la méthode de l’exemple

Pour appeler l’exemple de méthode, transmettez une chaîne qui contient le nom du fichier à convertir. Le code suivant est fourni à titre d'exemple.

C#

ConvertDOCMtoDOCX(args[0]);

Visual Basic

ConvertDOCMtoDOCX(args(0))

Composants et partie vbaProject

Un package de document de traitement de texte tel qu’un fichier qui a une extension .docx ou .docm est en fait un fichier .zip qui se compose de plusieurs parties. Vous pouvez considérer que chaque partie est similaire à un fichier externe. Un composant a un type de contenu particulier et peut contenir du contenu équivalent à un fichier XML externe, un fichier binaire, un fichier image, etc., selon le type. La norme qui définit la façon dont les documents Open XML sont stockés dans .zip fichiers est appelée Open Packaging Conventions. Pour plus d’informations sur les conventions open packaging, consultez ISO/IEC 29500-2:2021.

Lorsque vous créez et enregistrez une macro VBA dans un document, Word ajoute une nouvelle partie binaire nommée vbaProject qui contient la représentation interne de votre projet de macro. L’image suivante de l’Explorer document dans l’outil de productivité du Kit de développement logiciel (SDK) Open XML pour Microsoft Office montre les parties de document dans un exemple de document qui contient une macro. Le composant vbaProject est mis en surbrillance.

Figure 1. Composant vbaProject

La tâche de conversion d’un document avec macro en un document qui n’est pas activé par macro consiste donc en grande partie à supprimer la partie vbaProject du package de document.

Fonctionnement du code

L’exemple de code modifie le document que vous spécifiez, en vérifiant que le document contient un composant vbaProject et en supprimant le composant. Une fois que le code a supprimé le composant, il modifie le type de document en interne et renomme le document afin qu’il utilise l’extension .docx.

Le code commence par ouvrir le document à l’aide de la Open méthode et en indiquant que le document doit être ouvert pour l’accès en lecture/écriture (paramètre true final). Le code récupère ensuite une référence au composant Document à l’aide de la MainDocumentPart propriété du document de traitement de texte.

C#

bool fileChanged = false;

using (WordprocessingDocument document = WordprocessingDocument.Open(fileName, true))
{
    // Access the main document part.
    var docPart = document.MainDocumentPart ?? throw new ArgumentNullException("MainDocumentPart is null.");

Visual Basic

Dim fileChanged As Boolean = False

Using document As WordprocessingDocument = WordprocessingDocument.Open(fileName, True)
    ' Access the main document part.
    If document Is Nothing Or document.MainDocumentPart Is Nothing Then
        Throw New ArgumentNullException("MainDocumentPart is null.")
    End If

    Dim docPart = document.MainDocumentPart

`*

L’exemple de code vérifie ensuite que le composant vbaProject existe et supprime le composant. Le code n’a aucun effet si le fichier à convertir ne contient pas de composant vbaProject. Pour trouver le composant, l’exemple de code récupère la VbaProjectPart propriété du document et appelle la DeletePart méthode pour supprimer le composant.

C#

// Look for the vbaProject part. If it is there, delete it.
var vbaPart = docPart.VbaProjectPart;
if (vbaPart is not null)
{
    // Delete the vbaProject part.
    docPart.DeletePart(vbaPart);

Visual Basic

' Look for the vbaProject part. If it is there, delete it.
Dim vbaPart = docPart.VbaProjectPart
If vbaPart IsNot Nothing Then
    ' Delete the vbaProject part.
    docPart.DeletePart(vbaPart)

Il ne suffit pas de supprimer le composant du document. Vous devez également convertir le type de document en interne. Le Kit de développement logiciel (SDK) Open XML permet d’effectuer cette tâche : vous pouvez appeler la méthode de document ChangeDocumentType et indiquer le nouveau type de document (dans ce cas, fournissez la WordprocessingDocumentType.Document valeur énumérée).

Vous devez également renommer le fichier. Toutefois, vous ne pouvez pas le faire tant que le fichier est ouvert. Le bloc using ferme le fichier à la fin du bloc. Par conséquent, vous devez disposer d’un moyen d’indiquer au code après le bloc que vous avez modifié le fichier : La fileChanged variable booléenne suit ces informations pour vous.

C#

// Look for the vbaProject part. If it is there, delete it.
var vbaPart = docPart.VbaProjectPart;
if (vbaPart is not null)
{
    // Delete the vbaProject part.
    docPart.DeletePart(vbaPart);

Visual Basic

' Look for the vbaProject part. If it is there, delete it.
Dim vbaPart = docPart.VbaProjectPart
If vbaPart IsNot Nothing Then
    ' Delete the vbaProject part.
    docPart.DeletePart(vbaPart)

Le code renomme ensuite le document qui vient d’être modifié. Pour ce faire, le code crée un nom de fichier en modifiant l’extension ; Vérifie que le fichier de sortie existe et le supprime, puis déplace le fichier de l’ancien nom de fichier vers le nouveau nom de fichier.

C#

// If anything goes wrong in this file handling,
// the code will raise an exception back to the caller.
if (fileChanged)
{
    // Create the new .docx filename.
    var newFileName = Path.ChangeExtension(fileName, ".docx");

    // If it already exists, it will be deleted!
    if (File.Exists(newFileName))
    {
        File.Delete(newFileName);
    }

    // Rename the file.
    File.Move(fileName, newFileName);
}

Visual Basic

' If anything goes wrong in this file handling,
' the code will raise an exception back to the caller.
If fileChanged Then
    ' Create the new .docx filename.
    Dim newFileName = Path.ChangeExtension(fileName, ".docx")

    ' If it already exists, it will be deleted!
    If File.Exists(newFileName) Then
        File.Delete(newFileName)
    End If

    ' Rename the file.
    File.Move(fileName, newFileName)
End If

Exemple de code

Voici l’exemple de code complet ConvertDOCMtoDOCX en C# et Visual Basic.

C#

static void ConvertDOCMtoDOCX(string fileName)
{
    bool fileChanged = false;

    using (WordprocessingDocument document = WordprocessingDocument.Open(fileName, true))
    {
        // Access the main document part.
        var docPart = document.MainDocumentPart ?? throw new ArgumentNullException("MainDocumentPart is null.");

        // Look for the vbaProject part. If it is there, delete it.
        var vbaPart = docPart.VbaProjectPart;
        if (vbaPart is not null)
        {
            // Delete the vbaProject part.
            docPart.DeletePart(vbaPart);

            // Change the document type to
            // not macro-enabled.
            document.ChangeDocumentType(WordprocessingDocumentType.Document);

            // Track that the document has been changed.
            fileChanged = true;
        }
    }

    // If anything goes wrong in this file handling,
    // the code will raise an exception back to the caller.
    if (fileChanged)
    {
        // Create the new .docx filename.
        var newFileName = Path.ChangeExtension(fileName, ".docx");

        // If it already exists, it will be deleted!
        if (File.Exists(newFileName))
        {
            File.Delete(newFileName);
        }

        // Rename the file.
        File.Move(fileName, newFileName);
    }
}

Visual Basic

Sub ConvertDOCMtoDOCX(fileName As String)
    Dim fileChanged As Boolean = False

    Using document As WordprocessingDocument = WordprocessingDocument.Open(fileName, True)
        ' Access the main document part.
        If document Is Nothing Or document.MainDocumentPart Is Nothing Then
            Throw New ArgumentNullException("MainDocumentPart is null.")
        End If

        Dim docPart = document.MainDocumentPart

        ' Look for the vbaProject part. If it is there, delete it.
        Dim vbaPart = docPart.VbaProjectPart
        If vbaPart IsNot Nothing Then
            ' Delete the vbaProject part.
            docPart.DeletePart(vbaPart)

            ' Change the document type to
            ' not macro-enabled.
            document.ChangeDocumentType(WordprocessingDocumentType.Document)

            ' Track that the document has been changed.
            fileChanged = True
        End If
    End Using

    ' If anything goes wrong in this file handling,
    ' the code will raise an exception back to the caller.
    If fileChanged Then
        ' Create the new .docx filename.
        Dim newFileName = Path.ChangeExtension(fileName, ".docx")

        ' If it already exists, it will be deleted!
        If File.Exists(newFileName) Then
            File.Delete(newFileName)
        End If

        ' Rename the file.
        File.Move(fileName, newFileName)
    End If
End Sub

Voir aussi

• Informations de référence sur la bibliothèque de classes du Kit de développement logiciel (SDK) Open XML