引用文の追加

C1Word を使用して、別のファイルからの引用文をドキュメントに追加できます。次のコードを使用して、テキストファイルからの引用文をドキュメントに追加します。

以下のコードでは、WordUtils および DataAccess という 2 つのクラスが使用されています。これらのクラスは、システムの次の場所にある製品サンプル内に置かれています。
Documents\ComponentOne Samples\WPF\WordCreator
これらのクラスを上記の場所からアプリケーションで使用できます。

Visual Basic
C#

Visual Basic

Dim titleFont As New Font("Arial", 24, RtfFontStyle.Bold)
Dim txtFont As New Font("Times New Roman", 10, RtfFontStyle.Italic)

' タイトルを追加します
Dim rcTop = WordUtils.RenderParagraph(word, word.Info.Title, titleFont, rcPage, rc)
rc = rcTop
' ドキュメントを構築します
For Each s As String In GetQuotes()
        Dim authorQuote As String() = s.Split(ControlChars.Tab)

        ' ヘッダーをレンダリングします（作成者）
        Dim author = authorQuote(0)
        rc.Y += 25
        rc = WordUtils.RenderParagraph(word, author, hdrFont, rcPage, rc, True)

        ' 本文をレンダリングします（引用文）
        Dim text As String = authorQuote(1)
        rc.X = rcPage.X + 36
        ' << 本文を 1/2 インチインデントします
        rc.Width = rcPage.Width - 40
        rc = WordUtils.RenderParagraph(word, text, txtFont, rcPage, rc)
        rc.X = rcPage.X
        ' << インデントを元に戻します
        rc.Width = rcPage.Width
        rc.Y += 12
        ' << 各引用文の後に 12pt のスペースを追加します
        If rc.Y > rcPage.Height Then
                word.PageBreak()
                rc = rcTop
        End If
Next

Private Shared Function GetQuotes() As List(Of String)
        Dim list = New List(Of String)()

        Using sr = New StreamReader(DataAccess.GetStream("quotes.txt"))
                Dim quotes = sr.ReadToEnd()
                For Each quote As String In quotes.Split("*"C)
                        Dim pos As Integer = quote.IndexOf(vbCr & vbLf)
                        If pos > -1 Then
                                Dim q = String.Format("{0}" & vbTab & "{1}", quote.Substring(0, pos), quote.Substring(pos + 2).Trim())
                                list.Add(q)
                        End If
                Next
        End Using

        Return list
End Function

// ページ四角形を計算します（マージンを差し引いて）
Rect rcPage = WordUtils.PageRectangle(word);
Rect rc = rcPage;

// 出力パラメータを初期化します
Font hdrFont = new Font("Arial", 14, RtfFontStyle.Bold);
Font titleFont = new Font("Arial", 24, RtfFontStyle.Bold);
Font txtFont = new Font("Times New Roman", 10, RtfFontStyle.Italic);

// タイトルを追加します
var rcTop = WordUtils.RenderParagraph(word, word.Info.Title, titleFont, rcPage, rc);
rc = rcTop;

// ドキュメントを構築します
foreach (string s in GetQuotes())
{
    string[] authorQuote = s.Split('\t');

    // ヘッダーをレンダリングします（作成者）
    var author = authorQuote[0];
    rc.Y += 25;
    rc = WordUtils.RenderParagraph(word, author, hdrFont, rcPage, rc, true);

    // 本文をレンダリングします（引用文）
    string text = authorQuote[1];
    rc.X = rcPage.X + 36; // << 本文を 1/2 インチインデントします
    rc.Width = rcPage.Width - 40;
    rc = WordUtils.RenderParagraph(word, text, txtFont, rcPage, rc);
    rc.X = rcPage.X; // << インデントを元に戻します
    rc.Width = rcPage.Width;
    rc.Y += 12; // << 各引用文の後に 12pt のスペースを追加します
    if (rc.Y > rcPage.Height)
    {
        word.PageBreak();
        rc = rcTop;
     }
}

static List <string> GetQuotes()
{
    var list = new List <string>();

    using (var sr = new StreamReader(DataAccess.GetStream("quotes.txt")))
    {
        var quotes = sr.ReadToEnd();
        foreach (string quote in quotes.Split('*'))
        {
            int pos = quote.IndexOf("\r\n");
            if (pos > -1)
            {
                 var q = string.Format("{0}\t{1}", quote.Substring(0, pos), quote.Substring(pos + 2).Trim());
                 list.Add(q);
            }
        }
}

return list;
}

上記のコードは、テキストファイルから引用文を読み込んでドキュメントに書き出します。まずタイトルをドキュメントに追加し、次にヘッダーと本文をレンダリングしてから、ドキュメントにテキストを書き込みます。

上記のコードの出力は、次の図のようになります。