Récupération des paragraphes et de leurs styles

Article
04/19/2011

Dans cet exemple, nous écrivons une requête qui récupère les nœuds de paragraphe à partir d'un document WordprocessingML. Elle identifie également le style de chaque paragraphe.

Cette requête est basée sur celle de l'exemple précédent, Recherche du style de paragraphe par défaut, qui récupère le style par défaut à partir de la liste de styles. Ces informations sont requises de manière que la requête puisse identifier le style des paragraphes pour lesquels aucun style n'est défini de façon explicite. Les style de paragraphes sont définis par le biais de l'élément w:pPr ; si un paragraphe ne contient pas cet élément, il est mis en forme avec le style par défaut.

Cette rubrique explique l'importance de certaines parties de la requête, puis illustre la requête dans le cadre d'un exemple fonctionnel complet.

Exemple

La source de la requête permettant de récupérer tous les paragraphes dans un document et leurs styles est la suivante :

xDoc.Root.Element(w + "body").Descendants(w + "p")

xDoc.Root.<w:body>...<w:p>

Cette expression est similaire à la source de la requête dans l'exemple précédent, Recherche du style de paragraphe par défaut. La différence principale est qu'elle utilise l'axe Descendants au lieu de l'axe Elements. La requête utilise l'axe Descendants car dans les documents qui ont des sections, les paragraphes ne sont pas les enfants directs de l'élément de corps, mais se trouvent deux niveaux au-dessous dans la hiérarchie. Grâce à l'utilisation de la méthode Descendants, le code fonctionnera, que le document utilise des sections ou non.

Exemple

La requête utilise une clause let afin de déterminer l'élément qui contient le nœud de style. S'il n'y a aucun élément, styleNode a la valeur null :

let styleNode = para.Elements(w + "pPr").Elements(w + "pStyle").FirstOrDefault()

Let styleNode As XElement = para.<w:pPr>.<w:pStyle>.FirstOrDefault()

La clause let utilise d'abord l'axe Elements pour rechercher tous les éléments nommés pPr, puis utilise la méthode d'extension Elements pour rechercher tous les éléments enfants nommés pStyle, et pour finir utilise l'opérateur de requête standard FirstOrDefault pour convertir la collection en singleton. Si la collection est vide, styleNode a la valeur null. Il s'agit d'un idiome utile pour rechercher le nœud descendant pStyle. Notez que si le nœud enfant pPr n'existe pas, le code n'échoue pas avec la levée d'une exception ; au lieu de cela, styleNode est définie à null, ce qui constitue le comportement souhaité de cette clause let.

La requête projette une collection d'un type anonyme avec deux membres, StyleName et ParagraphNode.

Exemple

Cet exemple illustre le processus de traitement d’un document WordprocessingML, lors de la récupération des nœuds de paragraphe à partir d'un document WordprocessingML. Il identifie également le style de chaque paragraphe. Cet exemple est basé sur les exemples précédents de ce didacticiel. Dans le code ci-dessous, la nouvelle requête figure dans des commentaires.

Pour obtenir des instructions sur la création du document source pour cet exemple, consultez Création du document Office Open XML source.

Cet exemple utilise des classes de l'assembly WindowsBase. Il utilise des types de l'espace de noms System.IO.Packaging.

const string fileName = "SampleDoc.docx";

const string documentRelationshipType = "https://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument";
const string stylesRelationshipType = "https://schemas.openxmlformats.org/officeDocument/2006/relationships/styles";
const string wordmlNamespace = "https://schemas.openxmlformats.org/wordprocessingml/2006/main";
XNamespace w = wordmlNamespace;

XDocument xDoc = null;
XDocument styleDoc = null;

using (Package wdPackage = Package.Open(fileName, FileMode.Open, FileAccess.Read))
{
    PackageRelationship docPackageRelationship = wdPackage.GetRelationshipsByType(documentRelationshipType).FirstOrDefault();
    if (docPackageRelationship != null)
    {
        Uri documentUri = PackUriHelper.ResolvePartUri(new Uri("/", UriKind.Relative), docPackageRelationship.TargetUri);
        PackagePart documentPart = wdPackage.GetPart(documentUri);

        //  Load the document XML in the part into an XDocument instance.
        xDoc = XDocument.Load(XmlReader.Create(documentPart.GetStream()));

        //  Find the styles part. There will only be one.
        PackageRelationship styleRelation = documentPart.GetRelationshipsByType(stylesRelationshipType).FirstOrDefault();
        if (styleRelation != null)
        {
            Uri styleUri = PackUriHelper.ResolvePartUri(documentUri, styleRelation.TargetUri);
            PackagePart stylePart = wdPackage.GetPart(styleUri);

            //  Load the style XML in the part into an XDocument instance.
            styleDoc = XDocument.Load(XmlReader.Create(stylePart.GetStream()));
        }
    }
}

