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

文書翻訳 文書翻訳
文書番号: 313193 - 対象製品
すべて展開する | すべて折りたたむ

概要

この資料では、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 サイトを参照してください。
Microsoft Office Development with Visual Studio (英文)
http://msdn2.microsoft.com/en-us/library/aa188489(office.10).aspx

Office の Word
http://www.microsoft.com/japan/msdn/columns/office/office112000.asp

Word についてもう一言
http://www.microsoft.com/japan/msdn/columns/office/office12072000.asp
(c) Microsoft Corporation 2001, All Rights Reserved. Contributions by Lori B. Turner, Microsoft Corporation.

プロパティ

文書番号: 313193 - 最終更新日: 2007年1月17日 - リビジョン: 4.2
この資料は以下の製品について記述したものです。
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Office Word 2003
  • Microsoft Word 2002
  • Microsoft Word 2000
キーワード:?
kbautomation kbhowtomaster KB313193
"Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。(Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。"

フィードバック

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com