IE內容轉到WORD中

就是想用word打印ie中的全部內容.所以先要從ie拷貝到word中..

解决方案 »

  1.   

    <HTML>
    <script>
    var wrd=new ActiveXObject("Word.Application")
    wrd.visible=true
    alert("&Auml;ú&micro;&Auml;"+wrd.Application.Caption+"°&sup2;×°&Acirc;·&frac34;&para;&Icirc;&ordf;&pound;&ordm;\n"+wrd.Application.Path+"\n°&aelig;±&frac34;&ordm;&Aring;&Ecirc;&Ccedil;&pound;&ordm;"+wrd.Application.version+"\n×&cent;&sup2;á&Ecirc;&sup1;&Oacute;&Atilde;&Otilde;&szlig;&Ecirc;&Ccedil;&pound;&ordm;"+wrd.Application.UserName)
    wrd.Documents.Open("c:\\exam.doc")
    wrd.Selection.TypeText("This is some text.")
    wrd.Application.Activate()
    //wrd.ActiveDocument.SaveAs("c:\\exam111.doc")
    wrd=null
    </script>
    </HTML><HTML>
    <script language=Jscript>
    var xlApp, xlSheet;  
    xlApp = new ActiveXObject("Excel.Application");
    xlApp.Visible = true;  
    xlApp.Workbooks.Add(); 
    xlApp.Workbooks.Open("C:\\book2.xls");
    </script>
    </HTML>