lzhenl 发表于 2019-8-26 16:34

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

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 发表于 2019-8-26 16:47

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

lzhenl 发表于 2019-8-26 16:51

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

我想把它转成易语言,这样就可以批量操作了
页: [1]
查看完整版本: 求大神把vb源码转换成易语言