VB控制Word文档实例精选二

最新推荐文章于 2026-03-26 10:10:14 发布

原创

最新推荐文章于 2026-03-26 10:10:14 发布 · 置顶 · 7.3k 阅读

标签

#文档 #Word #对象 #vb #实例

本文介绍了使用VB控制Word进行文档编辑的三个实例：返回文档段落文字，实现分页及页眉页脚设置，以及创建Excel样式页码。通过这些实例，展示了VB在Word自动化方面的应用。

1、返回Word文档的段落文字，控制分页，设置页眉和页脚

'先引用Microsoft Word 11.0 Object Library
Option Explicit

Dim WordApp As Word.Application '创建Word应用程序

Private Sub Command1_Click()
    Dim i As Long
    On Error GoTo Errhandler
    CommonDialog1.Filter = "Word(*.Doc)|*.Doc|AllFile(*.*)|*.*"
    CommonDialog1.FilterIndex = 1
    CommonDialog1.ShowOpen
    Set WordApp = New Word.Application '实例化
    WordApp.Documents.Open CommonDialog1.FileName '打开Word文件
    WordApp.Visible = True '显示 Office Word 界面
    '或者Application.Visible = True
    WordApp.DisplayAlerts = False '不提示保存对话框
    
    '返回段落文字，返回的段落文字在文本框控件中
    Text1.Text = ""
    For i = 1 To ActiveDocument.Paragraphs.Count
        Text1.Text = Text1.Text & (ActiveDocument.Paragraphs(i).Range.Text & vbCrLf & vbCrLf)
    Next
    
    '控制分页
    WordApp.Selection.EndKey unit:=wdStory  '将光标移到文档末尾
    WordApp.Selection.InsertBreak wdPageBreak '在文档末尾插入一页
    
    '设置图片格式的页眉
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
       ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow.ActivePane.View.Type = wdOutlineView Then
       ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.InlineShapes.AddPicture FileName:="F:\资料\My Pictures\2013年元旦.gif", LinkToFile:=False, SaveWithDocument:=True '加载一图片文件作为页眉
    Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocum

最低0.47元/天解锁文章