将网页内容导出到word文档中

function OpenWord(){
Layer1.style.border=0
word = new ActiveXObject('Word.Application');
word.Application.Visible = true;
var mydoc=word.Documents.Add('',0,1);
myRange =mydoc.Range(0,1)
var sel=Layer1.document.body.createTextRange()
sel.select()
Layer1.document.execCommand('Copy')
sel.moveEnd('character')
myRange.Paste();
location.reload()
word.ActiveWindow.ActivePane.View.Type=9
}

46 Words • 4 views • 08-03-04 • 16