<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>javascript操作word大全,javascript操作word实现替换功能</title>
</head>
<script language="javascript">
function makeword(){
try {
var wdApp = new ActiveXObject ( "Word.Application" );
}
catch(e) {
alert( '要打印该表，您必须安装office办公软件中的Word电子表格软件，/n同时浏览器须本网站为"可信任站点"！， 具体操作如下:/n1.打开浏览器工具->Internet选项(O),选择安全选项卡./n2.选择受信任站点,点击"站点",将本网站的地址"http://http://127.0.0.1:8080/web/index.htm"加入受信任站点,注意去掉下面的服务器认证项');return "";
}
if (typeof(ProceVisible)=="undefined"){
wdApp.visible = true;
}
Else{
if (ProceVisible=="true"){
wdApp.visible = true;
}
else{
wdApp.visible = false;
}
}
var path = "h:/test.doc";
var wdDoc=wdApp.Documents.Open(path);
//var range = wdApp.ActiveDocument.Bookmarks("bookmark").Range;
//range.InsertBefore("我爱智蓝");
var myRange = wdDoc.Range(2,6)
myRange.InsertBefore('Hello from inelblue!')
//替换功能
wdApp.Selection.Find.ClearFormatting()
wdApp.Selection.Find.Replacement.ClearFormatting()
var OldStr="[title]";
var NewStr="good";
wdApp.Selection.Find.Execute(OldStr, false,false, false, false, false, true, 1, true, NewStr, 2)
wdApp.ActiveDocument.Sections[0].Headers[0].Range.Find.ClearFormatting();
wdApp.ActiveDocument.Sections[0].Headers[0].Range.Find.Replacement.ClearFormatting();
wdApp.ActiveDocument.Sections[0].Headers[0].Range.Find.Execute(OldStr, false,false, false, false, false, true, 1, true, NewStr, 2);
}
</script>
<body>
<input type="button" name="Submit" value="按钮" onClick="makeword();">
</body>
</html>
1930
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
