word vba宏语言循环

发布网友 发布时间：2022-05-04 20:20

我来回答

共4个回答

热心网友 时间：2022-05-14 17:36

安装完整版的offiec2007不是精简版的，启动Word，选择“工具 → 宏 → 安全性”，将“安全级” 调到“最低”，再次打开word就可以。

　　Visual Basic for Applications（VBA）是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic 脚本。该语言于1993年由微软公司开发的的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA)，实际上VBA是寄生于VB应用程序的版本。微软在1994年发行的Excel5.0版本中，即具备了VBA的宏功能。

热心网友 时间：2022-05-14 18:54

Sub 英文转公式()
'
' 英文转公式 宏
'
'
Selection.WholeStory'只要加上这一句就行了
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^$"
.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
Selection.OMaths.Add Range:=Selection.Range
End Sub

热心网友 时间：2022-05-14 20:29

不知道有没有理解错你的意思，你指的是所有打开的文档么？
ct = Application.Documents.Count '获取已打开的所有文档
for i=1 to ct '用循环遍历所有文档

Application.Documents(i). activate
－－－－插入你的代码－－－－
next

另外Selection.Find.Execute改成
Selection.Find.Execute Replace:=wdReplaceAll
是替换本文档所有的关键字
Selection.Find.Execute Replace:=wdReplaceOne
这个是仅替换一个关键字

do
findtxt = mysel.Find.Execute(Replace:=wdReplaceOne)
loop while findtxt

这个循环是遍历本文档所有内容，逐一替换，如果未找到则退出

热心网友 时间：2022-05-14 22:20

Selection.Find.Execute 把这句 改成：

Selection.Find.Execute Replace:=wdReplaceAll