利用vb操作word的基本方法

最新推荐文章于 2025-05-04 11:43:23 发布

转载最新推荐文章于 2025-05-04 11:43:23 发布 · 9.5k 阅读

标签

#vb

VB源码专栏收录该内容

6 篇文章

订阅专栏

本文介绍了一种使用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