ワープロドキュメントから隠し文字を削除する

2025-01-21

このトピックでは、Open XML SDK for Office のクラスを使用して、プログラムによってワープロドキュメントから非表示のテキストを削除する方法について説明します。

WordProcessingML ドキュメントの構造

WordProcessingMLドキュメントの基本的なドキュメント構造は、document要素とbody要素で構成され、その後に段落を表す p などの 1 つ以上のブロックレベル要素が続きます。段落には、1 つ以上の r 要素が含まれています。 rは、書式設定などのプロパティの共通セットを持つテキストの領域である run を表します。実行には、1 つ以上の t 要素が含まれています。 t要素には、テキストの範囲が含まれています。次のコード例は、"テキストの例" というテキストを含むドキュメントの WordprocessingML マークアップを示しています。

    <w:document xmlns:w="http://schemas.openxmlformats.org/wordprocessingml/2006/main">
      <w:body>
        <w:p>
          <w:r>
            <w:t>Example text.</w:t>
          </w:r>
        </w:p>
      </w:body>
    </w:document>

Open XML SDK を使用すると、 WordprocessingML 要素に対応する厳密に型指定されたクラスを使用して、ドキュメント構造とコンテンツを作成できます。これらのクラスは、 DocumentFormat.OpenXml.Wordprocessing 名前空間にあります。次の表に、 document、 body、 p、 r、 t の各要素に対応するクラスのクラス名を示します。

WordprocessingML 要素	Open XML SDK クラス	説明
`<document/>`	Document	メインドキュメントパーツのルート要素。
`<body/>`	Body	ISO/IEC 29500 仕様で指定されている、段落、表、注釈などのブロックレベル構造のコンテナー
`<p/>`	Paragraph	段落
`<r/>`	Run	セクション
`<t/>`	Text	さまざまなテキスト

WordprocessingML ドキュメントのパーツと要素の全体的な構造の詳細については、「 WordprocessingML ドキュメントの構造」を参照してください。

Vanish 要素の構造

vanish要素は、Word ファイル内のテキストを非表示にする上で重要な役割を果たします。 Hidden書式設定プロパティはトグルプロパティです。これは、スタイル定義内で使用することと、直接書式設定として使用する場合の動作が異なることを意味します。スタイル定義の一部として使用する場合、このプロパティを設定すると現在の状態が切り替わります。 false (または同等) に設定すると、現在の設定は変更されません。ただし、直接書式設定として使用する場合は、 true または false に設定すると、結果のプロパティの絶対状態が設定されます。

ISO/IEC 29500 仕様の次の情報では、vanish要素について説明します。

vanish (隠し文字)

この要素は、表示時にこのセクションのコンテンツをドキュメント内で非表示にするかどうかを指定します。 [メモ: この設定はテキストの通常の表示に影響を与えますが、アプリケーションの設定によって隠し文字を強制的に表示できます。メモの終了]

この書式設定プロパティは、トグルプロパティ (§17.7.3) です。

この要素が存在しない場合、既定値は スタイル階層の前のレベルで書式設定を適用したままにします。この要素がスタイル階層に適用されない場合、このテキストはドキュメントに表示されるときに非表示になりません。

[例: あるテキストセクションのコンテンツに対して、隠し文字プロパティをオンにする必要があるとします。次の WordprocessingML を使用して、この制約を指定します。

    <w:rPr>
      <w:vanish />
    </w:rPr>

This run declares that the vanish property is set for the contents of this run, so the contents of this run will be hidden when the document contents are displayed. 例終わり]

© ISO/IEC 29500: 2016

次の XML スキーマセグメントは、この要素の内容を定義しています。

    <complexType name="CT_OnOff">
       <attribute name="val" type="ST_OnOff"/>
    </complexType>

上記のコードの val プロパティは、オンまたはオフにできるバイナリ値です。 on、1、または true の値を指定すると、プロパティがオンになります。値に off、 0、またはプロパティがオフになっている false が指定されている場合。

コードの動作のしくみ

WDDeleteHiddenText メソッドは、指定したドキュメントで動作し、非表示になっているすべてのrun要素を削除し、余分なvanish要素を削除します。コードはまず、 Open メソッドを使用してドキュメントを開き、読み取り/書き込みアクセス (最後の true パラメーター) のためにドキュメントを開く必要があることを示します。開いているドキュメントでは、MainDocumentPart プロパティを使用してメインドキュメントに移動し、参照を変数に格納します。

C#
Visual Basic