string defaultStyle = 
    (string)(
        from style in styleDoc.Root.Elements(w + "style")
        where (string)style.Attribute(w + "type") == "paragraph"&&
              (string)style.Attribute(w + "default") == "1"
              select style
    ).First().Attribute(w + "styleId");

// Following is the new query that finds all paragraphs in the
// document and their styles.
var paragraphs =
    from para in xDoc
                 .Root
                 .Element(w + "body")
                 .Descendants(w + "p")
    let styleNode = para
                    .Elements(w + "pPr")
                    .Elements(w + "pStyle")
                    .FirstOrDefault()
    select new
    {
        ParagraphNode = para,
        StyleName = styleNode != null ?
            (string)styleNode.Attribute(w + "val") :
            defaultStyle
    };

foreach (var p in paragraphs)
    Console.WriteLine("StyleName:{0}", p.StyleName);

Imports <xmlns:w="https://schemas.openxmlformats.org/wordprocessingml/2006/main">

Module Module1
    Private Function GetStyleOfParagraph(ByVal styleNode As XElement, ByVal defaultStyle As String) As String
        If (styleNode Is Nothing) Then
            Return defaultStyle
        Else
            Return styleNode.@w:val
        End If
    End Function

    Sub Main()
        Dim fileName = "SampleDoc.docx"

        Dim documentRelationshipType = "https://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument"
        Dim stylesRelationshipType = "https://schemas.openxmlformats.org/officeDocument/2006/relationships/styles"
        Dim wordmlNamespace = "https://schemas.openxmlformats.org/wordprocessingml/2006/main"

        Dim xDoc As XDocument = Nothing
        Dim styleDoc As XDocument = Nothing
        Using wdPackage As Package = Package.Open(fileName, FileMode.Open, FileAccess.Read)
            Dim docPackageRelationship As PackageRelationship = wdPackage.GetRelationshipsByType(documentRelationshipType).FirstOrDefault()
            If (docPackageRelationship IsNot Nothing) Then
                Dim documentUri As Uri = PackUriHelper.ResolvePartUri(New Uri("/", UriKind.Relative), docPackageRelationship.TargetUri)
                Dim documentPart As PackagePart = wdPackage.GetPart(documentUri)

                '  Load the document XML in the part into an XDocument instance.
                xDoc = XDocument.Load(XmlReader.Create(documentPart.GetStream()))

                '  Find the styles part. There will only be one.
                Dim styleRelation As PackageRelationship = documentPart.GetRelationshipsByType(stylesRelationshipType).FirstOrDefault()
                If (styleRelation IsNot Nothing) Then
                    Dim styleUri As Uri = PackUriHelper.ResolvePartUri(documentUri, styleRelation.TargetUri)
                    Dim stylePart As PackagePart = wdPackage.GetPart(styleUri)

                    '  Load the style XML in the part into an XDocument instance.
                    styleDoc = XDocument.Load(XmlReader.Create(stylePart.GetStream()))
                End If
            End If
        End Using

        Dim defaultStyle As String = _
            ( _
                From style In styleDoc.Root.<w:style> _
                Where style.@w:type = "paragraph" And _
                      style.@w:default = "1" _
                Select style _
            ).First().@w:styleId

        ' Following is the new query that finds all paragraphs in the
        ' document and their styles.
        Dim paragraphs = _
            From para In xDoc.Root.<w:body>...<w:p> _
        Let styleNode As XElement = para.<w:pPr>.<w:pStyle>.FirstOrDefault() _
        Select New With { _
            .ParagraphNode = para, _
            .StyleName = GetStyleOfParagraph(styleNode, defaultStyle) _
        }

        For Each p In paragraphs
            Console.WriteLine("StyleName:{0}", p.StyleName)
        Next

    End Sub
End Module

Cet exemple génère la sortie suivante lorsqu'il est appliqué au document décrit dans Création du document Office Open XML source.

StyleName:Heading1
StyleName:Normal
StyleName:Normal
StyleName:Normal
StyleName:Code
StyleName:Code
StyleName:Code
StyleName:Code
StyleName:Code
StyleName:Code
StyleName:Code
StyleName:Normal
StyleName:Normal
StyleName:Normal
StyleName:Code

Étapes suivantes

Dans la rubrique suivante, Récupération du texte des paragraphes, nous allons créer une requête pour récupérer le texte des paragraphes.

Voir aussi

Concepts

Didacticiel : Manipulation de contenu dans un document WordprocessingML

Partager via

Récupération des paragraphes et de leurs styles

Exemple

Exemple

Exemple

Étapes suivantes

Voir aussi

Concepts

Ressources supplémentaires