利用vb操作word的基本方法

利用VB操作WORD的基本方法

通过查阅资料，自我实践，经实验通过。 Dim MyWord As Word.Application Dim MyWordBook As Word.Document Set MyWord = New Word.Application Set MyWordBook = MyWord.Documents.Add(ModelPath & "test.dot") '打开test.dot用户自定义的WORD模版 'MyWord = CreateObject("Word.Application") ' MyWord.Visible = False ' MyWord.Documents.Open ("test.doc") ' MyWord.ActiveDocument.Bookmarks.Item("MM").Select ' MyWord.Selection.Text = "从资料库取出的相应资料" ' MyWord.ActiveDocument.SaveAs ("test1.doc") MyWordBook.Activate With MyWordBook '    .Paragraphs(.Paragraphs.Count).Range.Font.Size = 30 '设置文字字体大小(其它设置类推) 如果去除.Paragraphs(.Paragraphs.Count)则表示所有行 '    .Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphCenter '设置文字居中等 '    .Content.InsertAfter "hello" & vbCrLf     '向WORD写入一行文字并回车 '    .Content.InsertAfter "hello" '    .Paragraphs(.Paragraphs.Count).Range.Font.Size = 10 '    .Content.InsertAfter "hello"     .Bookmarks("mm").Range.InsertAfter "name"    '在WORD指定位置（标签）写入文本，指定位置指WORD标签     .Tables(1).Cell(2, 1).Range.InsertAfter "nameFDSAFDSAFDSA" '在WORD第一个表格的第2行第1列插入文本     .Tables(1).Cell(2, 2).Range.InsertAfter "MM"     .Range(Start:=.Paragraphs(2).Range.Start + 3, End:=.Paragraphs(2).Range.Start + 8).Font.Size = 30 '给选定的文本（第二段开始位置加3至8的字体）设置字体，其它的累推     .Tables(1).Cell(2, 1).Range.Font.Size = 20 '给选定的单元格设置字体，其它的累推 End With MyWord.Visible = True Set MyWord = Nothing Set MyWordBook = Nothing