谁能帮我解释一下这段代码呀??很急，谢谢

来源：百度知道 编辑：UC知道 时间：2024/05/30 09:45:01
On Error Resume Next
Dim ex As Application
Set ex = CreateObject("word.application")
ex.Visible = True
Set woreddoc = ex.Documents.Add
ex.Caption = "数据库原理概论试卷"
ex.Application.Selection.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
ex.Application.Selection.Font.Size = 14
ex.Application.Selection.Font.Spacing = 1
ex.Application.Selection.Font.Bold = 20
ex.Application.Selection.Range.Text = Text.Item(1).Text
ex.Application.Selection.EndKey
ex.Application.Selection.Range.InsertAfter (Text2.Item(1).Text) + Chr(13)
ex.Application.Selection.Range.InsertParagraphAfter
ex.Application.Selection.EndKey
ex.Application.Selection.MoveDown
ex.Application.Selection.EndKey
ex.Application.Selection.Range.InsertParagraphAfter
ex.Application.Selection.MoveDown
ex.Application.Selection.MoveDown
ex.Application.Selection.Paragraphs.Last.Range.Font.Size = 12
ex.Application.Se

这是 VB写的 调用Word 填充数据的.

On Error Resume Next
Dim ex As Application '声明
Set ex = CreateObject("word.application") '创建Word对象
ex.Visible = True '让Word可见
Set woreddoc = ex.Documents.Add '添加一个新文档
ex.Caption = "数据库原理概论试卷" '文档标题名
ex.Application.Selection.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '字体居中
ex.Application.Selection.Font.Size = 14
ex.Application.Selection.Font.Spacing = 1
ex.Application.Selection.Font.Bold = 20 '上面设置字体字号的
ex.Application.Selection.Range.Text = Text.Item(1).Text '从text的项目1获取数据 text 应该是个 combo 或listbox
ex.Application.Selection.EndKey '移到结尾
ex.Application.Selection.Range.InsertAfter (Text2.Item(1).Text) + Chr(13) '再填充 加个回车
ex.Application.Selection.Range.InsertParagraphAfter
ex.Application.Selection.EndKey
ex.Application.Selection.MoveDown
ex.Application.Selection.EndKey
ex.A