指定页面区域内容导入Word

//指定页面区域内容导入Word

 function AllAreaWord()

 {

  var oWD = new ActiveXObject("Word.Application");

  var oDC = oWD.Documents.Add("",0,1);

  var oRange =oDC.Range(0,1);

  var sel = document.body.createTextRange();

  sel.moveToElementText(PrintA);

  sel.select();

  sel.execCommand("Copy");

  oRange.Paste();

  oWD.Application.Visible = true;

  //window.close();

 }