段落とそのスタイルの取得

2011-08-06

この例では、WordprocessingML ドキュメントから段落ノードを取得するクエリを記述します。それぞれの段落のスタイルも特定します。

このクエリの基になった前の例「既定の段落スタイルの検索」のクエリでは、スタイルの一覧から既定のスタイルを取得しています。スタイルが明示的に設定されていない段落のスタイルをクエリで特定するには、この情報が必要です。段落のスタイルは、w:pPr 要素を通して設定されます。この要素が含まれていない段落は、既定のスタイルを使用して書式設定されます。

このトピックでは、クエリを構成するいくつかの要素の意味を説明し、完全な作業例の一部分であるクエリを紹介します。

例

ドキュメント内のすべての段落とそのスタイルを取得するクエリのソースは、次のとおりです。

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

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

この式は、前の例「既定の段落スタイルの検索」のクエリのソースと似ています。主な違いは、Elements 軸の代わりに Descendants 軸を使用している点です。クエリで Descendants 軸を使用しているのは、セクションが含まれているドキュメントの場合、段落が本文要素の直接の子とならず、階層内で 2 つ下のレベルに位置するためです。コードで Descendants 軸を使用すると、ドキュメントでセクションが使用されているかどうかにかかわらず機能するようになります。

例

クエリで let 句を使用して、スタイルノードが含まれる要素を特定します。要素がない場合は、styleNode が null に設定されます。

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

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

let 句は、まず Elements 軸を使用して pPr という名前の要素すべてを検索し、次に Elements 拡張メソッドを使用して pStyle という名前の子要素すべてを検索し、最後に FirstOrDefault 標準クエリ演算子を使用してコレクションをシングルトンに変換します。コレクションが空の場合は、styleNode が null に設定されます。これは、pStyle 子孫ノードを検索するのに便利な表現形式です。 pPr 子ノードが存在しない場合、コードが例外をスローして失敗することはなく、styleNode が null に設定されます。これは、この let 句で予期された動作です。

このクエリは、匿名型のコレクションを射影します。このコレクションには、StyleName および ParagraphNode の 2 つのメンバーがあります。

例

この例では、WordprocessingML ドキュメントを処理して、WordprocessingML ドキュメントから段落ノードを取得します。それぞれの段落のスタイルも特定します。この例は、このチュートリアルのこれまでの例に基づいています。新しいクエリについては、以下のコード内にあるコメントで説明が示されています。

この例のソースドキュメントの作成手順については、「ソースとなる Office Open XML ドキュメントの作成」を参照してください。

この例では、WindowsBase アセンブリに含まれるクラスを使用します。また、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

この例を「ソースとなる Office Open XML ドキュメントの作成」で説明されているドキュメントに適用すると、次の出力が生成されます。

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

次の手順

次のトピック (「段落のテキストの取得」) では、段落のテキストを取得するクエリを記述します。

参照

概念

チュートリアル : WordprocessingML ドキュメント内のコンテンツの操作

次の方法で共有

段落とそのスタイルの取得

例

例

例

次の手順

参照

概念

その他のリソース