虞美人666666
请教vba中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 ...
word 使用vba 怎么改一个内容？
操作步骤。
第一，首先将需要批量替换的多个Word文档放在同一文件夹下面。
第二，新建一空白Word文档，右击空白工具栏，单击“控件工具箱”，就可以看到屏幕上调出的控件工具箱。
第三，在控件工具箱上单击“命令按钮”，文档中就放置了一个按钮了。
第四，双击该按钮，进入VB代码编写模式，将以下代码复制进去。
Private Sub CommandButton1_Click()Application.ScreenUpdating = FalseDim myPas As String, myPath As String, i As Integer, myDoc As DocumentWith Application.FileDialog(msoFileDialogFolderPicker) .Title = ＂选择目标文件夹＂ If .Show = -1 Then myPath = .SelectedItems(1) Else Exit Sub End IfEnd WithmyPas = InputBox（＂请输入打开密码：＂）With Application.FileSearch .LookIn = myPath .FileType = msoFileTypeWordDocuments If .Execute > 0 Then For i = 1 To .FoundFiles.Count Set myDoc = Documents.Open(FileName:=.FoundFiles(i), Passworddocument:=myPas) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ＂大家好＂ .Replacement.Text = ＂你好＂ .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll myDoc.Save myDoc.Close Set myDoc = Nothing Next End IfEnd WithApplication.ScreenUpdating = TrueEnd Sub 第五，保存上面代码，退出VB编辑模式，返回Word文档界面。
第六，单击选中该按钮，再单击控件工具箱的第一个按钮“退出设计模式”。
第七，进行测试：点击按钮，选择要放置多个WORD文档所在的文件夹，确定后即可完成！注意如果WORD文档没有加密的话，密码项就不填，直接确认。
就会发现该文件夹下面的所有WORD文档中“大家好”已被替换为“你好”了。
WORD、高手们、宏、VBA、宏有关批量运行
Sub 批量操作WORD() Dim path As String Dim FileName As String Dim worddoc As Document Dim MyDir As String MyDir = ＂G:\360data\重要数据\桌面\新建文件夹 （2）＂ '文件夹路径根据需要自己修改，需要处理的文件都放该文件夹内 FileName = Dir(MyDir & ＂\*.doc*＂, vbNormal) Do Until FileName = ＂＂ If FileName ThisDocument.Name Then Set worddoc = Documents.Open(MyDir & ＂\＂ & FileName) worddoc.Activate Call 处理WORD '调用宏，换成你自己宏的名字 worddoc.Close True FileName = Dir() End If LoopSet worddoc = NothingEnd Sub'======================下面的宏换成你自己的宏=================================Sub 处理WORD() ActiveDocument.Paragraphs(1).Range.Select Selection.Font.Size = 72End Sub
word vba中怎样找到一个词所在的那一句
Private Sub CommandButton1_Click()Dim p, r, s, ts= ＂石膏板造型顶＂With Selection.Find.ClearFormatting.MatchWholeWord = True.MatchCase = Falset = .Execute(FindText:=s)End Withp= Selection.Information(wdActiveEndPageNumber)r= Selection.Information(wdFirstCharacterLineNumber)If t ThenMsgBox ＂成功，已找到“＂ & s & ＂”＂ & vbCrLf & _＂页码：＂& p & vbCrLf & ＂行数：＂ & r, vbOKOnly, _＂成功＂ElseMsgBox ＂很遗憾，没有找到“＂ & s & ＂”＂, vbOKOnly, _＂遗憾＂End IfEnd Sub
word vba中 Selection.find 疑惑.
Private Sub CommandButton1_Click()Dim p, r, s, ts= ＂石膏板造型顶＂With Selection.Find.ClearFormatting.MatchWholeWord = True.MatchCase = Falset = .Execute(FindText:=s)End Withp= Selection.Information(wdActiveEndPageNumber)r= Selection.Information(wdFirstCharacterLineNumber)If t ThenMsgBox ＂成功，已找到“＂ & s & ＂”＂ & vbCrLf & _＂页码：＂& p & vbCrLf & ＂行数：＂ & r, vbOKOnly， _＂成功＂ElseMsgBox ＂很遗憾，没有找到“＂ & s & ＂”＂, vbOKOnly， _＂遗憾＂End IfEnd Sub...
word vba中强制保留小数,如199保留为199.00
方法一：做一个代码块，供主程序调用。
例如：Sub w(a As String) If Right(a, 3) ＂.＂ ThenActiveDocument.Range.InsertAfter (a & ＂.00＂)'此句改为你实际要放数字的地方End If End Sub'调用时，要带参数，参数a 你计算出来的结果 [张志晨注] 如：w 123输出为123.00 我已测试，绝对可用！方法二：使用格式化语句：format(numer,＂#.00＂) numer 为你计算出来的数字。
方法三：如果需要Hi Me========================================您的问题==我的课题 奉献知识==辉煌生命黑龙江省 张志晨========================================
用vba代码怎么 检查word两处数字是否一致（数字的位置不固定）
Sub 宏2()Dim arr()Selection.Find.ClearFormattingWith Selection.Find.Text = ＂该项目的总投资为*元＂.Replacement.Text = ＂＂.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = False.MatchAllWordForms = False.MatchSoundsLike = False.MatchWildcards = TrueEnd WithDon = n + 1ReDim Preserve arr(1 To n)Selection.Find.Executesr = Selection.Rangearr(n) = Mid(sr, 9)Loop Until Selection.Find.Execute = Falseeq = TrueFor i = 1 To n - 1If arr(i) arr(i + 1) Theneq = FalseExit ForEnd IfNextIf eq = True ThenMsgBox ＂相等＂ElseMsgBox ＂不相等＂End IfEnd Sub
急！word做邮件合并时,试图分别保存每一条记录,但VBA里这段代...
For i = 1 To n 'n是listview1的行数 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ListView1.ListItems(i).SubItems(0) 'Findstr=listview1的第i行第1列对应单元格的内容 .Replacement.Text = ListView1.ListItems(i).SubItems(1) 'Findstr=listview1的第i行第2列对应单元格的内容 .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ListView1.selectedItem = i Next MsgBox ＂处理完毕！＂， vbInformation + vbOKOnly， ＂消息＂ ListView1.selectedItem = 1...
转载请注明出处51数据库 » word vba execute
