<!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