using (WordprocessingDocument doc = WordprocessingDocument.Open(docName, true))
{

Using doc As WordprocessingDocument = WordprocessingDocument.Open(fileName, True)

消えた要素のリストを取得する

コードはまず、 doc.MainDocumentPart と doc.MainDocumentPart.Document.Body が null ではないことを確認し、存在しない場合は例外をスローします。次に、Descendants()を使用してVanish型を渡して、Vanish要素のIEnumerableを取得し、リストにキャストします。

C#
Visual Basic

if (doc.MainDocumentPart is null || doc.MainDocumentPart.Document.Body is null)
{
    throw new ArgumentNullException("MainDocumentPart and/or Body is null.");
}

// Get a list of all the Vanish elements
List<Vanish> vanishes = doc.MainDocumentPart.Document.Body.Descendants<Vanish>().ToList();

If doc.MainDocumentPart Is Nothing Or doc.MainDocumentPart.Document.Body Is Nothing Then
    Throw New ArgumentNullException("MainDocumentPart and/or Body is Nothing.")
End If

'Get a list of all the Vanish elements
Dim vanishes As List(Of Vanish) = doc.MainDocumentPart.Document.Body.Descendants(Of Vanish).ToList()

非表示のテキストと余分な消失要素を含む実行を削除する

非表示のテキストを削除するには、次に、Vanish要素のListをループします。 Vanish要素はRunPropertiesの子ですが、RunPropertiesは、Runまたは xref:DocumentFormat.OpenXml.Wordprocessing.ParagraphProperties> の子であるため、各Vanishの親と祖父母を取得し、その型をチェックします。次に、祖父母が Run である場合は、その実行を削除し、そうでない場合は親から Vanish 子要素を削除します。

C#
Visual Basic

// Loop over the list of Vanish elements
foreach (Vanish vanish in vanishes)
{
    var parent = vanish?.Parent;
    var grandparent = parent?.Parent;

    // If the grandparent is a Run remove it
    if (grandparent is Run)
    {
        grandparent.Remove();
    }
    // If it's not a run remove the Vanish
    else if (parent is not null)
    {
        parent.RemoveAllChildren<Vanish>();
    }
}

' Loop over the list of Vanish elements
For Each vanish In vanishes
    Dim parent = vanish.Parent
    Dim grandparent = parent.Parent

    ' If the grandparent is a Run remove it
    If TypeOf grandparent Is Run Then
        grandparent.Remove()

        ' If it's not a run remove the Vanish
    ElseIf parent IsNot Nothing Then
        parent.RemoveAllChildren(Of Vanish)()
    End If
Next

サンプルコード

注:

この例では、開いているファイルに非表示のテキストが含まれていることを前提としています。ファイルテキストの一部を非表示にするには、そのテキストを選択し、CTRL + D をクリックして、[ フォント] ダイアログボックスを表示します。 [ 非表示] ボックスを選択し、[ OK] をクリックします。

以下は、C# および Visual Basic の完全なサンプルコードです。

C#
Visual Basic

using DocumentFormat.OpenXml.Packaging;
using DocumentFormat.OpenXml.Wordprocessing;
using System;
using System.Collections.Generic;
using System.Linq;


static void WDDeleteHiddenText(string docName)
{
    // Given a document name, delete all the hidden text.

    using (WordprocessingDocument doc = WordprocessingDocument.Open(docName, true))
    {

        if (doc.MainDocumentPart is null || doc.MainDocumentPart.Document.Body is null)
        {
            throw new ArgumentNullException("MainDocumentPart and/or Body is null.");
        }

        // Get a list of all the Vanish elements
        List<Vanish> vanishes = doc.MainDocumentPart.Document.Body.Descendants<Vanish>().ToList();

        // Loop over the list of Vanish elements
        foreach (Vanish vanish in vanishes)
        {
            var parent = vanish?.Parent;
            var grandparent = parent?.Parent;

            // If the grandparent is a Run remove it
            if (grandparent is Run)
            {
                grandparent.Remove();
            }
            // If it's not a run remove the Vanish
            else if (parent is not null)
            {
                parent.RemoveAllChildren<Vanish>();
            }
        }
    }
}

Imports DocumentFormat.OpenXml.Packaging
Imports DocumentFormat.OpenXml.Wordprocessing

Module Program
    Sub Main(args As String())
        Dim fileName As String = args(0)

        WDDeleteHiddenText(fileName)
    End Sub



    Public Sub WDDeleteHiddenText(ByVal fileName As String)
        ' Given a document name, delete all the hidden text.

        Using doc As WordprocessingDocument = WordprocessingDocument.Open(fileName, True)

            If doc.MainDocumentPart Is Nothing Or doc.MainDocumentPart.Document.Body Is Nothing Then
                Throw New ArgumentNullException("MainDocumentPart and/or Body is Nothing.")
            End If

            'Get a list of all the Vanish elements
            Dim vanishes As List(Of Vanish) = doc.MainDocumentPart.Document.Body.Descendants(Of Vanish).ToList()

            ' Loop over the list of Vanish elements
            For Each vanish In vanishes
                Dim parent = vanish.Parent
                Dim grandparent = parent.Parent

                ' If the grandparent is a Run remove it
                If TypeOf grandparent Is Run Then
                    grandparent.Remove()

                    ' If it's not a run remove the Vanish
                ElseIf parent IsNot Nothing Then
                    parent.RemoveAllChildren(Of Vanish)()
                End If
            Next
        End Using
    End Sub
End Module

次の方法で共有

ワープロ ドキュメントから隠し文字を削除する