VB控制Word文档实例精选二

VB 前端之家
前端之家收集整理的这篇文章主要介绍了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 = wdSeekMainDocument
    
    '设置文本格式的页眉
    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.TypeText Text:="办公室常用工具"
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    
    '隐藏页眉的横线
    WordApp.ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Borders(wdBorderBottom).Visible = False
    
    '取得页眉的内容
    Debug.Print WordApp.ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Range.Text  '获取WORD第一节的页眉的文字内容
    
    
    '设置页脚
    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
    If Selection.HeaderFooter.IsHeader = True Then
       ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Else
       ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    End If
    Selection.TypeText Text:="2013年" '设置页脚
    Selection.Fields.Add Range:=Selection.Range,Type:=wdFieldNumPages
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    
    ActiveDocument.SaveAs "c:\MyWord.doc" '保存最后生成的word文档
        
Errhandler:
    Exit Sub
End Sub

Private Sub Form_Unload(Cancel As Integer)
    On Error Resume Next
    WordApp.Quit
    Set WordApp = Nothing
End Sub


效果图如下：

2、控制Word文档中的文本框对象

'先引用Microsoft Word 11.0 Object Library
Option Explicit

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

Private Sub Command1_Click()
    On Error GoTo Errhandler
    CommonDialog1.Filter = "MS Office Word(*.Doc)|*.Doc|AllFile(*.*)|*.*"
    CommonDialog1.FilterIndex = 1
    CommonDialog1.ShowOpen
    Set WordApp = New Word.Application '实例化
    WordApp.Documents.Open CommonDialog1.FileName '打开Word文件
    If Documents.Count >= 1 Then
       Text1.Text = "打开的Word文件是：" & ActiveDocument.Name & vbCrLf & vbCrLf
    End If
    WordApp.Visible = True '显示 Office Word 界面
    '或者Application.Visible = True
    WordApp.DisplayAlerts = False '不提示保存对话框
    
    WordApp.Selection.EndKey unit:=wdStory  '将光标移到文档末尾
    WordApp.Selection.Font.Bold = 1
    WordApp.Selection.Font.Name = "黑体"
    WordApp.Selection.Font.Size = 18
    WordApp.Selection.TypeText Text:="在Word文件中插入文本框对象"
    WordApp.Selection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter '居中显示
        
    '创建文本框对象,座标（100，100），宽度200，高度200
    With ActiveDocument.Shapes.AddTextBox(msoTextOrientationHorizontal,100,400,300).Fill
         '.Transparency = 1 '设置透明色
         .ForeColor = vbRed '设置前景颜色
         .UserPicture ("F:\资料\My Pictures\758254_960x1000_0.jpg") '设置文本框对象的背景图片
    End With
    ActiveDocument.Shapes(1).TextFrame.TextRange.Text = "这是一个美女" '给文本框赋值
    'ActiveDocument.Shapes(1).Line.Transparency = 1 '设置透明边框线条
    
    '再创建一个透明背景的文本框对象
    With ActiveDocument.Shapes.AddTextBox(msoTextOrientationHorizontal,300).Fill
         .Transparency = 1 '设置透明色背景
         .ForeColor = vbRed '设置前景颜色
    End With
    ActiveDocument.Shapes(2).TextFrame.TextRange.Text = "这是一个透明背景的文本框" '给文本框赋值
    'ActiveDocument.Shapes(2).Line.Transparency = 1 '设置透明边框线条
    
    '下面是获取文本框对象的内容
    Dim i As Long    
    For i = 1 To ActiveDocument.Shapes.Count
        Text1.Text = Text1.Text & ("第" & i & "个文本框的内容：" & ActiveDocument.Shapes(i).TextFrame.TextRange.Text & vbCrLf)
    Next
    
    ActiveDocument.SaveAs "c:\MyWord.doc" '保存最后生成的word文档
    
Errhandler:
    Exit Sub
End Sub

Private Sub Form_Unload(Cancel As Integer)
    On Error Resume Next
    WordApp.Quit
    Set WordApp = Nothing
End Sub


效果图如下：

3、在Word文档中设置Excel风格的页码

'先引用Microsoft Word 11.0 Object Library
Option Explicit

Dim WordApp As Word.Application '创建Word应用程序
Dim WordDoc As Word.Document    '创建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 '实例化
    Set WordDoc = WordApp.Documents.Open(CommonDialog1.FileName) '选择并打开Word文件
    WordApp.Visible = True '显示 Office Word 界面
    '或者Application.Visible = True
    WordApp.DisplayAlerts = False '不提示保存对话框
    
    '设置Word文档第一页页码
    Dim WordRange As Range
    Set WordRange = WordApp.ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range
         
    With WordRange
         .InsertAfter "第"
         .Font.Size = 14
         .Collapse Direction:=wdCollapseEnd
    
         '插入页码域
         .Fields.Add Range:=WordRange,Type:=wdFieldEmpty,Text:="PAGE  \* Arabic ",PreserveFormatting:=True
         .Expand unit:=wdWord
         .InsertAfter "页 "
    
         .InsertAfter "共"
         .Collapse Direction:=wdCollapseEnd
     
         '插入页数域
         .Fields.Add Range:=WordRange,Text:="NUMPAGES  \* Arabic ",PreserveFormatting:=True
         .Expand unit:=wdWord
         .InsertAfter "页"

         .InsertAfter "【我的Word文件 作者：ChenJL1031（东方之珠）】"
         .ParagraphFormat.Alignment = wdAlignParagraphRight '右对齐
    End With
    
    'Text1.Text = WordApp.ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Range.Text
    
    Set WordRange = Nothing
    ActiveDocument.SaveAs "c:\MyWord.doc" '保存最后生成的word文档
        
Errhandler:
    Exit Sub
End Sub

Private Sub Form_Unload(Cancel As Integer)
    On Error Resume Next
    WordApp.Quit
    Set WordApp = Nothing
End Sub


效果图如下：

原文链接：https://www.f2er.com/vb/258928.html

猜你在找的VB相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...
VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Di...
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5...
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时...
PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole
文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积