如何解决如何在VBA中从Word文档的开头查找特定的关键字?
我正在使用Word VBA。我想从文档的开头找到一个特定的关键字“ MyTest”,然后重复进行直到找到所有出现的关键字。怎么做?
我使用宏记录,并获得以下代码:
<AirbnbStyleDatepicker
:trigger-element-id="'datepicker-trigger'"
:mode="'range'"
:fullscreen-mobile="true"
:date-one="dateOne"
:date-two="dateTwo"
:months-to-show="1"
@date-one-selected="val => { dateOne = val }"
@date-two-selected="val => { dateTwo = val }"
>
<template slot="previous-month-icon">
<i class="datePickerAsd__nav far fa-chevron-left"></i>
</template>
<template slot="next-month-icon">
<i class="datePickerAsd__nav far fa-chevron-right"></i>
</template>
</AirbnbStyleDatepicker>
这似乎只是从当前位置开始查找,并且会返回关键字的一个实例?
解决方法
宏记录器将无法为您提供最佳代码,因为它只能记录您在屏幕上所做的事情。这意味着它始终可以与Selection
对象一起使用,即您在屏幕上选择的任何对象。
相反,应使用一个Range
对象,该对象设置为要使用的文档部分。除非您使用ReplaceAll
,否则还需要重复执行Find
,直到找到所有匹配项为止。
下面是可以修改的通用例程。
Sub FindSomeTextAndDoSomething(textToFind As String)
Dim findRange As Range
Set findRange = ActiveDocument.Content
With findRange.Find
.ClearFormatting
.Text = textToFind
.Replacement.Text = ""
.Wrap = wdFindStop
.Format = False
Do While .Execute = True
'add code here to do something with the found text
'collapse range to continue
findRange.Collapse wdCollapseEnd
Loop
End With
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。