关于vba word的一些用法

word vba 里面有页（Page）、段落（Paragraph）对象，但是却没有行对象。

在对word文档进行逐行遍历时，需要知道word文档内容的总行数。

word vba 中提供了一个便捷的方法可以快速地获得word文档内容的总行数。
在word vba 中利用Document对象的BuiltInDocumentProperties属性可以获得文档的各种属性的值，其中总行数可以用以下的代码获得。

Sub totalLine()
Dim iLine As Long
Const wdPropertyLines = 23
Dim oDoc As Document     Set oDoc = Word.ActiveDocument
'获取当前word文档内容的总的行数
iLine = oDoc.BuiltInDocumentProperties(wdPropertyLines)
MsgBox iLineEnd Sub

p= Selection.Information(wdActiveEndPageNumber) '当前页码
r= Selection.Information(wdFirstCharacterLineNumber) '当前行

关于vba word的一些用法相关推荐

(VBA)Word中对选中的行（代码行）自动编号并修改注释的颜色
说实话,CSDN的这个插入代码的控件很好用,特别是自动添加行号的功能. 下面这段VBA代码就是在Word中,对你编辑的代码添加行号和对"//"以后的注释部分加上颜色. 用法:选中你 ...
VBA word自动排版（10）-结合SQL数据库批量替换WORD文本
笔者的使用环境是SQL-SERVER2014 和VS2017 首先在SQL-server中建立如下表格序号列名1 列名2 001 aa bb 002 bb cc 003 cc aa 以下是word ...
word通配符使用法详解
在Word中有一项"查找"的功能,利用它我们可以迅速地找到要编辑或者修改的文字,该功能的使用方法如下:单击"编辑"菜单中的"查找"命令,即可 ...
vba word 查找_教你一招！学会这些word小技巧，班级数据管理不犯愁，老师们一定要知道！...
文字批量标红加粗 Excel的功能虽然很强大,但还是有一些比较难解决的问题,例如下图所示,我们需要把表格中的"天"字批量标红加粗,该怎么做呢? 如果直接用Excel处理,因为不能用 ...
vba word 查找_知乎高赞：Word有哪些好用的技巧，让你相见恨晚？
在使用Word过程中,若是掌握一些批量技巧,可以让你工作效率翻番,本期Word妹与大家分享几个超级好用的Word技巧. 1.批量对齐图片选中全文,按Ctrl+H打开查找和替换对话框,之后在查找中输入 ...
vba word 查找_知乎高赞：Word中有哪些批量神技，让你相见恨晚
在使用Word过程中,若是掌握一些批量技巧,可以让你工作效率翻番,本期Word妹与大家分享几个超级好用的Word技巧. 1.批量对齐图片选中全文,按Ctrl+H打开查找和替换对话框,之后在查找中输入 ...
VBA——word中书签与VS的完美搭配
强烈推荐一个大神的人工智能的教程:http://www.captainai.net/zhanghan [VBA简介] VBA(Visual Basic for Applications)是Visua ...
vba word 查找_Word批量查找替换VBA代码
编写该代码的目的: 初衷该代码最初用于我自己弄得一个用于批量化写word报告的东西,因为我原来需要写一堆格式化的报告,不同报告间除了数据发生了变化,其他几乎一模一样,我想偷懒(主要是我容易写错),就 ...
关于VBA中Evaluate的用法
Evaluate用法:将字符串转换为值或对象. 举例说明: 一.将字符串公式转换为一个值在VBA中,双引号之间为字符串.(字符串在单元格中靠左显示,数值则靠右显示) 下图中给A1单元格赋值为1+2+ ...
Delphi操作word的基本用法
刚把delphi捡起来,第一个要做的竟然操作word,总结一下. 一. 定义word应用程序,文档对象,比如: wordApp: OleVariant; wordDoc: OleVariant; ...

关于vba word的一些用法

关于vba word的一些用法相关推荐

最新文章

热门文章