求大神把vb源码转换成易语言

lzhenl

VB代码如下：


Sub 点击()
'
' 点击 宏
'Dim objWordApp As Object
Const wdFieldFormula = 49
Set objWordApp = GetObject(, "Word.Application")
objWordApp.Selection.Fields.Add objWordApp.Selection.Range, _
wdFieldFormula, _
"\b \bc\ (\r(3,x))", _
False
Set objWordApp = Nothing

End Sub

JuncoJet

VBA的功能，VB操作最简单没有之一
你直接贴在Word里的宏就行了

lzhenl

JuncoJet 发表于 2019-8-26 16:47
VBA的功能，VB操作最简单没有之一
你直接贴在Word里的宏就行了

我想把它转成易语言，这样就可以批量操作了