用VBA取得WORD当前光标所在位置的行号列号和页数

最新推荐文章于 2024-05-29 08:38:12 发布
原创 最新推荐文章于 2024-05-29 08:38:12 发布 · 1.4w 阅读 · 11 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#vba

本文介绍如何利用MsgBox函数结合Word对象模型，获取当前活动页面的页码、所在列号和行号，并展示具体实现代码。
部署运行你感兴趣的模型镜像

MsgBox   "The   selection   is   on   page   "   &   _ 
                Selection.Information(wdActiveEndPageNumber)   &   ";   Column   "   _ 
                &   Selection.Information(wdFirstCharacterColumnNumber)   &   _ 
                ";   Line   "   _ 
                &   Selection.Information(wdFirstCharacterLineNumber) 

您可能感兴趣的与本文相关的镜像

Stable-Diffusion-3.5

Stable-Diffusion-3.5

图片生成
Stable-Diffusion

Stable Diffusion 3.5 (SD 3.5) 是由 Stability AI 推出的新一代文本到图像生成模型，相比 3.0 版本，它提升了图像质量、运行速度和硬件效率

wolfwaretech
关注
Word VBA: 按照章节号进行查找、跳转、选择，以及章节号比较
TomasZh的博客
04-25 1265
Word自带的查找章节号功能并不好用，有时甚至有些莫名其妙。当文档篇幅很大时，以下几个VBA函数可以高效处理文档工作。
c#实现VSTO 在光标处填充内容
代码的专栏
07-30 1797
                Microsoft.Office.Interop.Word.Document doc = Globals.ThisAddIn.Application.ActiveDocument;//获取当前最新一个打开的文档                 Selection focusSelect = Globals.ThisAddIn.Application.Selectio...
