現在オフラインです。再接続するためにインターネットの接続を待っています

Visual Basic からオートメーションを使用して、Microsoft Word で新しい文書を作成する方法

Office 2003 のサポートは終了しました

マイクロソフトでは、2014 年 4 月 8 日に Office 2003 のサポートを終了しました。この変更は、ソフトウェアの更新プログラムおよびセキュリティ オプションに影響しています。 この変更の意味および保護された状態を維持する方法について説明します。

概要
この資料では、Visual Basic からオートメーションを使用して、Word で新しい文書を作成する方法を手順を追って説明します。

先頭に戻る

サンプル コード

この資料のサンプル コードでは、以下の操作を行う方法を示します。
  • 文字列および書式を指定して段落を挿入します。
  • 文書内のさまざまな範囲を参照および修正します。
  • 表を挿入および書式設定し、表にデータを取り込みます。
  • グラフを追加します。
Visual Basic からオートメーションを使用して、Word で新しい文書を作成するには、以下の手順を実行します。
  1. Visual Basic を起動し、標準 EXE プロジェクトを新規作成します。デフォルトで Form1 が作成されます。
  2. [プロジェクト] メニューの [参照設定] をクリックし、Word のオブジェクト ライブラリのチェック ボックスをオンにし、[OK] をクリックします。

    使用する Word のバージョンに対応するオブジェクト ライブラリは、以下の一覧のとおりです。
    1. Microsoft Word 2000 - [Microsoft Word 9.0 Object Library]
    2. Microsoft Word 2002 - [Microsoft Word 10.0 Object Library]
    3. Microsoft Office Word 2003 - [Microsoft Word 11.0 Object Library]
  3. Form1 に CommandButton コントロールを追加します。
  4. 次のコードを Command1 の Click イベントに追加します。
        Dim oWord As Word.Application    Dim oDoc As Word.Document    Dim oTable As Word.Table    Dim oPara1 As Word.Paragraph, oPara2 As Word.Paragraph    Dim oPara3 As Word.Paragraph, oPara4 As Word.Paragraph    Dim oRng As Word.Range    Dim oShape As Word.InlineShape    Dim oChart As Object    Dim Pos as Double    'Start Word and open the document template.    Set oWord = CreateObject("Word.Application")    oWord.Visible = True    Set oDoc = oWord.Documents.Add        'Insert a paragraph at the beginning of the document.    Set oPara1 = oDoc.Content.Paragraphs.Add    oPara1.Range.Text = "Heading 1"    oPara1.Range.Font.Bold = True    oPara1.Format.SpaceAfter = 24    '24 pt spacing after paragraph.    oPara1.Range.InsertParagraphAfter        'Insert a paragraph at the end of the document.    '** \endofdoc is a predefined bookmark.    Set oPara2 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks("\endofdoc").Range)    oPara2.Range.Text = "Heading 2"    oPara2.Format.SpaceAfter = 6    oPara2.Range.InsertParagraphAfter        'Insert another paragraph.    Set oPara3 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks("\endofdoc").Range)    oPara3.Range.Text = "This is a sentence of normal text. Now here is a table:"    oPara3.Range.Font.Bold = False    oPara3.Format.SpaceAfter = 24    oPara3.Range.InsertParagraphAfter        'Insert a 3 x 5 table, fill it with data and make the first row    'bold,italic.    Dim r As Integer, c As Integer    Set oTable = oDoc.Tables.Add(oDoc.Bookmarks("\endofdoc").Range, 3, 5)    oTable.Range.ParagraphFormat.SpaceAfter = 6    For r = 1 To 3        For c = 1 To 5            oTable.Cell(r, c).Range.Text = "r" & r & "c" & c        Next    Next    oTable.Rows(1).Range.Font.Bold = True    oTable.Rows(1).Range.Font.Italic = True        'Add some text after the table.    'oTable.Range.InsertParagraphAfter    Set oPara4 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks("\endofdoc").Range)    oPara4.Range.InsertParagraphBefore    oPara4.Range.Text = "And here's another table:"    oPara4.Format.SpaceAfter = 24    oPara4.Range.InsertParagraphAfter        'Insert a 5 x 2 table, fill it with data and change the column widths.    Set oTable = oDoc.Tables.Add(oDoc.Bookmarks("\endofdoc").Range, 5, 2)    oTable.Range.ParagraphFormat.SpaceAfter = 6    For r = 1 To 5        For c = 1 To 2            oTable.Cell(r, c).Range.Text = "r" & r & "c" & c        Next    Next    oTable.Columns(1).Width = oWord.InchesToPoints(2)   'Change width of columns 1 & 2.    oTable.Columns(2).Width = oWord.InchesToPoints(3)        'Keep inserting text. When you get to 7 inches from top of the    'document, insert a hard page break.    Pos = oWord.InchesToPoints(7)    oDoc.Bookmarks("\endofdoc").Range.InsertParagraphAfter    Do        Set oRng = oDoc.Bookmarks("\endofdoc").Range        oRng.ParagraphFormat.SpaceAfter = 6        oRng.InsertAfter "A line of text"        oRng.InsertParagraphAfter    Loop While Pos >= oRng.Information(wdVerticalPositionRelativeToPage)    oRng.Collapse (wdCollapseEnd)    oRng.InsertBreak wdPageBreak    oRng.Collapse wdCollapseEnd    oRng.InsertAfter "We're now on page 2. Here's my chart:"    oRng.InsertParagraphAfter        'Insert a chart and change the chart.    Set oShape = oDoc.Bookmarks("\endofdoc").Range.InlineShapes.AddOLEObject( _        ClassType:="MSGraph.Chart.8", FileName _        :="", LinkToFile:=False, DisplayAsIcon:=False)    Set oChart = oShape.OLEFormat.Object    oChart.charttype = 4 'xlLine = 4    oChart.Application.Update    oChart.Application.Quit    '... If desired, you can proceed from here using the Microsoft Graph     'Object model on the oChart object to make additional changes to the    'chart.    oShape.Width = oWord.InchesToPoints(6.25)    oShape.Height = oWord.InchesToPoints(3.57)        'Add text after the chart.    Set oRng = oDoc.Bookmarks("\endofdoc").Range    oRng.InsertParagraphAfter    oRng.InsertAfter "THE END."    'All done. Unload this form.    Unload Me					
  5. F5 キーを押してプログラムを実行し、[Command1] をクリックします。
