VB²Ù×÷WORD

 Dim wdapp As Word.Application
    Dim wddoc As Word.Document
    Dim wdtable As Word.Table
   
    Set wdapp = CreateObject("word.application")
   
    Set wddoc = wdapp.Documents.Add
   
    wdapp.Visible = True
    wdapp.Activate
   
    wdapp.Caption = "ICUÈËÔ±ÅÅ°à±í"
   
    wdapp.Selection.Font.Name = "ËÎÌå"
    wdapp.Selection.Font.Size = 22
    wdapp.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    wdapp.Selection.TypeText Text:="±êÌâ"
    wdapp.Selection.TypeParagraph
    wdapp.Selection.TypeParagraph
    wdapp.Selection.Font.Name = "ËÎÌå"
    wdapp.Selection.Font.Size = 20
 
'Ìí¼Ó±í¸ñ
     Set wdtable = wdapp.ActiveDocument.Tables.Add(wdapp.Application.Selection.Range, Grid1.Rows, NumColumns _
                    :=8, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
                    wdAutoFitFixed)
   
    wdtable.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
    wdtable.Range.Font.Name = "ËÎÌå"
    wdtable.Range.Font.Size = 10.5
   
    wdtable.Cell(1, 1).Range.Text = "ÐÕÃû"
    wdtable.Cell(1, 2).Range.InsertAfter "ÐÇÆÚÒ»"
    wdtable.Cell(1, 3).Range.InsertAfter "ÐÇÆÚ¶þ"
    wdtable.Cell(1, 4).Range.InsertAfter "ÐÇÆÚÈý"
    wdtable.Cell(1, 5).Range.InsertAfter "ÐÇÆÚËÄ"
    wdtable.Cell(1, 6).Ra