HOWTO: Visual Basic .NET¿¡¼­ Word¸¦ ÀÚµ¿È­ÇÏ¿© »õ ¹®¼­ ¸¸µé±â

¿¹Á¦ ÄÚµå

• ÅؽºÆ®¿Í ¼­½ÄÀÌ ÀÖ´Â ´Ü¶ôÀ» »ðÀÔÇÕ´Ï´Ù.
• ¹®¼­ ³»ÀÇ ¿©·¯ ¹üÀ§¸¦ Ž»ö ¹× ¼öÁ¤ÇÕ´Ï´Ù.
• Ç¥¸¦ »ðÀÔÇÏ°í, Ç¥¿¡ ¼­½ÄÀ» ÁöÁ¤ÇÏ°í Ç¥¸¦ µ¥ÀÌÅͷΠä¿ó´Ï´Ù.
• Â÷Æ®¸¦ Ãß°¡ÇÕ´Ï´Ù.

1. Microsoft Visual Studio .NETÀ» ½ÃÀÛÇÕ´Ï´Ù. ÆÄÀÏ ¸Þ´º¿¡¼­ »õ·Î ¸¸µé±â¸¦ ´©¸¥ ´ÙÀ½ ÇÁ·ÎÁ§Æ®¸¦ ´©¸¨´Ï´Ù. ÇÁ·ÎÁ§Æ® Çü½Ä¿¡¼­ Visual Basic ÇÁ·ÎÁ§Æ®¸¦ ´©¸¥ ´ÙÀ½ ÅÛÇø´¿¡¼­ Windows ÀÀ¿ë ÇÁ·Î±×·¥À» ´©¸¨´Ï´Ù. ±âº»ÀûÀ¸·Î Form1ÀÌ »ý¼ºµË´Ï´Ù.
2. Microsoft Word Object Library¿¡ ´ëÇÑ ÂüÁ¶¸¦ Ãß°¡ÇÕ´Ï´Ù. ÀÌ·¸°Ô ÇÏ·Á¸é ´ÙÀ½°ú °°ÀÌ ÇϽʽÿÀ.
   1. ÇÁ·ÎÁ§Æ® ¸Þ´º¿¡¼­ ÂüÁ¶ Ãß°¡¸¦ ´©¸¨´Ï´Ù.
   2. COM ÅÇ¿¡¼­ Microsoft Word °³Ã¼ ¶óÀ̺귯¸®¸¦ ãÀº ´ÙÀ½ ¼±ÅÃÀ» ´©¸¨´Ï´Ù.
      
      Âü°í Microsoft Office 2003¿¡´Â PIA(±âº» Interop ¾î¼Àºí¸®)°¡ Æ÷ÇԵǾî ÀÖ½À´Ï´Ù. Microsoft Office XP¿¡´Â PIA°¡ Æ÷ÇԵǾî ÀÖÁö¸¸ ´Ù¿î·ÎµåÇÒ ¼ö ¾ø½À´Ï´Ù. Office XP PIA¿¡ ´ëÇÑ ÀÚ¼¼ÇÑ ³»¿ëÀº Microsoft ±â¼ú ÀÚ·áÀÇ ´ÙÀ½ ¹®¼­¸¦ ÂüÁ¶ÇϽʽÿÀ.
      328912

      (http://support.microsoft.com/kb/328912/ )

      INFO: Microsoft Office XP PIA¸¦ ´Ù¿î·ÎµåÇÒ ¼ö ÀÖ´Ù
   3. ÂüÁ¶ Ãß°¡ ´ëÈ­ »óÀÚ¿¡¼­ È®ÀÎÀ» ´­·¯ ¼±ÅÃÇÑ ³»¿ëÀ» Àû¿ëÇÕ´Ï´Ù. ¼±ÅÃÇÑ ¶óÀ̺귯¸®¿¡ ´ëÇØ ·¡ÆÛ¸¦ »ý¼ºÇÒ °ÍÀÎÁö ¹¯´Â ¸Þ½ÃÁö°¡ Ç¥½ÃµÇ¸é ¿¹¸¦ ´©¸¨´Ï´Ù.
3. º¸±â ¸Þ´º¿¡¼­ µµ±¸ »óÀÚ¸¦ ¼±ÅÃÇÏ¿© µµ±¸ »óÀÚ¸¦ Ç¥½ÃÇÑ ´ÙÀ½ Form1¿¡ Button ÄÁÆ®·ÑÀ» Ãß°¡ÇÕ´Ï´Ù.
4. Button1À» µÎ ¹ø ´©¸¨´Ï´Ù. ÇØ´ç Æû¿¡ ´ëÇÑ ÄÚµå âÀÌ ³ªÅ¸³³´Ï´Ù.
5. ÄÚµå â¿¡¼­ ¾Æ·¡ÀÇ Äڵ带

       Private Sub Button1_Click(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles Button1.Click
   
       End Sub
   					

   ´ÙÀ½ ÄÚµå·Î ´ëüÇÕ´Ï´Ù.

       Private Sub Button1_Click(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles Button1.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.
           oWord = CreateObject("Word.Application")
           oWord.Visible = True
           oDoc = oWord.Documents.Add
   
           'Insert a paragraph at the beginning of the document.
           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.
           oPara2 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks.Item("\endofdoc").Range)
           oPara2.Range.Text = "Heading 2"
           oPara2.Format.SpaceAfter = 6
           oPara2.Range.InsertParagraphAfter()
   
           'Insert another paragraph.
           oPara3 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks.Item("\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 and italic.
           Dim r As Integer, c As Integer
           oTable = oDoc.Tables.Add(oDoc.Bookmarks.Item("\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.Item(1).Range.Font.Bold = True
           oTable.Rows.Item(1).Range.Font.Italic = True
   
           'Add some text after the table.
           'oTable.Range.InsertParagraphAfter()
           oPara4 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks.Item("\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.
           oTable = oDoc.Tables.Add(oDoc.Bookmarks.Item("\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.Item(1).Width = oWord.InchesToPoints(2)   'Change width of columns 1 & 2
           oTable.Columns.Item(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.Item("\endofdoc").Range.InsertParagraphAfter()
           Do
               oRng = oDoc.Bookmarks.Item("\endofdoc").Range
               oRng.ParagraphFormat.SpaceAfter = 6
               oRng.InsertAfter("A line of text")
               oRng.InsertParagraphAfter()
           Loop While Pos >= oRng.Information(Word.WdInformation.wdVerticalPositionRelativeToPage)
           oRng.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
           oRng.InsertBreak(Word.WdBreakType.wdPageBreak)
           oRng.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
           oRng.InsertAfter("We're now on page 2. Here's my chart:")
           oRng.InsertParagraphAfter()
   
           'Insert a chart and change the chart.
           oShape = oDoc.Bookmarks.Item("\endofdoc").Range.InlineShapes.AddOLEObject( _
               ClassType:="MSGraph.Chart.8", FileName _
               :="", LinkToFile:=False, DisplayAsIcon:=False)
           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.
           oRng = oDoc.Bookmarks.Item("\endofdoc").Range
           oRng.InsertParagraphAfter()
           oRng.InsertAfter("THE END.")
   
           'All done. Close this form.
           Me.Close()
   
       End Sub
   					

6. ´ÙÀ½ Äڵ带 Form1.vbÀÇ ¸Ç À§¿¡ Ãß°¡ÇÕ´Ï´Ù.

   Imports Word = Microsoft.Office.Interop.Word
   					

7. F5 Å°¸¦ ´­·¯ ÇÁ·Î±×·¥À» ºôµåÇÏ°í ½ÇÇàÇÕ´Ï´Ù.

ÅÛÇø´ »ç¿ë

• ¹®¼­ Àüü¿¡¼­ °³Ã¼ÀÇ ¼­½Ä ÁöÁ¤°ú ¹èÄ¡¸¦ ´õ Àß Á¦¾îÇÒ ¼ö ÀÖ½À´Ï´Ù.
• ´õ ÀûÀº Äڵ带 »ç¿ëÇÏ¿© ¹®¼­¸¦ ÀÛ¼ºÇÒ ¼ö ÀÖ½À´Ï´Ù.

oWord.Documents.Add "<Path to your template>\MyTemplate.dot"
				

oDoc.Bookmarks.Item("MyBookmark").Range.Text = "Some Text Here"
				

oDoc.Bookmarks.Item("MyBookmark").Range.Style = "MyStyle"
				

oWord.Selection.Style = "MyStyle"