vsto光标定位
06-16
对编辑区的鼠标焦点定位，使用的是C#语言，HomeKey():回到当前文档开头 EndKey()：回到当前文档的尾部 GoTo():查找 MoveDown():向下移动 MoveUp ():向上移动
Word VBA获取光标的位置.txt（源码）
01-11
利用Word Selection对象获取光标的位置属性：所在页、所在段落、所在行、所在列
[图解]在输入框和文本框中获取和设置光标位置，以及选中文本和获取选中文本值的方法 --- 详解，兼容所有浏览器。...
weixin_34233679的博客
03-09 790
写在前面 最近在segmentfault上看到它的日期输入控件，感觉挺有意思。好吧，动手写一个，加到自己的代码库里吧。 然后问题来了，在上面图片中，我们很明显的看得出这里涉及光标位置的控制。比如说当我输入1993的3之后，光标必须要得插入到-中划线的下个输入点。 在网上找了找获取和设置光标位置的方法，发现是资料是相当的破碎，并没有一个详细的介绍。 所以我来一个详细的。 好了，不要啰...
Word VBA中的光标操作
热门推荐
yivifu的专栏
01-02 1万+
本文总结了Word VBA中的Selection常用操作，包括移动光标、查找和替换、输入内容、获取其他相关对象等，并附上了Information方法的参数详细说明。本文绝非简单照抄MSDN文档，而是包含了一些有一定难度的实用代码片段。
守柔SHOUROU Word VBA编程代码集锦
21. **VBPROJECT的引用列表与示例**：展示了如何管理和使用Word VBA项目的引用。 22. **制作动态链接库(*.DLL)文件和引用**：创建和在Word中调用外部DLL文件进行扩展功能。 23. **语音朗读**：通过VBA实现文档的语音...
微软Word VBA编程实战教程
5. 文档定位与控制：如检查光标位置的分页符，以及对命令栏、控件和对话框的深入理解。 6. 用户交互定制：如修改右键菜单，实现自定义功能。 7. 命令与函数：提供了一些实用的函数，如获取指定行号的文本、选择特定...
微软Word VBA编程实例大全
本资源是一份详细的Microsoft Word VBA编程范例源代码集，共计122页，涵盖了丰富的Word自动化操作技巧。内容包括但不限于以下几个核心知识点： 1. 基础操作： - 删除空白段落 - 以指定字符分割段落并插入时间序列...
守柔SHOUROU的Word VBA编程代码大全
"微软Word_vba范例源代码.pdf" 是一份包含大量Microsoft Word VBA (Visual Basic for Applications)编程示例的文档，总计122页，由守柔(SHOUROU)编撰。这份文档涵盖了从基础操作到高级功能的各种代码实践，旨在帮助...
Word VBA源代码
10-04
- **目标读者**：适合具有一定Word基础并对VBA感兴趣的学习者，旨在帮助读者提升Word操作能力和VBA编程水平。 #### 二、空白段落的删除 - **功能描述**：该代码用于识别并删除文档中的空白段落，有助于清理文档结构...
一个统计Word文档中行数的VBA例程
红泥屋
07-02 4993
这是一个计算Word中文档行数的例程（表格中的行数不算）。   Sub test() Dim i As Integer Dim t As Table i = ActiveDocument.range.ComputeStatistics(wdStatisticLines) For Each t In ActiveDocument.Tables
返回所选(当前)段落指定行号的文本内容一(VBA)
飞翔的专栏
05-05 4556
注意事项:第一个代码可以返回多段落选定区域的行号;第二个代码可以返回所选内容的第一个段落中的指定行号的文本内容.  Dim LineCount As Integer Sub LinesCount() Dim l As String On Error Resume Next 如果光标未选中内容则将第一个光标所在段落选中 If Select
在word中用vba为选中区域自动添加行号或删除行号
littlezhuhui的专栏
09-29 1964
需求说明 用word编辑文档时，希望快速为选中内容添加行号或删除行号。如果手动来做，当行数很多时，就会比较麻烦，这时VBA就可以派上用场。 vba源码 '为选中内容添加行号 Sub 添加行号() ' n = 0 Dim selectdRange As Range Set selectdRange = Selection.Range ...
(VBA)Word中对选中的行（代码行）自动编号并修改注释的颜色
明亮的专栏
01-28 1万+
说实话，优快云的这个插入代码的控件很好用，特别是自动添加行号的功能。 下面这段VBA代码就是在Word中，对你编辑的代码添加行号和对“//”以后的注释部分加上颜色。   用法：选中你希望添加行号的所有行，运行此VBA，即可在每行首添加“#001 ”字样的行号。对你选中的行，从1开始自动编号。你也可以把这段代码设置成一个按键，每次只要选中希望编号的行，然后点一下按键运行一下即可。   有
VBA 实例：Word获得当前表的信息
灵台方寸山斜月三星洞
10-18 4834
Sub 获得当前表的序号() With Selection If .Information(wdWithInTable) = True Then If .Cells.Count = 1 Then StrAddr = "T" & Selection.Tables(1).Range.Start &...
怎么得到焦点所在的单元格在表中的位置
起跑线的专栏
04-21 909
注意：数字从0开始的！！请点击每行 aaaaaaaaaaaa bbbbbbbbb aaaaaaaaaaaa bbbbbbbbb aaaaaaaaaaaa
java读取word页码_VBA代码读取word文档页脚
weixin_33280675的博客
02-27 436
我有一个完整的word文档表单的文件夹，我有一个excel文件，将表单上的所有答案读入电子表格中的不同工作表 . 导出数据的工作表取决于word文档的文件名 .这目前工作正常 .但是，我现在需要它能够考虑存储在word文档页脚中的表单的版本号，但我不知道如何引用它 .对于VBA来说，我是一个非常棒的人，所以没有尝试过多少 .我尝试过的VBA可以在下面找到，但不出所料 .Sub ReadWordDo...
VBA获取WORD数据
最新发布
豪情云天博客,分享经典好用代码,和工具,感谢大家的关注和支持!
05-29 659
【代码】VBA获取WORD数据。
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值