2,503
社区成员
发帖
与我相关
我的任务
分享word 繁简体的转换(vb)
希望结果如下：
在一个FROM中，通过OLE调用WORD的繁简体转换功能，宏已经录制，但不知道还需定义哪些变量，哪些方法。要怎样调用制好的宏。
且此功能要反复调用。
在一个FROM中，通过OLE调用WORD的繁简体转换功能，宏已经录制，但不知道还需定义哪些变量，哪些方法。要怎样调用制好的宏。
且此功能要反复调用。
...全文
请发表友善的回复…
发表回复
tgq1981 2004-06-18
- 打赏
- 举报
自己搞定：
Dim wordDoc As New Document
wordDoc.Application.Visible = True
Private Function Gb(ByVal str1 As String) '¼ò·±Ìåת»»º¯Êý
Selection.Text = str1
WordBasic.ToolsTCSCTranslate Direction:=0, Varients:=0, TranslateCommon:=0
Gb = Selection.Text
End Function
Dim wordDoc As New Document
wordDoc.Application.Visible = True
Private Function Gb(ByVal str1 As String) '¼ò·±Ìåת»»º¯Êý
Selection.Text = str1
WordBasic.ToolsTCSCTranslate Direction:=0, Varients:=0, TranslateCommon:=0
Gb = Selection.Text
End Function
