JS调用VBA实现简体和繁体的互换

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=zh-cn"><script type="text/javascript">
<!--
function j2f() {
 var wApp = new ActiveXObject("Word.Application")
 var wDoc = wApp.Documents.Add()
 wApp.visible = "False"
 var username = new String()
 txt = document.all.txt1.value
 wApp.Selection.TypeText(txt) //将文本框内容写入WORD中
 wApp.WordBasic.ToolsSCTCTranslate(0,0,0) //转换成繁体
 wDoc.Active
 var start = wDoc.Paragraphs(1).Range.Start //所有文本的起点
 var end = wDoc.Paragraphs(wDoc.Paragraphs.Count).Range.End -1 //所有文本的终点(段落结束多一个字符)
 document.all.txt2.value = wDoc.Range(start,end).text //起点->终点内的所有文本内容
 wApp.ActiveWindow.Close(0) //不保存就关闭,0为不保存
 wApp.Quit() //关闭ActiveXObject对象
}
function f2j

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值