 减小字体
 增大字体
对WORD文档，我使用的文字型窗体区域的功能，所有区域定义好以后有个名字，也就是我要替换的名字。
VBSCRIPT代码：
<SCRIPT LANGUAGE="vbscript">
function word_onclick()
Set myDocApp = CreateObject("Word.Application")
myDocApp.Visible = True
myDocApp.Activate
set myDoc = myDocApp.Documents.Open("http://localhost/test/test.doc")
str = word_proc.textarea.value
myDoc.FormFields("test").Range = str
end function
</SCRIPT>
JAVASCRIPT代码：
<SCRIPT LANGUAGE="javascript">
function word_onclick()
{
var myDocApp =new ActiveXObject("word.Application");
myDocApp.visible = true;
myDocApp.activate();
var myDoc = myDocApp.documents.open("http://localhost/test/test.doc");
var str = word_proc.textarea.value;
myDoc.formFields("test").range = str;
}
</SCRIPT>
|
设为首页
加入收藏
联系我们
