function
OpenWord()
{
try
{
alert( ' 用户告知:\r\n 本功能需要您的电脑安装Word软件,否则无法导出Word文件。! ' )
fnDoCopy();
PasteFromClipboard();
}
catch (err)
{
alert(err.message)
}
}
function fnDoCopy()
{
textRange = document.body.createTextRange();
textRange.moveToElementText(tabData);
textRange.execCommand( " Copy " );
}
function PasteFromClipboard()
{
try
{
var eWApp = new ActiveXObject( " Word.Application " );
if (eWApp == null )
{
alert( ' Word程序打开失败,请确认您的电脑上有安装Word软件,并为可用状态,谢谢! ' );
return ;
}
eWApp.Visible = true ;
var mydoc = eWApp.Documents.Add( '' , 0 , 1 ); //不打开模版直接加入内容
{
try
{
alert( ' 用户告知:\r\n 本功能需要您的电脑安装Word软件,否则无法导出Word文件。! ' )
fnDoCopy();
PasteFromClipboard();
}
catch (err)
{
alert(err.message)
}
}
function fnDoCopy()
{
textRange = document.body.createTextRange();
textRange.moveToElementText(tabData);
textRange.execCommand( " Copy " );
}
function PasteFromClipboard()
{
try
{
var eWApp = new ActiveXObject( " Word.Application " );
if (eWApp == null )
{
alert( ' Word程序打开失败,请确认您的电脑上有安装Word软件,并为可用状态,谢谢! ' );
return ;
}
eWApp.Visible = true ;
var mydoc = eWApp.Documents.Add( '' , 0 , 1 ); //不打开模版直接加入内容
// var doc = word .documents.open("c:\test.doc"); //此处为打开已有的模版
myRange = mydoc.Range( 0 , 1 )
myRange.Paste();
}
catch (err)
{
alert( ' Word导出异常,原因:automation服务不能创建对象。请与管理员联系,谢谢!");
}
myRange = mydoc.Range( 0 , 1 )
myRange.Paste();
}
catch (err)
{
alert( ' Word导出异常,原因:automation服务不能创建对象。请与管理员联系,谢谢!");
}
Internet选项-安全-自定义级别-ActiveX控件和插件-启用“对没有标记为安全的ActiveX控件进行初始化和脚本运行”;
如果还不行,则开始-运行-dcomcnfg-组建服务-计算机-我的电脑-DCOM配置-Microsoft Word文档-属性-安全-将所有权限里的Everyone和Interactive加上