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