Recuperar los párrafos y sus estilos

En este ejemplo, se escribe una consulta que recupera los nodos de párrafo de un documento WordprocessingML.También identifica el estilo de cada uno de los párrafos.

Esta consulta se basa en la consulta del ejemplo anterior, Buscar el estilo de párrafo predeterminado, que recupera el estilo predeterminado de la lista de estilos.Esta información es necesaria para que la consulta pueda identificar el estilo de los párrafos que no tienen un estilo establecido explícitamente.Los estilos de párrafo se establecen mediante el elemento w:pPr; si un párrafo no contiene este elemento, se formatea con el estilo predeterminado.

Este tema explica la importancia de algunas partes de la consulta y luego muestra dicha consulta como parte de un ejemplo completo y funcional.

Ejemplo

El origen de la consulta para recuperar todos los párrafos de un documento y sus estilos es de la siguiente manera:

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

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

Esta expresión es similar al origen de la consulta del ejemplo anterior, Buscar el estilo de párrafo predeterminado.La diferencia principal radica en que usa el eje Descendants en lugar del eje Elements.La consulta usa el eje Descendants porque en los documentos que tienen secciones, lo párrafos no serán los secundarios directos del elemento de cuerpo; en su lugar, los párrafos estarán dos niveles por debajo en la jerarquía.Mediante el eje Descendants, el código funcionará independientemente de que el documento use secciones o no.

Ejemplo

La consulta usa una cláusula let para determinar el elemento que contiene el nodo de estilo.Si no hay ningún elemento, styleNode se establece en null:

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

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

La cláusula let usa primero el eje Elements para encontrar todos los elementos llamados pPr, luego usa el método de extensión Elements para encontrar todos los elementos secundarios llamados pStyle y por último usa el operador de consulta estándar FirstOrDefault para convertir la colección en un singleton.Si la colección está vacía, styleNode se establece en null.Se trata de un método útil para buscar el nodo descendiente pStyle.Tenga en cuenta que si el nodo secundario pPr no existe, el código no produce errores generando una excepción; en su lugar, styleNode se establece en null, que es el comportamiento deseado de esta cláusula let.

La consulta proyecta una colección de un tipo anónimo con dos miembros, StyleName y ParagraphNode.

Ejemplo

Este ejemplo procesa un documento WordprocessingML, recuperando los nodos de párrafo a partir de dicho documento.También identifica el estilo de cada uno de los párrafos.Este ejemplo se basa en los ejemplos anteriormente vistos en este tutorial.En los comentarios del siguiente código se menciona dónde se encuentra la nueva consulta.

Puede obtener instrucciones acerca de cómo crear el documento de origen para este ejemplo en Crear el documento XML abierto de Office de origen.

Este ejemplo utiliza las clases que se encuentran en el ensamblado WindowsBase.Utiliza los tipos del espacio de nombres 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

Este ejemplo genera el siguiente resultado cuando se aplica al documento descrito en Crear el documento XML abierto de Office de origen.

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

Pasos siguientes

En el siguiente ejemplo, Recuperar el texto de los párrafos, se crea una consulta para recuperar el texto de los párrafos.

Vea también

Conceptos

Tutorial: manipular contenido en un documento WordprocessingML

Last updated on 2012-08-31

Recuperar los párrafos y sus estilos

Ejemplo

Ejemplo

Ejemplo

Pasos siguientes

Vea también

Conceptos

Recursos adicionales