Vba Word查找关键字在第几页第几行

最新推荐文章于 2022-05-17 13:44:46 发布
最新推荐文章于 2022-05-17 13:44:46 发布
阅读量2.4k 收藏 6
点赞数
分类专栏： Vba
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Q215046120/article/details/106599023
版权

Sub GetRowIdByFind()

Dim myRange As Range

Dim sSelection As Selection

ActiveDocument.Select

Set myRange = ActiveDocument.Content

myRange.Find.Execute FindText:="2ºÅÂ¥25Â¥", Forward:=True

If myRange.Find.Found = True Then

    MsgBox "ÄãÒªÕÒµÄÄÚÈÝÔÚ:µÚ[" & myRange.Information(wdActiveEndPageNumber) & "]Ò³,µÚ[" & myRange.Information(wdFirstCharacterLineNumber) & "]ÐÐ"

End If

End Sub

mystert
关注
专栏目录
VBA 精选示例代码库
←か淡定☆ ヾ 的博客
09-13 2455
目录1 厘米&英寸&像素&Point 的转换 1 厘米&英寸&像素&Point 的转换 英寸（inch）转换为 Point Vinchs = 10 ' inch VPoints = Application.InchesToPoints(Vinchs) Debug.Print Vpoints 厘米（cm）转换为 Point VCentimeter= 1 ' cm VPoints = Application.CentimetersToPoi...
find vba 模糊_VBA中find的一些使用方法
weixin_39637233的博客
12-19 1564
用excel处理数据的时候，无论是使用VBA还是函数，查找和引用都是两大主要的工作，VBA中的find系列的方法(find、findnext、Range.FindPrevious)返回range对象，可以同时实现查找和引用，因此非常有用，下面列举一些常见的find的用法：SubFind1()'在某列查找Dimkk=Range("A:A").Find("A").RowMsgBoxkEnd...
VBA通过关键字查找工作簿、工作表的行
weixin_46655338的博客
05-17 5671
通过关键字查找工作表的行，如查找关键字：合计、汇总、总计……。查找时部分匹配，不是全匹配。查找不同工作簿中的多个工作表。汇总到工作表《汇总各表行》中，保留数值、格式，不保留公式。 Option Explicit Option Compare Text Sub 关键字查找工作簿行() 'Application.DisplayAlerts = False Dim i1, i2, i3, i4, i5, i6, i7, b, j Dim wb2 As Workbook Dim e
VBA操作WORD（四）：获知关键字所在段落及相关信息
rielzhou的博客
05-27 5020
代码如下： Sub 关键字所在的段落() With Selection .HomeKey unit:=wdStory, Extend:=wdMove If .Find.Execute(FindText:="关键字", Forward:=True) Then '.HomeKey unit:=wdStory, Extend:=wdExtend MsgBox (.Range.Paragraphs.Count) End If
Word技巧【转载】
weixin_30535167的博客
02-18 282
Word谁都会用，高手和菜鸟最明显的区别就是效率，有人可以轻车熟路一小时做完好几份Word，有人加班到深夜手酸脖子疼还没做好一份，不管用什么办公软件，效率都是第一追求。先看第一点： ❶如何快速选中文字 鼠标放在左侧页边距处： 单击可以选中鼠标点击位置的整行文字；双击可以选中整段文字；三击可以选中整篇文档中的文字（不过全选一般都用快捷键Ctrl+A) 点文字时...
VBA查询word中的字符串
长安山南君的博客
06-20 3554
Sub 查找相同字符个数() Text = InputBox("请输入您要查找到字符：", "信息提示") Dim result As String For i = 1 To 45 Text = "[" + Trim(str(i)) + "]" '注意数值转成字符串会在前面加上空格，所以要用trim去除空格 Text = Trim(Text) With ActiveDocume...
vba word 查找_VBA应用之Word篇
weixin_39637700的博客
12-11 2710
Hi，大家好，前面几期介绍了VBA的编程基础，大家都掌握了吗？可以通过公众号下方的菜单栏编程基础来回顾VBA编程基础今天我们就要开始VBA编程的实际应用了，这里我们先从Word开始，看看VBA如何应用在Word文档上面。我们先回想一下自己平时使用Word的情形，绝大部分使用Word的场景都是新建或打开已经存在的Word文档，然后开始一些编辑操作，例如增加，删除，查找，替换及排版等操作，操...
VBA实现从指定文件夹批量抓取Word文档内容并整理（上）
weixin_44869836的博客
04-27 6776
任务场景： 文件夹内已经汇总了几十上百篇Doc/Docx文档，可能是各部门的总结，可能是工会入会申请，或者其它半格式化（毕竟不是表格）内容，如果没有VBA帮忙，你就要挨个打开，之后copy-n-paste里面的特定内容到你的Excel表里； 你在网上白嫖了一段代码，但是发现能用是能用，但是摘出来的信息有几个突出问题：1）到处夹空格、夹不可见符号；2）因为Word排版的关系，抓到Excel里面有很多空单元格；3）抓出来的同类信息不在同一列（举例来说，同是一份俱乐部申请，A的“自我介绍“部分写1段，B的“自我
Excel-VBA宏编程实例源代码-自定义函数-第N次出现的值.zip
03-18
这个压缩包“Excel-VBA宏编程实例源代码-自定义函数-第N次出现的值.zip”显然提供了关于如何在VBA中编写自定义函数来查找并返回一个值在列表中第N次出现的具体实例。 首先，我们需要理解VBA的基础。VBA是基于Visual...
用 C# 实现 Word 的搜索功能
weixin_30267785的博客
10-21 701
一个项目要求用 Java 调用 Word 的 Wildcards 搜索功能，并将搜索的全部结果存入数据库。该项目使用 JACOB 作为操作的 Word 的接口，JACOB 是 Java 和 COM 的“桥”。 我对 Java 不熟，也没时间研究如何使用 JACOB，于是我使用 C# 调用 Office Component，反正 JACOB 是基于 JNI 调用 COM，我只要找到解决问题的方法即...
word vba 读出光标所在的列数_那些你必须要知道的Word小技巧——你知道怎样从第三页开始插入页码吗？...
weixin_39604189的博客
12-12 410
前期我们学习了一些关于Excel的小技巧，但其实在生活中，对于Word的使用更加频繁。我们今天就来一起看一看有哪些好用的技巧：1.快速插入随机文本有时候我们需要输入大段文字时，要不然需要在键盘上敲击，要不然就需要我们去其他地方复制。这里给大家教一个小技巧，只需要输入“=rand()”(英文状态下输入，只输入引号里面的内容)即可快速插入大段文字。2.文字快速对齐有时候我们写论文的时候，前面...
查询单词在文章中出现的行和行数
MasshotTer的博客
10-31 414
public static void main(String[] args){  File f=new File("d:/abc.txt");  FileReader fr=new FileReader(f);  BufferedReader br=new BufferedReader(fr);  List list=new ArrayList();  String s=null;  while(
VBA 收集 Word关键字批量处理
灵台方寸山斜月三星洞
03-12 1717
Word VBA 实例收集批量对关键字打标记 批量对关键字打标记 Option Explicit Sub 批量对关键字打标记() Dim Self$, CurrPath$, CurrFile$ Dim Doc As Document, p As Paragraph, i As Integer, keyArrLen As Integer, keyArray() As String CurrPath = ThisDocument.Path & "\" S
vb 查找word中的字符 单元格坐标_Word天，原来查找和替换功能这么强大
weixin_39956110的博客
11-24 454
你知道吗？在实际工作中Word查找和替换强大到让你怀疑人生，本期Word妹与大家分享一个在Excel难以解决问题，在Word中却可以轻松搞定的案例。如下图所示，如何将数据中含有汉字的内容删除，只保留非汉字部分或者直接提取汉字部分呢？先来看看在Excel中的解决办法：非汉字的提取：在单元格中输入公式=IFERROR(SUBSTITUTE(A1,MID(A1,MIN(IF(II,50,ROW($1:$...
python自动化办公之word文本框内容批量修改
weixin_52049671的博客
04-02 2445
使用word批量制作证书，发现制作好人证书单个保存时有点麻烦， 特用python实现批量修改word文本框内容，生成单个word文件。 本代码段中涉及word文档包含一张底图图片，及两个文本框。其他童鞋有需要修改多个文本框内容的，可依次添加。 # 导入包 import os import time from threading import Thread import pythoncom import win32com.client from openpyxl import...
VBA模块， Word中有关定位选择后对选中的内容进行查找替换
laocooon的博客
02-20 3814
Attribute VB_Name = "模块1" Sub 宏1() 单选 多选 判断 End Sub Sub 选择(s1 As String, s2 As String) Dim S, E Dim st Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .ClearFormatting .MatchWholeWord = True .
vba 查找excel关键字
最新发布
05-11
你可以使用 VBA 的 Find 方法来查找 Excel 中的关键字。以下是一个简单的示例： ```vb Dim keyword As String Dim searchRange As Range Dim foundCell As Range ' 设置要查找的关键字和查找范围 keyword = "apple" Set searchRange = ActiveSheet.Range("A1:B10") ' 查找关键字 Set foundCell = searchRange.Find(keyword) ' 如果找到了，将找到的单元格选中 If Not foundCell Is Nothing Then foundCell.Select End If ``` 在上面的示例中，我们首先定义了要查找的关键字和要查找的范围。然后，我们使用 `Find` 方法来查找关键字，并将找到的单元格存储在 `foundCell` 变量中。最后，如果找到了单元格，我们将其选中。 你可以根据需要进行修改，例如更改要查找的范围或将找到的单元格的值存储在变量中以供后续使用。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值