javascript操作word实现替换功能

最新推荐文章于 2024-09-22 11:17:00 发布

xhcyb

最新推荐文章于 2024-09-22 11:17:00 发布

阅读量1.1k

点赞数

文章标签： javascript 浏览器 path button office function

本文链接：https://blog.csdn.net/xhcyb/article/details/1865360

版权

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