JS调用VBA实现简体和繁体的互换
2007-01-09 09:14
316 查看
<!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() {
var wApp = new ActiveXObject("Word.Application")
var wDoc = wApp.Documents.Add()
wApp.visible = "False"
var username = new String()
txt = document.all.txt2.value
wApp.Selection.TypeText(txt)
wApp.WordBasic.ToolsTCSCTranslate(0,0,0) //转换成简体
wDoc.Active
var start = wDoc.Paragraphs(1).Range.Start
var end = wDoc.Paragraphs(wDoc.Paragraphs.Count).Range.End - 1
document.all.txt1.value = wDoc.Range(start,end).text
wApp.ActiveWindow.Close(0)
wApp.Quit()
}
//-->
</script>
<META content="MSHTML 6.00.2900.2995" name=GENERATOR></HEAD>
<BODY>
<table>
<tr><td>简体</td><td>繁体</td></tr>
<tr><td><TEXTAREA style="HEIGHT: 449px" cols=50 name="txt1"></TEXTAREA></td>
<td><TEXTAREA style="HEIGHT: 449px" cols=50 name="txt2"></TEXTAREA></td><tr><td>
<input type="button" value="简体==>繁体" onclick="j2f()" name="btn1"></td>
<td><input type="button" value="繁体==>简体" onclick="f2j()" name="btn2"></td></tr>
</table></BODY></HTML>
<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() {
var wApp = new ActiveXObject("Word.Application")
var wDoc = wApp.Documents.Add()
wApp.visible = "False"
var username = new String()
txt = document.all.txt2.value
wApp.Selection.TypeText(txt)
wApp.WordBasic.ToolsTCSCTranslate(0,0,0) //转换成简体
wDoc.Active
var start = wDoc.Paragraphs(1).Range.Start
var end = wDoc.Paragraphs(wDoc.Paragraphs.Count).Range.End - 1
document.all.txt1.value = wDoc.Range(start,end).text
wApp.ActiveWindow.Close(0)
wApp.Quit()
}
//-->
</script>
<META content="MSHTML 6.00.2900.2995" name=GENERATOR></HEAD>
<BODY>
<table>
<tr><td>简体</td><td>繁体</td></tr>
<tr><td><TEXTAREA style="HEIGHT: 449px" cols=50 name="txt1"></TEXTAREA></td>
<td><TEXTAREA style="HEIGHT: 449px" cols=50 name="txt2"></TEXTAREA></td><tr><td>
<input type="button" value="简体==>繁体" onclick="j2f()" name="btn1"></td>
<td><input type="button" value="繁体==>简体" onclick="f2j()" name="btn2"></td></tr>
</table></BODY></HTML>
相关文章推荐
- 利用客户端js实现汉字简体繁体转换
- 利用js实现简体中文转繁体
- [转]用VB实现简体繁体互换
- js 实现繁体和简体之间的转换
- 网页中实现 js 繁体简体切换
- js实现网页中简体与繁体互转
- 如何通过js跨域调用ASP.NET Web API (请问如何实现在javascript中通过http get的方式跨域调用ASP.NET Web API?)
- IE中js调用脚本实现打印预览(按钮本身不打印)
- iOS开发在js中调用oc可以实现在HTML5中调用手机系统的相册,拍照等。
- 用js实现多域名不同文件的调用方法
- 微擎调用微信JS-SDK实现网页内弹出微信扫一扫
- JSPatch实现原理详解:让JS调用/替换任意OC方法
- Vue2.0实现调用摄像头进行拍照功能以及图片上传功能引用exif.js(2)
- RTree算法Java实现 JSI RTree Library的调用实例 标签:jsi-rtree-library
- Android实现js及webview交互之在html页面中调用系统摄像头
- C#自定义繁体和简体字库实现中文繁体和简体之间转换的方法
- C#中实现简体,繁体web页面[转贴]
- jquery/js实现一个网页同时调用多个倒计时(最新的)
- js的链式调用-如何实现类似jquery的链式调用
- 【转】JsBridge实现JavaScript和Java的互相调用