Question

word vba宏语言循环

Sub 英文转公式()
'
' 英文转公式 宏
'
'
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

请大神帮忙把这变成循环的,可以搜索全文档
或者说你有写代码的液可以发给我吗

Answer 1

安装完整版的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的宏功能。

Answer 2

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

追问

不行啊,我要的是把word的英文都变成公式

追答

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 Replace:=wdReplaceAll
End Sub

追问

还是不行,或者你直接帮我做个代码出来吧,我可以再加点分

追答

文档附上来，然后写个说明吧

Answer 3

不知道有没有理解错你的意思，你指的是所有打开的文档么？
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

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

追问

不是,是把一个文档的英文变成公式

追答

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
do
findtxt = Selection.Find.Execute(Replace:=wdReplaceOne)
if Not findtst then Selection.OMaths.Add Range:=Selection.Range
loop while findtxt

每循环一次，修改一个关键字，止至全部

追问

哪里有mysel 不明所以然

追答

没有。。。你把这段复制就可以了

Answer 4

Selection.Find.Execute 把这句 改成：

Selection.Find.Execute Replace:=wdReplaceAll

追问

这个会直接在英文的前面直接创建空白新公式,没有起到作用啊.

追答

英文替换成公式是什么意思， 刚才那句是换成 全部替换

追问

就是把一个文档里面的英文都转成公式

追答

Sub 英文转公式()
'
' 英文转公式 宏
'
'

Selection.Find.ClearFormatting
Do
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
Loop Until Selection.Find.Found = False
End Sub