精华内容
下载资源
问答
  • 要将word文档的每页单独保存为一个word文档,首先需要能够逐页遍历word文档。 逐页遍历word文档可以使用word的定位功能。 代码如下: Sub SplitToOnePage() Const wdNumberOfPagesInDocument = 4 Const ...

     要将word文档的每页单独保存为一个word文档,首先需要能够逐页遍历word文档。

    逐页遍历word文档可以使用word的定位功能。

    代码如下:

    Sub SplitToOnePage()
        Const wdNumberOfPagesInDocument = 4
        Const wdGoToPage = 1
        Const wdGoToAbsolute = 1
        Dim oDoc As Document
        Dim oRng As Range
        Dim oDocTemp As Document
        Set oDoc = Word.ActiveDocument
        Dim sPath As String
        sPath = Word.ActiveDocument.Path
        Dim iPageNo As Long
        '获取总页数
        With oDoc
        iPageNo = .Range.Information(wdNumberOfPagesInDocument)
            For I = 1 To iPageNo
                '定位到页开始
                Set oRng = .GoTo(wdGoToPage, Which:=wdGoToAbsolute, Count:=I)
                oRng.Select
                '定位整个页面区域
                oRng.SetRange oRng.Start, oRng.Bookmarks("\page").End
                oRng.Copy
                Set oDocTemp = Word.Documents.Add
                With oDocTemp.Application.Selection
                    .Paste
                End With
                oDocTemp.SaveAs2 sPath & "\" & I & ".docx"
                oDocTemp.Close
            Next I
        End With
    End Sub
    =====================================
    可以保存任何内容
    
    Option Explicit
    
    Sub SplitPagesAsDocuments()
    	Dim oSrcDoc As Document
    	Dim oNewDoc As Document
    	Dim strSrcName As String
    	Dim strNewName As String
    	Dim oRange As Range
    	Dim nIndex As Integer
    	Dim fso As Object
    	Set fso     = CreateObject("Scripting.FileSystemObject")
    	Set oSrcDoc = ActiveDocument
    	Set oRange  = oSrcDoc.Content
    	oRange.Collapse wdCollapseStart
    	oRange.Select
    
    	For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
    		oSrcDoc.Bookmarks("\page").Range.Copy
    		oSrcDoc.Windows(1).Activate
    		Application.Browser.Target = wdBrowsePage
    	Application.Browser.Next
    
    	strSrcName                  = oSrcDoc.FullName
    	strNewName                  = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
    	fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))
    	Set oNewDoc                 = Documents.Add
    	Selection.Paste
    	oNewDoc.SaveAs strNewName
    	oNewDoc.Close False
    Next
    
    Set oNewDoc = Nothing
    Set oRange = Nothing
    Set oSrcDoc = Nothing
    Set fso = Nothing
    MsgBox "结束!"
    End Sub
    ==========================================
    可以保存任何内容
    
    Sub QQ1722187970()
        Const wdNumberOfPagesInDocument = 4
        Const wdGoToPage = 1
        Const wdGoToAbsolute = 1
        Dim oDoc As Document
        Dim oRng As Range
        Dim oDocTemp As Document
        Set oDoc = Word.ActiveDocument
        Dim sPath As String
        sPath = Word.ActiveDocument.Path
        Dim iPageNo As Long
        '获取总页数
        With oDoc
        iPageNo = .Range.Information(wdNumberOfPagesInDocument)
            For I = 1 To iPageNo
                '定位到页开始
                Set oRng = .GoTo(wdGoToPage, Which:=wdGoToAbsolute, Count:=I)
                oRng.Select
                '定位整个页面区域
                oRng.SetRange oRng.Start, oRng.Bookmarks("\page").End
                oRng.Copy
                Set oDocTemp = Word.Documents.Add
                With oDocTemp.Application.Selection
                    .Paste
                End With
                oDocTemp.SaveAs2 sPath & "\" & I & ".docx"
                oDocTemp.Close
            Next I
        End With
    End Sub
    ===========================================
    只能保存文字 
    Option Explicit
    
    Sub SaveParagraph()
    	Dim i As Integer
    	Dim PageNo As Integer
    	Dim aDoc As Document
    	Dim myDoc As Document
    	Dim sPage As String
    	Set myDoc              = ThisDocument
    	'文档视图设定为页面方式
    	ActiveWindow.View.Type = wdPageView
    	myDoc.Repaginate
    	'获得文档页数并赋值给变量 PageNo
    	PageNo = myDoc.BuiltInDocumentProperties(wdPropertyPages)
    
    	For i = 1 To PageNo
    		myDoc.Activate
    		' 光标移动到文档某一页的开始
    		Selection.GoTo What: = wdGoToPage, Which: = wdGoToNext, Name: = i
    		' 全选文档某一页的所有内容
    		Selection.EndKey Unit: = wdStory, Extend: = wdExtend
    		sPage = Selection.Text
    		'保存到一个文件中
    		Set aDoc = Documents.Add
    		aDoc.Content.Text = sPage
    		aDoc.SaveAs FileName: = "c:\" & CInt(i) & ".doc"
    		aDoc.Close
    	Next
    
    End Sub
    

    word中怎样把不同颜色的下划线文字变成对应的颜色

    展开全文
  • WORD邮件合并功能工具盒是一款非常简单易用的可以用于将WORD邮件合并文档拆分为多个文件,读取WORD邮件合并后的文档,将自动保存单独的文件,有需要的朋友们可以前来下载使用。 说明 使用小工具之前请先...
  • 11、拆分文档:将WORD文件的每一页替换成一个文档,适用于每页之间不存在关联、可以独立成文的文档。例如调查表,文档的每一页有一个表格,拆分后每一个文档都拥有完整独立的内容。 12、多文档批量替换:对多个WORD...
  • WORD文件的每一页替换成一个文档,适用于每页之间不存在关联、可以独立成文的文档。例如调查表,文档的每一页有一个表格,拆分后每一个文档都拥有完整独立的内容。 按一级标题拆分 将当前文档按一级标题拆分成多个...
  • word学习笔记

    2020-05-28 19:04:16
    经过一段时间的写文档,总结了一些写文档基本技巧。 关于标题标号,要让文档的标题自动延伸,...分页符,在这里会强制换页,对于必须要整显示的一部分,比如一章开始都是单独,为了避免将来被分开,可以在上面

    经过一段时间写word文档,总结了一些写文档的基本技巧。

    关于标题,要让文档的标题自动延伸,大小标题自动排列。

    对各个标题都定义一下样式
    对于标题选择修改样式
    在这里插入图片描述
    点击格式->编号
    在这里插入图片描述
    选择多级编号
    在这里插入图片描述
    点击同时保存到模版,以后其它的都可以这么用。
    在这里插入图片描述
    对于不同的标题直接依次选择下去,就会按标号排下去,且中间加新的,其它的标号都会自动进行调整。
    效果如下:
    在这里插入图片描述

    分页符:

    在这里插入图片描述
    点击插入->分页->分页符,在这里会强制换页,对于必须要整页显示的一部分,比如每一章开始都是单独一页,为了避免将来被分开,可以在上面文末加分页符,这样无论上面怎么改,这里都会是完整的开始章节。

    关于图片和表格按标号排,采用题注。

    点击引用->题注,然后将题注居中后放于图片下面,这样的效果同标号排序,今后增删其它图片都会使所有图片的名称依次排列。
    在这里插入图片描述

    展开全文
  • 罗刚君Word精灵 v3.0.rar

    2019-07-13 05:22:16
    拆分文档:将WORD文件的每一页替换成一个文档,适用于每页之间不存在关联、可以独立成文的文档。例如调查表,文档的每一页有一个表格,拆分后每一个文档都拥有完整独立的内容。 段落缩进:让指定的段落首行缩进俩...
  • 不论是另存为完整网页还单独网页都不奏效,全拷贝出来到word中再另存为网页却又发现格式对不齐,看起来也难看。 最后采用了一种稍微复杂一点的办法,但格式还能基本保持原样:查看页面源文件,把源文件代码复制...

            一直以来都有每月保存话费详单和总帐单的习惯,但是最近移动网上营业厅查询历史帐单的网页却保存不了了,保存下来再打开就是空白,试过多种方法,都不太满意,十分苦恼。不论是另存为完整网页还单独网页都不奏效,全页拷贝出来到word中再另存为网页却又发现格式对不齐,看起来也难看。

            最后采用了一种稍微复杂一点的办法,但格式还能基本保持原样:查看页面源文件,把源文件代码复制出来,然后打开dreamweaver,新建空白页面,把源代码拷贝到新页面中,另存为网页。

    展开全文
  • 该方法适用以下情况:一个列表,一行有连接,点击可以进入另外的页面,列表旁可以放选择按钮,如果选择了,就导出该行连接页面。...代码如下:1,以下代码即可以单独导出一个页面的WORD文档。window.on

     该方法适用以下情况:一个列表,每一行有连接,点击可以进入另外的页面,列表旁可以放选择按钮,如果选择了,就导出该行连接页面。

    该方法注意事项:1,导出的页面,CSS格式要让WORD可以识别。最好现在WORD上把页面画出,然后另存为HTML文件,注意保存其中生成的文件。

    2,浏览器要准许ActiveX运行。

    代码如下:

    1,以下代码即可以单独导出一个页面的WORD文档。

    <script id="scriptHide" language="javascript">
    window.οnlοad=function()
    {
        var oButton=window.document.getElementById("Button1");
        if(oButton!=null && parent.iNum>0)
        {
               oButton.οnclick=alertMessage;
               parent.wm(oButton);
        }
         else
        {
               oButton.οnclick=alertMessage;
        }
    }
    var odocName=null;
    var omessage=null;
    function alertMessage(obj)
    {
         word_onclick();
         if(arguments.length==0)
         {
              if(odocName==null||odocName=="")
              {
                alert("导出失败!/r/n"+ omessage);
              }
              else
              {
                alert("导出成功!/r/n文件位置:C://" + odocName);
              }
         }
    }

    function   getUrlParam(name){  
              var   reg   =   new   RegExp("(^|&)"+   name   +"=([^&]*)(&|$)");  
              var   r   =   window.location.search.substr(1).match(reg);  
              if   (r!=null)   return   unescape(r[2]);   return   null;  
          }  

    function word_onclick(obj)
    {
          var oWD = new ActiveXObject("Word.Application");
          oWD.WindowState = 2 
          var oDC = oWD.Documents.Add("",0,1);
          var oRange =oDC.Range(0,1);
          var hd = document.getElementById("__VIEWSTATE");
          var hideTable = document.getElementById("hideTable");
          var hideTable1 = document.getElementById("hideTable1");
          var scriptHide = document.getElementById("scriptHide");
          if(hd != null)
          {
            hd.parentNode.removeChild(hd);
          }
          if(hideTable != null)
          {
            hideTable.parentNode.removeChild(hideTable);
          }
          if(hideTable1 != null)
          {
            hideTable1.parentNode.removeChild(hideTable1);
          }
          if(scriptHide != null)
          {
            scriptHide.parentNode.removeChild(scriptHide);
          }
          var sel = document.body.createTextRange();
          var lblName = document.getElementById("name");
          var docName = "Q12 个人报告.doc";
          var depno = '<%=Request.QueryString["DeptNo"].ToString()%>';
          docName = depno +"-"+ docName;
          if(lblName != null)
          {
           docName = lblName.innerText.replace(//s*$/g,"")+"-"+ docName;
          }
          
           try
           { 
              sel.execCommand("Copy");
              oRange.Paste();
              oDC.SaveAs("C://" + docName);
              odocName=docName;
            }
            catch(e)
            { 
                 omessage=e.message;
            }  
            finally
            {
                oDC.Close(0);
                oWD.Quit();
                oWD = null;
            }
           if(oWD != null)
           {
               oDC.Close(0);
               oWD.Quit();
               oWD = null;
           }
        
    }
      </script>

    2,以下代码是用来批量导出的

    <script>
     window.document.οnkeydοwn=function()
    {
      if(window.event.keyCode==13)
       {
        var oLinkButton=document.getElementById('<%=this.LinkButton1.ClientID %>');
        oLinkButton.click();
       }
    }
    var iNum=0;
    var arr=new Array;
        function CheckAll(check, id)
    {
     var e = document.forms[0].elements;
     var l = e.length;
     var o;
     for(var i = 0; i < l; i++)
     {
      o = e[i];
      if (o.type == "checkbox" && o.id.indexOf(id) > -1)
      {
       if(o.disabled!=true)
       {
           o.checked = check;
       }
      }
     }
    }
    function BatchExport()
    {
       var oDiv=window.document.getElementById("NoneDiv");
       oDiv.style.display="block";
       arr.splice(0,arr.length);
       iNum=0;
       var oCount=0;
       var oTable=window.document.getElementById('<%=this.CustDataGrid1.ClientID %>');
       if(oTable!=null)
       {
          var oCheckbox=oTable.getElementsByTagName("INPUT");
          for(var i=0;i<oCheckbox.length;i++)
          {
             if(oCheckbox[i].getAttribute("type")=="checkbox"&&oCheckbox[i].getAttribute("value")!="on"&&oCheckbox[i].checked==true)
             {
              oCount=oCount+1;
              arr[arr.length]=oCheckbox[i].getAttribute("value");
             }
             else
             {
             }
          }
          if(oCount==0)
          {
            oDiv.style.display="none";
            alert("没有选择任何项");
            return false;
          }
          iFrameUrl(arr[iNum]);
       }
       return false;
    }
    function iFrameUrl(STF_StaffNo)
          {
            var ohref=STF_StaffNo.split("|");
            iNum=iNum+1;
            frames["hiddenFrame"].location.href="reportQ12.aspx?LeaderNo="+ohref[0]+"&DeptNo="+ohref[1];
          }
    function wm(bjct)
           {
              bjct.onclick("isofstone");
              if(iNum==arr.length)
              {
                var oDiv=window.document.getElementById("NoneDiv");
                oDiv.style.display="none";
                alert("批量生成完成");
                return;
              }
              iFrameUrl(arr[iNum]);
           }
      </script>

    以上方法具有速度快,可以很好的控制格式(要先研究WORD转化为HTML后的格式),可以包含图片,可以批量导出的优点。 <script type="text/javascript"> window.document.οnkeydοwn=function() { if(window.event.keyCode==13) { var oLinkButton=document.getElementById('<%=this.LinkButton1.ClientID %>'); oLinkButton.click(); } } var iNum=0; var arr=new Array; function CheckAll(check, id) { var e = document.forms[0].elements; var l = e.length; var o; for(var i = 0; i < l; i++) { o = e[i]; if (o.type == "checkbox" && o.id.indexOf(id) > -1) { if(o.disabled!=true) { o.checked = check; } } } } function BatchExport() { var oDiv=window.document.getElementById("NoneDiv"); oDiv.style.display="block"; arr.splice(0,arr.length); iNum=0; var oCount=0; var oTable=window.document.getElementById('<%=this.CustDataGrid1.ClientID %>'); if(oTable!=null) { var oCheckbox=oTable.getElementsByTagName("INPUT"); for(var i=0;i0) { oButton.οnclick=alertMessage; parent.wm(oButton); } else { oButton.οnclick=alertMessage; } } var odocName=null; var omessage=null; function alertMessage(obj) { word_onclick(); if(arguments.length==0) { if(odocName==null||odocName=="") { alert("导出失败!/r/n"+ omessage); } else { alert("导出成功!/r/n文件位置:C://" + odocName); } } } function getUrlParam(name){ var reg = new RegExp("(^|&)"+ name +"=([^&]*)(&|$)"); var r = window.location.search.substr(1).match(reg); if (r!=null) return unescape(r[2]); return null; } function word_onclick(obj) { var oWD = new ActiveXObject("Word.Application"); oWD.WindowState = 2 var oDC = oWD.Documents.Add("",0,1); var oRange =oDC.Range(0,1); var hd = document.getElementById("__VIEWSTATE"); var hideTable = document.getElementById("hideTable"); var hideTable1 = document.getElementById("hideTable1"); var scriptHide = document.getElementById("scriptHide"); if(hd != null) { hd.parentNode.removeChild(hd); } if(hideTable != null) { hideTable.parentNode.removeChild(hideTable); } if(hideTable1 != null) { hideTable1.parentNode.removeChild(hideTable1); } if(scriptHide != null) { scriptHide.parentNode.removeChild(scriptHide); } var sel = document.body.createTextRange(); var lblName = document.getElementById("name"); var docName = "Q12 个人报告.doc"; var depno = '<%=Request.QueryString["DeptNo"].ToString()%>'; docName = depno +"-"+ docName; if(lblName != null) { docName = lblName.innerText.replace(//s*$/g,"")+"-"+ docName; } try { sel.execCommand("Copy"); oRange.Paste(); oDC.SaveAs("C://" + docName); odocName=docName; } catch(e) { omessage=e.message; } finally { oDC.Close(0); oWD.Quit(); oWD = null; } if(oWD != null) { oDC.Close(0); oWD.Quit(); oWD = null; } } </script> <script language="javascript" id="scriptHide" type="text/javascript"> window.οnlοad=function() { var oButton=window.document.getElementById("Button1"); if(oButton!=null && parent.iNum>0) { oButton.οnclick=alertMessage; parent.wm(oButton); } else { oButton.οnclick=alertMessage; } } var odocName=null; var omessage=null; function alertMessage(obj) { word_onclick(); if(arguments.length==0) { if(odocName==null||odocName=="") { alert("导出失败!/r/n"+ omessage); } else { alert("导出成功!/r/n文件位置:C://" + odocName); } } } function getUrlParam(name){ var reg = new RegExp("(^|&)"+ name +"=([^&]*)(&|$)"); var r = window.location.search.substr(1).match(reg); if (r!=null) return unescape(r[2]); return null; } function word_onclick(obj) { var oWD = new ActiveXObject("Word.Application"); oWD.WindowState = 2 var oDC = oWD.Documents.Add("",0,1); var oRange =oDC.Range(0,1); var hd = document.getElementById("__VIEWSTATE"); var hideTable = document.getElementById("hideTable"); var hideTable1 = document.getElementById("hideTable1"); var scriptHide = document.getElementById("scriptHide"); if(hd != null) { hd.parentNode.removeChild(hd); } if(hideTable != null) { hideTable.parentNode.removeChild(hideTable); } if(hideTable1 != null) { hideTable1.parentNode.removeChild(hideTable1); } if(scriptHide != null) { scriptHide.parentNode.removeChild(scriptHide); } var sel = document.body.createTextRange(); var lblName = document.getElementById("name"); var docName = "Q12 个人报告.doc"; var depno = '<%=Request.QueryString["DeptNo"].ToString()%>'; docName = depno +"-"+ docName; if(lblName != null) { docName = lblName.innerText.replace(//s*$/g,"")+"-"+ docName; } try { sel.execCommand("Copy"); oRange.Paste(); oDC.SaveAs("C://" + docName); odocName=docName; } catch(e) { omessage=e.message; } finally { oDC.Close(0); oWD.Quit(); oWD = null; } if(oWD != null) { oDC.Close(0); oWD.Quit(); oWD = null; } } </script> <script language="javascript" id="scriptHide" type="text/javascript"> window.οnlοad=function() { var oButton=window.document.getElementById("Button1"); if(oButton!=null && parent.iNum>0) { oButton.οnclick=alertMessage; parent.wm(oButton); } else { oButton.οnclick=alertMessage; } } var odocName=null; var omessage=null; function alertMessage(obj) { word_onclick(); if(arguments.length==0) { if(odocName==null||odocName=="") { alert("导出失败!/r/n"+ omessage); } else { alert("导出成功!/r/n文件位置:C://" + odocName); } } } function getUrlParam(name){ var reg = new RegExp("(^|&)"+ name +"=([^&]*)(&|$)"); var r = window.location.search.substr(1).match(reg); if (r!=null) return unescape(r[2]); return null; } function word_onclick(obj) { var oWD = new ActiveXObject("Word.Application"); oWD.WindowState = 2 var oDC = oWD.Documents.Add("",0,1); var oRange =oDC.Range(0,1); var hd = document.getElementById("__VIEWSTATE"); var hideTable = document.getElementById("hideTable"); var hideTable1 = document.getElementById("hideTable1"); var scriptHide = document.getElementById("scriptHide"); if(hd != null) { hd.parentNode.removeChild(hd); } if(hideTable != null) { hideTable.parentNode.removeChild(hideTable); } if(hideTable1 != null) { hideTable1.parentNode.removeChild(hideTable1); } if(scriptHide != null) { scriptHide.parentNode.removeChild(scriptHide); } var sel = document.body.createTextRange(); var lblName = document.getElementById("name"); var docName = "Q12 个人报告.doc"; var depno = '<%=Request.QueryString["DeptNo"].ToString()%>'; docName = depno +"-"+ docName; if(lblName != null) { docName = lblName.innerText.replace(//s*$/g,"")+"-"+ docName; } try { sel.execCommand("Copy"); oRange.Paste(); oDC.SaveAs("C://" + docName); odocName=docName; } catch(e) { omessage=e.message; } finally { oDC.Close(0); oWD.Quit(); oWD = null; } if(oWD != null) { oDC.Close(0); oWD.Quit(); oWD = null; } } </script> <script language="javascript" id="scriptHide" type="text/javascript"> window.οnlοad=function() { var oButton=window.document.getElementById("Button1"); if(oButton!=null && parent.iNum>0) { oButton.οnclick=alertMessage; parent.wm(oButton); } else { oButton.οnclick=alertMessage; } } var odocName=null; var omessage=null; function alertMessage(obj) { word_onclick(); if(arguments.length==0) { if(odocName==null||odocName=="") { alert("导出失败!/r/n"+ omessage); } else { alert("导出成功!/r/n文件位置:C://" + odocName); } } } function getUrlParam(name){ var reg = new RegExp("(^|&)"+ name +"=([^&]*)(&|$)"); var r = window.location.search.substr(1).match(reg); if (r!=null) return unescape(r[2]); return null; } function word_onclick(obj) { var oWD = new ActiveXObject("Word.Application"); oWD.WindowState = 2 var oDC = oWD.Documents.Add("",0,1); var oRange =oDC.Range(0,1); var hd = document.getElementById("__VIEWSTATE"); var hideTable = document.getElementById("hideTable"); var hideTable1 = document.getElementById("hideTable1"); var scriptHide = document.getElementById("scriptHide"); if(hd != null) { hd.parentNode.removeChild(hd); } if(hideTable != null) { hideTable.parentNode.removeChild(hideTable); } if(hideTable1 != null) { hideTable1.parentNode.removeChild(hideTable1); } if(scriptHide != null) { scriptHide.parentNode.removeChild(scriptHide); } var sel = document.body.createTextRange(); var lblName = document.getElementById("name"); var docName = "Q12 个人报告.doc"; var depno = '<%=Request.QueryString["DeptNo"].ToString()%>'; docName = depno +"-"+ docName; if(lblName != null) { docName = lblName.innerText.replace(//s*$/g,"")+"-"+ docName; } try { sel.execCommand("Copy"); oRange.Paste(); oDC.SaveAs("C://" + docName); odocName=docName; } catch(e) { omessage=e.message; } finally { oDC.Close(0); oWD.Quit(); oWD = null; } if(oWD != null) { oDC.Close(0); oWD.Quit(); oWD = null; } } </script> <script language="javascript" id="scriptHide" type="text/javascript"> window.οnlοad=function() { var oButton=window.document.getElementById("Button1"); if(oButton!=null && parent.iNum>0) { oButton.οnclick=alertMessage; parent.wm(oButton); } else { oButton.οnclick=alertMessage; } } var odocName=null; var omessage=null; function alertMessage(obj) { word_onclick(); if(arguments.length==0) { if(odocName==null||odocName=="") { alert("导出失败!/r/n"+ omessage); } else { alert("导出成功!/r/n文件位置:C://" + odocName); } } } function getUrlParam(name){ var reg = new RegExp("(^|&)"+ name +"=([^&]*)(&|$)"); var r = window.location.search.substr(1).match(reg); if (r!=null) return unescape(r[2]); return null; } function word_onclick(obj) { var oWD = new ActiveXObject("Word.Application"); oWD.WindowState = 2 var oDC = oWD.Documents.Add("",0,1); var oRange =oDC.Range(0,1); var hd = document.getElementById("__VIEWSTATE"); var hideTable = document.getElementById("hideTable"); var hideTable1 = document.getElementById("hideTable1"); var scriptHide = document.getElementById("scriptHide"); if(hd != null) { hd.parentNode.removeChild(hd); } if(hideTable != null) { hideTable.parentNode.removeChild(hideTable); } if(hideTable1 != null) { hideTable1.parentNode.removeChild(hideTable1); } if(scriptHide != null) { scriptHide.parentNode.removeChild(scriptHide); } var sel = document.body.createTextRange(); var lblName = document.getElementById("name"); var docName = "Q12 个人报告.doc"; var depno = '<%=Request.QueryString["DeptNo"].ToString()%>'; docName = depno +"-"+ docName; if(lblName != null) { docName = lblName.innerText.replace(//s*$/g,"")+"-"+ docName; } try { sel.execCommand("Copy"); oRange.Paste(); oDC.SaveAs("C://" + docName); odocName=docName; } catch(e) { omessage=e.message; } finally { oDC.Close(0); oWD.Quit(); oWD = null; } if(oWD != null) { oDC.Close(0); oWD.Quit(); oWD = null; } } </script> <script language="javascript" id="scriptHide" type="text/javascript"> window.οnlοad=function() { var oButton=window.document.getElementById("Button1"); if(oButton!=null && parent.iNum>0) { oButton.οnclick=alertMessage; parent.wm(oButton); } else { oButton.οnclick=alertMessage; } } var odocName=null; var omessage=null; function alertMessage(obj) { word_onclick(); if(arguments.length==0) { if(odocName==null||odocName=="") { alert("导出失败!/r/n"+ omessage); } else { alert("导出成功!/r/n文件位置:C://" + odocName); } } } function getUrlParam(name){ var reg = new RegExp("(^|&)"+ name +"=([^&]*)(&|$)"); var r = window.location.search.substr(1).match(reg); if (r!=null) return unescape(r[2]); return null; } function word_onclick(obj) { var oWD = new ActiveXObject("Word.Application"); oWD.WindowState = 2 var oDC = oWD.Documents.Add("",0,1); var oRange =oDC.Range(0,1); var hd = document.getElementById("__VIEWSTATE"); var hideTable = document.getElementById("hideTable"); var hideTable1 = document.getElementById("hideTable1"); var scriptHide = document.getElementById("scriptHide"); if(hd != null) { hd.parentNode.removeChild(hd); } if(hideTable != null) { hideTable.parentNode.removeChild(hideTable); } if(hideTable1 != null) { hideTable1.parentNode.removeChild(hideTable1); } if(scriptHide != null) { scriptHide.parentNode.removeChild(scriptHide); } var sel = document.body.createTextRange(); var lblName = document.getElementById("name"); var docName = "Q12 个人报告.doc"; var depno = '<%=Request.QueryString["DeptNo"].ToString()%>'; docName = depno +"-"+ docName; if(lblName != null) { docName = lblName.innerText.replace(//s*$/g,"")+"-"+ docName; } try { sel.execCommand("Copy"); oRange.Paste(); oDC.SaveAs("C://" + docName); odocName=docName; } catch(e) { omessage=e.message; } finally { oDC.Close(0); oWD.Quit(); oWD = null; } if(oWD != null) { oDC.Close(0); oWD.Quit(); oWD = null; } } </script>

    展开全文
  • 一次性下载全部链接!!!!!

    千次阅读 2009-03-26 20:29:00
    之前,我都是用点击右键的“使用迅雷下载全部链接”来下载同一页面的多个连接的,但是今天这招不适用了,进入网页,(1)无法使用右键(2)个下载链接单独在一个网页中 怎么办?总不能挨个的点开来,再下载吧! ...
  • Small pdf转换软件

    2018-07-23 15:58:34
    份pdf需要转换的页码内容也是可以选择的,比如输入:5-10,则PDF转换器只转换5-10的内容。 5.点击small pdf转换软件的【输出】或者【打开】,即可跳转至转换后文件所保存的文件夹。可清晰看到转换后的pdf文件。
  • 公式的编号略有不同,插入公式后,将公式单独放在一个段落,版式为“嵌入式”(Word默认),光标放在公式之后,不要(注意是“不要”)选中公式,在“插入”菜单选“题注”,由于没有选中项目,所以“位置”一项为...
  • format2017.doc

    2020-04-18 15:37:23
    页码必须位于每页页脚中部,用阿拉伯数字从“1”开始连续编号。摘要专用页必须单独一页,且篇幅不能超过一页。 第四条,从第四页开始是论文正文(不要目录,尽量控制在20页以内);正文之后是论文附录(页数不限)...
  • 7、支持同一文档多种版面格式打印(类似于Word中的节的功能):对同一份文档,不同的页面可以设置不同的格式(纸张大小、纸张方向、边距),只需要在新增一时在NewPage方法中指定要使用的页面格式即可,使用非常...
  • 7、支持同一文档多种版面格式打印(类似于Word中的节的功能):对同一份文档,不同的页面可以设置不同的格式(纸张大小、纸张方向、边 距),只需要在新增一时在NewPage方法中指定要使用的页面格式即可,使用...
  • 7、支持同一文档多种版面格式打印(类似于Word中的节的功能):对同一份文档,不同的页面可以设置不同的格式(纸张大小、纸张方向、边距),只需要在新增一时在NewPage方法中指定要使用的页面格式即可,使用非常...
  • 文档页眉上标注了所申请软件的名称和版本号,应当与申请表中相应内容完全一致,右上角应标注页码,文档每页不少于30行,有图除外。 材料二:源码文档 对于文档的格式要求如下: 源程序应提交前、后各连续30页,...
  • 5、支持同一文档多种版面格式打印(类似于Word中的节的功能):对同一份文档,不同的页面可以设置不同的格式(纸张大小、纸张方向、边距),只需要在新增一时在NewPage方法中指定要使用的页面格式即可,使用非常...
  • Excel百宝箱9.0无限制破解版

    热门讨论 2012-02-03 19:05:29
    【建立分页小计】:将每页数据建立小计和累计,且自动分页,小计和累计在每页最末处 【删除分页小计】:删除小计与累计,恢复明细表 【合并到选区】:将一个单元格的值合到一个区域中去,可以插入到原字符之前也可以...
  • Excel百宝箱

    2012-10-27 17:09:21
    【建立分页小计】:将每页数据建立小计和累计,且自动分页,小计和累计在每页最末处 【删除分页小计】:删除小计与累计,恢复明细表 【合并到选区】:将一个单元格的值合到一个区域中去,可以插入到原字符之前也可以...
  • 【建立分页小计】:将每页数据建立小计和累计,且自动分页,小计和累计在每页最末处 【删除分页小计】:删除小计与累计,恢复明细表 【合并到选区】:将一个单元格的值合到一个区域中去,可以插入到原字符之前也...
  • # 独线程,默认情况下参数设置为0(不使用单独线程),设置为 1 时表示使用单独的清除线程。建议为1 innodb_flush_log_at_trx_commit = 2 # 0:如果innodb_flush_log_at_trx_commit的值为0,log buffer秒就会被刷写日志...
  • 或购买两个单独的图形程序,个部门的特殊需求,并希望与贵公司同意购买?对没有上述怎么办? 亿图最大可让您创建图表和图表,以满足所有这些要求和更。拥有超过4600矢量符号手绘插图和藏书丰富的图书馆,你将永远...
  • 1、系统参数设置归并到系统向导过个模块中 2、新增上传附件组件,上传附件大小理论上没有限制 3、职员生日提醒新增可按阴历提醒 4、客户关联项可以配置 5、客户扩展资料新增10个,个模板可以单独配置扩展资料 ...
  • html入门到放弃笔记

    2018-05-15 15:06:12
    W3C :Word Wide Web Consortium (万维网联盟) 1、HTML文档的组成 1、文档类型声明 告知浏览器当前的HTML文档用的是哪个版本 在网页的最顶端 <!doctype html> 2、由一对 html 根标记,来表示页面的开始与结束...
  • 【建立分页小计】将每页数据建立小计和累计,且自动分页,小计和累计在每页最末处 【删除分页小计】删除小计与累计,恢复明细表 【合并到选区】将一个单元格的值合到一个区域中去,可以插入到原字符之前也可以插入到...
  • PowerPoint.2007宝典 8/10

    2012-04-01 18:39:23
    页码:547 版次:第1版 装帧:平装 开本:16 出版日:2008年02月 中文: 原价:79.00元 -------------------------------------------------------------------------------- 内容简介 《PowerPoint 2007宝典》全面并且...
  • Excel百宝箱8.0

    2011-06-07 21:32:17
    【建立分页小计】:将每页数据建立小计和累计,且自动分页,小计和累计在每页最末处 【删除分页小计】:删除小计与累计,恢复明细表 【合并到选区】:将一个单元格的值合到一个区域中去,可以插入到原字符之前也可以...
  • asp.net知识库

    2015-06-18 08:45:45
    如何实现web页面的提示保存功能 在ASP.Net中两种利用CSS实现多界面的方法 如何在客户端调用服务端代码 页面一postback,它就显示页面的最顶端,怎样让它定位在某一位置? 如何保证页面刷新后的滚动条位置 清除网页...
  • 人力资源管理软件(完全免费)

    热门讨论 2011-03-08 11:36:20
    优化了人力资源管理软件保存到excel数值类型的问题(感谢54HAPPY) 增加了合同管理功能(人力资源软件) 解决人力资源管理软件工资帐套选择的公式显示不全的问题(感谢vivi) 工资录入支持导入保险数据(人力资源软件) ...
  • 比如 Ctrl + S,免得忘记保存 - 更多介绍 Librejo 我的书:一个图书笔记借阅管理的网站 - 更多介绍 ✅ Markdown Image:VSCode 扩展,直接复制粘贴即可在 Markdown 文件即可插入图片,支持上传到多种图床 - 更...

空空如也

空空如也

1 2
收藏数 31
精华内容 12
关键字:

word每页单独保存