在word中使用VBA区分标题和正文

获取标题与正文使用style。试验一下如下代码。

Dim i As Single

For i = 1 To ActiveDocumentBuiltInDocumentProperties(wdPropertyLines)Value

With Selection

    GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=i

    HomeKey Unit:=wdLine

    EndKey Unit:=wdLine, Extend:=wdExtend

End With

If SelectionStyle = "正文" Then

MsgBox i & "行是正文"

End If

If SelectionStyle = "标题 1" Then

MsgBox i & "行是标题 1"

End If

Next

End Sub

你把你的那个word文件和需要输出到excel的模板文件打包，写清楚到底需要把哪些内容填充到excel，最好做一个模拟结果，然后上传到你的网盘，把文件共享一下，地址发我，我下载你的附件之后，这个代码就好写了，光靠你在这里描述，一头雾水，代码就不好写了

Sub Example()

Dim myObject As Object

'对于浮动式文本框控件

Set myObject = ActiveDocumentShapes(1)OLEFormatObject

MsgBox myObjectText

'对于嵌入式文本框控件

Set myObject = ActiveDocumentInlineShapes(1)OLEFormatObject

MsgBox myObjectText

'对于word的文本框图形（非控件）

Set myObject = ActiveDocumentShapes(1)TextFrameTextRange

MsgBox myObjectText

End Sub

新建一个窗体，添加一个文本框控件，用VB写如下程序：

Sub Example()

Dim myObject As Object

'对于浮动式文本框控件

Set myObject = ActiveDocumentShapes(1)OLEFormatObject

MsgBox myObjectText

'对于嵌入式文本框控件

Set myObject = ActiveDocumentInlineShapes(1)OLEFormatObject

MsgBox myObjectText

'对于word的文本框图形（非控件）

Set myObject = ActiveDocumentShapes(1)TextFrameTextRange

MsgBox myObjectText

End Sub

Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolic  Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序 。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

以上就是关于在word中使用VBA区分标题和正文全部的内容，包括:在word中使用VBA区分标题和正文、用vba实现word 读取特殊位置内容、vba word 获取文本框的文字等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！