コードの実行完了後、作成された文書を確認します。文書は 2 ページで、書式が設定された段落、表、およびグラフが含まれています。

先頭に戻る

テンプレートを使用する

オートメーションを使用して、書式がすべて共通する文書を構築する場合、あらかじめ書式が設定されたテンプレートに基づいた新しい文書を使用して処理を開始すると便利です。Word オートメーション クライアントでテンプレートを使用すると、ゼロから文書を構築する場合と比較して、次の 2 つの大きな利点があります。
  • 文書全体のオブジェクトに対して、書式設定および配置をより詳細に調節できます。
  • より少ないコードで文書を構築できます。
テンプレートを使用すると、文書内の表、段落およびその他のオブジェクトの配置を微調整することや、オブジェクトに書式設定を含めることができます。オートメーションを使用して、テンプレートに基づいた新しい文書を作成できます。次のようなコードを使用します。
oWord.Documents.Add "<Path to your template>\MyTemplate.dot"				
テンプレートでブックマークを定義して、オートメーション クライアントで文書内の特定の場所にさまざまなテキストを入力することができます。次に例を示します。
oDoc.Bookmarks("MyBookmark").Range.Text = "Some Text Here"				
テンプレートを使用するもう 1 つの利点は、次に示すように、実行時に適用する書式スタイルの作成と保存ができることです。
oDoc.Bookmarks("MyBookmark").Range.Style = "MyStyle"				
または
oWord.Selection.Style = "MyStyle"				
先頭に戻る
関連情報
関連情報を参照するには、以下の「サポート技術情報」 (Microsoft Knowledge Base) をクリックしてください。
220607 Visual Basic から Microsoft Word の差し込み印刷をオートメーションで実行する方法
285332 [WD2003] Visual Basic で Word の差し込み印刷を自動化する方法
285333 [INFO] Word 2002 の差し込み印刷のイベント コード例
詳細については、以下の MSDN (Microsoft Developer Network) Web サイトを参照してください。先頭に戻る (c) Microsoft Corporation 2001, All Rights Reserved. Contributions by Lori B. Turner, Microsoft Corporation.

プロパティ

文書番号:313193 - 最終更新日: 01/17/2007 07:12:33 - リビジョン: 4.2

Microsoft Visual Basic 6.0 Professional Edition, Microsoft Office Word 2003, Microsoft Word 2002, Microsoft Word 2000

  • kbautomation kbhowtomaster KB313193
フィードバック
/html>