Ms word asp中的Word SaveAs2错误
我有一个经典的asp站点,它打开Word文档,然后将其保存为html以供以后调用。当使用Word(2013)的更新版本移动到新服务器(2012 r2)上时,SaveAs2将不再工作。错误代码为-2147023170,没有错误消息。代码如下所示:Ms word asp中的Word SaveAs2错误,ms-word,asp-classic,com,Ms Word,Asp Classic,Com,我有一个经典的asp站点,它打开Word文档,然后将其保存为html以供以后调用。当使用Word(2013)的更新版本移动到新服务器(2012 r2)上时,SaveAs2将不再工作。错误代码为-2147023170,没有错误消息。代码如下所示: Const WordOpenPathRoot = "e:\SDA_Root\sourcedocs\" Const WordPreviewSavePathRoot = "e:\SDA_Root\preview\" Function UpdateHTML
Const WordOpenPathRoot = "e:\SDA_Root\sourcedocs\"
Const WordPreviewSavePathRoot = "e:\SDA_Root\preview\"
Function UpdateHTML ( theDocRef, theWordPath, theManualDir )
Const wdFormatHTML = 8
Const ForReading = 1
Const ForWriting = 2
Dim DocID, EditFileOpenName, EditPDFOpenName, EditFileSaveName, EditPDFSaveName
Dim WebPublishPath, WebPDFPublishPath, WebPreviewPath, WebPDFPreviewPath
Dim strHTMLContent, strNewHTML
Dim strMetaVersion, strMetaDocID, strScriptCode, strStyleSheetCode, strStyleBGCode
Dim fso, ts 'File System & Text Stream Objects
Dim tmpstr
Dim svUserFullName
svUserFullName = Session("SesUserFullname")
EditFileOpenName = trim(WordOpenPathRoot & theWordPath)
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(EditFileOpenName) Then
EditFileSaveName = trim(WordPreviewSavePathRoot & theDocRef & ".htm")
WebPreviewPath = trim(WebPreviewPathRoot & theDocRef & ".htm")
Set wordApp = CreateObject ("Word.Application")
Set wordDoc = wordApp.Documents.Open ( EditFileOpenName , False, False, False, WordDocPW )
Set wordDoc = wordApp.ActiveDocument
wordDoc.SaveAs2 EditFileSaveName, wdFormatHTML
wordDoc.Close
Set wordDoc = Nothing
wordApp.Quit
Set wordApp = Nothing
任何想法都将不胜感激
谢谢。代码的意思是“远程过程调用失败。(HRESULT 16x800706BE)”。错误发生在哪一行?错误发生在wordDoc.SaveAs2 EditFileSaveName,wdFormatHTMLYou无法从服务器环境运行Word。使用不同的技术重新设计应用程序。这是一场即将发生的技术灾难(取决于您的用户),甚至可能违反您的Office许可证。Word经过设计和测试,可以在人机交互的环境中运行。在一个非交互式服务中,它将真的崩溃并无法预测地燃烧。看见而且,这是众多答案中的一个,已经涵盖了这一点