さまざまな用紙サイズの Word ドキュメントを作成

Word for UWP では、さまざまな用紙サイズで Word ドキュメントを作成できます。PaperKind 列挙を使用して、利用可能な標準用紙サイズを指定できます。

次のコードでは、WordUtils という名前のクラスを使用します。このクラスは、システムの次の場所にある製品サンプル内に置かれています。
Documents\ComponentOne Samples\UWP\WordSample
これらのクラスを上記の場所からアプリケーションで使用できます。

PaperKind 列挙は、次のコードで実装されます。

Visual Basic
C#

Visual Basic

' 各用紙サイズにつき 1 つのページを作成します
Dim firstPage As Boolean = True
For Each pk As PaperKind In [Enum].GetValues(GetType(PaperKind))
        ' Silverlight には Enum.GetValues はありません
        'PaperKind pk = fi;

        ' カスタムサイズはスキップします
        If pk = PaperKind.[Custom] Then
                Continue For
        End If

        ' 最初のページ以降のすべてのページに新しいページを追加します
        If Not firstPage Then
                word.PageBreak()
        End If
        firstPage = False

        ' 用紙の種類と向きを設定します
        'word.PaperKind = pk;
        word.Landscape = Not word.Landscape

        ' コンテンツをページに描画します
        rc = WordUtils.PageRectangle(word)
        rc = WordUtils.Inflate(rc, -6, -6)
        'string text = string.Format(Strings.StringFormatTwoArg, word.PaperKind, word.Landscape);
        Dim text As String = String.Format(Strings.StringFormatTwoArg, pk, word.Landscape)
        word.DrawString(text, font, Colors.Black, rc, sf)
        word.DrawRectangle(Colors.Black, rc)
Next

// 各用紙サイズにつき 1 つのページを作成します
bool firstPage = true;
foreach(PaperKind pk in Enum.GetValues(typeof(PaperKind))) {
  // Silverlight には Enum.GetValues はありません
  //PaperKind pk = fi;

  // カスタムサイズはスキップします
  if (pk == PaperKind.Custom) continue;

  // 最初のページ以降のすべてのページに新しいページを追加します
  if (!firstPage) word.PageBreak();
  firstPage = false;

  // 用紙の種類と向きを設定します
  //word.PaperKind = pk;
  word.Landscape = !word.Landscape;

  // コンテンツをページに描画します
  rc = WordUtils.PageRectangle(word);
  rc = WordUtils.Inflate(rc, -6, -6);
  //string text = string.Format(Strings.StringFormatTwoArg, word.PaperKind, word.Landscape);
  string text = string.Format(Strings.StringFormatTwoArg, pk, word.Landscape);
  word.DrawString(text, font, Colors.Black, rc, sf);
  word.DrawRectangle(Colors.Black, rc);
}