客户端生成Word(JS)
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加上