1.excel中vba编程中Selection.Find的具体解释
What:=bm,查找的内容;(要搜索的数据。可为字符串或任意 Microsoft Excel 数据类型。)
After:=ActiveCell,找到该内容后激活内容所在的单元格;(表示搜索过程将从其之后开始进行的单元格。此单元格对应于从用户界面搜索时的活动单元格的位置。请注意:After 必须是区域中的单个单元格。要记住搜索是从该单元格之后开始的;直到此方法绕回到此单元格时,才对其进行搜索。如果不指定该参数,搜索将从区域的左上角的单元格之后开始。)
LookIn:=xlValues,(信息类型。)
LookAt:=xlPart,(可为以下 XlLookAt 常量之一:xlWhole 或 xlPart)
SearchOrder:=xlByColumns,(可为以下 XlSearchOrder 常量之一:xlByRows 或 xlByColumns)
SearchDirection:=xlNext,(搜索的方向)
MatchCase:=False,(如果为 True,则搜索区分大小写。默认值为 False。)
SearchFormat:=False,(只在已经选择或安装了双字节语言支持时适用。如果为 True,则双字节字符只与双字节字符匹配。如果为 False,则双字节字符可与其对等的单字节字符匹配。)
该段代码的意思是:查找bm(这里bm应该是一个表达式),找到该内容,激活其所在的单元格,然后选择性黏贴(SkipBlanks:=True,则不将剪贴板上区域中的空白单元格粘贴到目标区域中。默认值为 False)
祝你顺利!
2.word通配符怎么用
Word中通配符怎么用?
使用MicrosoftWord可以查找和替换文字、格式、段落标记、分页符(分页符:上一页结束以及下一页开始的位置。MicrosoftWord可插入一个“自动”分页符(或软分页符),或者通过插入“手动”分页符(或硬分页符)在指定位置强制分页。)和其他项目。可以使用通配符和代码来扩展搜索。
Word中通配符应用
1.“?”
该通配符可以用来代表任意单个字符,当大家不清楚查找目标中指定位置的内容是什么的时候,就可以用“?”来代替。注意一个“?”只能代表一个未知字符。如果要查找不止一个字符,可以用多个“?”来通配表示。但是如果我们不知道到底有多少个字符,该如何使用呢?如果是这样,就必须要用到下面这个通配符了。
2.“*”
该通配符可以用来代替任意多个字符。比如我们输入“*n”,系统就会自动找出所有以“n”结尾的单词或字符集,而不管它前面有多少个字符。
3.“*[/
该通配符可以表示单词的开头。如输入“
4.“*[/>”
该通配符可以表示单词的结尾。如输入“(er)>”,系统会自动查找以“er”结尾的单词,如“thinker”,但不查找“interact”。
5.“*[/[x1x2。
]”(x1,x2表示任意字符)
该通配符可以指定要查找该括号内(x1,x2…)的任意字符。
如输入“m[ae]n”,则系统会查找“man”和“men”。
6.“*[/[x1-x2]”(x1,x2表示任意字符)
该通配符可以设置指定范围(x1到x2之间,
包括“x1”和“x2”)内任意单个字符。如输入[r-t]ight
则系统会查找“right”和“sight”。(即在“r”和“t”之间的任意单个字符)。需要注意的是。括号内的字符要按升序的方式来排列。如不能输入“[t-r]ight”来表示该范围。
7.“*[/[!x1-x2]”(x1,x2表示任意字符)
该通配符可以设置括号内指定字符范围(x1到x2之间,不包括包括“x1”和“x2”)以外的任意单个字符。如输入“t[!a-m]ck”,则系统就会查找到“tock”和“tuck”,但不查找“tack”和“tick”。
8.“*[/{n}”(n表示正整数)
该通配符表示n个重复的前一字符或表达式。如输入“ro{2}m”查找“room”,但不查找“rom”。
9.“*[/{n,}”(n表示正整数)
该通配符表示至少
n个前一字符或表达式。 如输入“fe{1,}d”,则系统会查找“fed”和“feed”。
10.“*[/{n,m}”(n,m表示正整数)
该通配符表示n到m个重复的前一字符或表达式。如输入“20{1,3}”查找“20”、“200”和“2000”。
小提示:在使用过程中需要注意四个方面:
(1)在使用通配符时我们可使用括号对通配符和文字进行分组,以指明处理次序。例如,可以通过键入“”来查找“presorted”和“prevented”。
(2)可使用“\n”通配符来搜索表达式,然后将其替换为经过重新排列的表达式,例如,在“查找内容”框键入“(Newton)(Christie)”,在“替换为”文本框键入“\2\1”,Word
将找到“Newton Christie”并将其替换为“Christie Newton”。
(3)在选中“使用通配符”复选框后,Word
只查找与指定文本精确匹配的文本(请注意,“区分大小写”和“全字匹配”复选框会变灰而不可用,表明这些选项已自动选中,不能关闭这些选项)。
(4)如果要查找已被定义为通配符的字符。请在该字符前键入反斜扛(\),例如,要查找问号,可键入“\?”。
3.Word 查找+选取:从当前位置开始选取到指定字符AAA结束
使用word查找功能只能实现查找字符AAA功能,使用VBA代码可实现:
Dim cFnd$, s&, e&
cFnd = "ss"
s = Selection.Start
Selection.Find.ClearFormatting
With Selection.Find
.Text = cFnd
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
e = Selection.End
ActiveDocument.Range(s, e).Select
4.word文档 怎样在每个字后加上符号“
Sub 替换所有半角字符为全角() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Dim dot(10, 2) As String dot(0, 0) = "," dot(0, 1) = "," dot(1, 0) = ":" dot(1, 1) = ":" dot(2, 0) = "\""" dot(2, 1) = "“" dot(3, 0) = "!" dot(3, 1) = "!" For i = 1 To 3 With Selection.Find .Text = dot(i, 0) .Replacement.Text = dot(i, 1) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Next Selection.Find.Execute Replace:=wdReplaceAllEnd Sub我前段时间写的 你看看吧。
5.Word中电子签名无法打印
1.新建一个Word在打开,然后将光标移动到中间,将字体设置为叶根友钢笔字体,大小按照你需要的大小,我这里设置为22。注:(其实就是需要获得一个签名图片,也可以找个网站在线生成也行)
2.将名字打好以后,将光标移到后边一点
3.然后利用截图工具屏幕截图,QQ截图都可以,将名字截为图片文件,以名字顾天乐为例
4.然后打开需要签名的PDF文档打开以后右边_有个“签署”(繁体版)然后按照图片来操作
5.打开以后右边_有个“签署”(繁体版)然后按照图片来操作
6.然后选择刚才的截图签名
7.接下来添加到文件中所要签名的位置就可以了,以后需要签名的时候只需要打开PDF档,点签名就可以了,不需要重复操作,非常方便,如果需要签名接近本人签名的话,可以买一个手写板,让需要签名的人录一下签名就可以了。
6.请教VBA中的Selection.Find.Execute
Execute 方法================================ 应用于 Find 对象的 Execute 方法。
================================ 运行指定的查找操作。如果查找成功,则返回 True。
Boolean 类型。expression.Execute(FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward, Wrap, Format, ReplaceWith, Replace, MatchKashida, MatchDiacritics, MatchAlefHamza, MatchControl) expression 必需。
该表达式返回 Find 对象。FindText Variant 类型,可选。
指定需搜索的文本。可用空字符串 ("") 搜索格式,也可通过指定相应的字符代码搜索特殊字符。
例如,“^p”对应段落标记,“^t”对应制表符。有关可以使用的特殊字符列表,请参阅查找和替换文本或其他项。
MatchCase Variant 类型,可选。如果为 True,则指定查找文本区分大小写。
相当于“编辑”菜单“查找和替换”对话框中的“区分大小写”复选框。MatchWholeWord Variant 类型,可选。
如果为 True,则查找操作只定位于完全匹配的单词,而并非长单词中的部分文字。相当于“查找和替换”对话框中的“全字匹配”复选框。
MatchWildcards Variant 类型,可选。如果为 True,则查找的文字包含特殊搜索操作符。
相当于“查找和替换”对话框中的“使用通配符”复选框。MatchSoundsLike Variant 类型,可选。
如果为 True,则查找操作定位于与要查找的文字发音相近的单词。相当于“查找和替换”对话框中的“同音”复选框。
MatchAllWordForms Variant 类型,可选。如果为 True,则查找操作定位于要查找的文字的所有形式(例如,查找“sit”的同时,还查找“sitting”和“sat”),相当于“查找和替换”对话框中的“查找单词的各种形式”复选框。
Forward Variant 类型,可选。如果为 True,则向下(向文档尾部)搜索。
Wrap Variant 类型,可选。如果搜索从不是文档的起始位置开始,并已搜索到文档的末尾(如 Forward 设置为 False,则相反),用本参数控制接下来的操作。
当存在选定内容或区域,而又没有在该选定内容或区域中找到搜索文字时,也可用本参数控制接下来的操作。可取下列 WdFindWrap 常量之一。
WdFindWrap 可以是下列 WdFindWrap 常量之一: wdFindAsk 搜索完选定内容或者区域后,Microsoft Word 会显示一条消息,询问是否搜索文档的其他部分。 wdFindContinue 到达搜索区域的开始或者结尾时,继续执行查找操作。
wdFindStop 到达搜索区域的开始或者结尾时,停止执行查找操作。 Format Variant 类型,可选。
如果为 True,则查找操作定位于格式或带格式的文本,而不是查找文本。ReplaceWith Variant 类型,可选。
替换文字。若要删除由 Find 参数指定的文字,可使用空字符串 ("")。
与 Find 参数相似,本参数也可以指定特殊的字符和高级搜索条件。若要将图形对象或者其他非文本项指定为替换内容,可将这些项置于“剪贴板”上,然后将 ReplaceWith 指定为“^c”。
Replace Variant 类型,可选。指定执行替换的个数:一个、全部或者不替换。
可取下列 WdReplace 常量之一。WdReplace 可以是下列 WdReplace 常量之一:wdReplaceAll wdReplaceNone wdReplaceOne MatchKashida Variant 类型,可选。
如果为 True,则查找结果应与阿拉伯语文档中区分 kashidas 的文本相匹配。由于选择或安装的语言支持不同(例如,英语(美国)),此参数可能不可用。
MatchDiacritics Variant 类型,可选。如果为 True,则查找操作在从右向左的语言的文档中按照匹配音调符号来匹配文字。
由于选择或安装的语言支持不同(例如,英语(美国)),此参数可能不可用。MatchAlefHamza Variant 类型,可选。
如果为 True,则在阿拉伯语文档中,查找内容应与区分 Alef Hamzas 的文本相匹配。由于选择或安装的语言支持不同(例如,英语(美国)),此参数可能不可用。
MatchControl Variant 类型,可选。如果为 True,则在从右向左的语言的文档中,查找内容应与区分双向控制字符的文本相匹配。
由于选择或安装的语言支持不同(例如,英语(美国)),此参数可能不可用。说明 如果 MatchWildcards 为 True,可为 FindText 参数指定通配符和其他高级搜索准则,例如,“*(ing)”查找任何以“ing”结尾的单词。
若要搜索符号字符,可键入脱字符号 (^)、零 (0),然后键入符号字符的代码。例如,“^0151”对应一条长划线 (—)。
除非另外指定,否则替换文本将沿用文档中被替换文本的格式。例如,如果用“xyz”替换字符串“abc”,那么加粗“abc”将被加粗字符串“xyz”所替换。
另外,如果 MatchCase 为 False,那么查找到的大写文本将被大写的替换文本替换,而无论搜索文本和替换文本是否大小写。上例中,“ABC”将被“XYZ”替换。
=================================== 应用于 Dialog 和 KeyBinding 对象的 Execute 方法。=================================== 对于 Dialog 对象:应用 Microsoft Word 对话框的当前设置。
对于 KeyBinding 对象:运行与指定的组合键相关的命令。expression.Execute 。
7.请教:如何对文档中有下划线的所有词语,一次性地在其前后各添加一
我做了VBA宏,只是划线在头在尾的部分不好办,中间的文字划线可以添加处理。
Sub AddSpace()
For i = 1 To 500 '假设全文500字
Selection.MoveRight Unit:=wdCharacter, Count:=1
If Selection.Font.Underline = wdUnderlineSingle Then
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=" "
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Font.Underline = wdUnderlineSingle
Selection.MoveRight Unit:=wdCharacter, Count:=1
For j = 1 To 10 '假设最长只有10个字划线
Selection.MoveRight Unit:=wdCharacter, Count:=1
If Selection.Font.Underline = wdUnderlineNone Then
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=" "
Selection.MoveRight Unit:=wdCharacter, Count:=1
Exit For
End If
Next j
End If
Next i
End Sub
转载请注明出处51数据库 » wordselection.find