C# 4.0 Office互操作在Windows服务中不起作用_C# 4.0_Windows Services_Vsto_Office Interop

C# 4.0 Office互操作在Windows服务中不起作用

c#-4.0 windows-services

C# 4.0 Office互操作在Windows服务中不起作用,c#-4.0,windows-services,vsto,office-interop,C# 4.0,Windows Services,Vsto,Office Interop,我对Microsoft Office有一个非常奇怪的问题我有一个公共库，其唯一目的是打开传递给它的任何word文档文件类型（通过完整文件路径…），并将打开的word文档保存为pdf文件奇怪的是，如果我从windows服务中使用该库，每当它试图打开word文档时，我都会得到一个空值。。。又名，word文档从未打开过但是，如果我从WPF或Windows窗体应用程序中使用库，我永远不会有任何问题。我知道线程（单线程装置）存在问题，但我不知道如何修复它以在windows服务中正常工作：（：（：）

我对Microsoft Office有一个非常奇怪的问题

我有一个公共库，其唯一目的是打开传递给它的任何word文档文件类型（通过完整文件路径…），并将打开的word文档保存为pdf文件

奇怪的是，如果我从windows服务中使用该库，每当它试图打开word文档时，我都会得到一个空值。。。又名，word文档从未打开过

但是，如果我从WPF或Windows窗体应用程序中使用库，我永远不会有任何问题。我知道线程（单线程装置）存在问题，但我不知道如何修复它以在windows服务中正常工作：（：（：）

非常感谢您的帮助！我得到的错误如下：

异常消息：{“对象引用未设置为对象的实例。”}（引用word文档）。内部异常：Null；HResult:-2147467261。数据：ListDictionaryInternal，包含0个条目；堆栈跟踪：at DocumentConverter.ToPdf（字符串currentWorkingFolderPath，字符串pathToDocumentToConvert）在c:\Project Files…\DocumentConverter.cs中：第209行

这里是库函数，它需要MicrosoftOffice参考，它是由VisualStudioToolsforOffice创建的

private string ToPDF(string currentWorkingFolderPath, string pathToDocumentToConvert)
{
    string temporaryPdfFolderPath = Path.GetFullPath(currentWorkingFolderPath + "\\pdf\\");
    string temporaryPdfFilePath = Path.GetFullPath(temporaryPdfFolderPath + "\\pdffile.pdf");

    if (!FileSystem.CreateDirectory(temporaryPdfFolderPath))
    {
        return null;
    }

    try
    {
        Microsoft.Office.Interop.Word.Application wordApplication = new Microsoft.Office.Interop.Word.Application();

        object objectMissing = System.Reflection.Missing.Value;

        wordApplication.Visible = false;
        wordApplication.ScreenUpdating = false;

        FileInfo wordFile = new FileInfo(pathToDocumentToConvert);

        Object fileName = (Object)wordFile.FullName;

        // This is where it breaks when called from windows service. Use the dummy value as a placeholder for optional arguments
        Document wordDocument = wordApplication.Documents.Open(ref fileName, ref objectMissing,            
            true, ref objectMissing, ref objectMissing, ref objectMissing, ref objectMissing,            
            ref objectMissing, ref objectMissing, ref objectMissing, ref objectMissing, ref objectMissing,            
            ref objectMissing, ref objectMissing, ref objectMissing, ref objectMissing);



        object outputFileName = (object)temporaryPdfFilePath;
        object fileFormat = WdSaveFormat.wdFormatPDF ;

        // Save document into PDF Format
        wordDocument.SaveAs(ref outputFileName,
            ref fileFormat, ref objectMissing, ref objectMissing,
            ref objectMissing, ref objectMissing, ref objectMissing, ref objectMissing,
            ref objectMissing, ref objectMissing, ref objectMissing, ref objectMissing,
            ref objectMissing, ref objectMissing, ref objectMissing, ref objectMissing);

        // Close the Word document, but leave the Word application open.
        // doc has to be cast to type _Document so that it will find the
        // correct Close method.                
        object saveChanges = WdSaveOptions.wdDoNotSaveChanges;
        ((_Document)wordDocument).Close(ref saveChanges, ref objectMissing, ref objectMissing);

        wordDocument = null;

        // word has to be cast to type _Application so that it will find
        // the correct Quit method.
        ((Microsoft.Office.Interop.Word._Application)wordApplication).Quit(ref objectMissing, ref objectMissing, ref objectMissing);

        wordApplication = null;

    }
    catch (Exception ex)
    {
        //logging code
        return null;
    }

    return temporaryPdfFilePath;
}

您的windows服务是否启用了“在交互模式下运行”选项？它可能会失败，因为Word正在尝试显示UI，但由于一些显而易见的原因，它无法显示UI

另一种可能性（也是人们经常遇到的一个问题）是，您的Windows服务运行的帐户没有访问您试图传递给它的文件/文件夹的权限。相反，WPF/Winforms程序是在用户凭据下运行的

如果这不是问题，是否有任何错误被抛出？请检查Windows事件日志和/或添加一些日志，以查看是否有一些错误被静默抛出

编辑：我浏览了MSDN文档（），似乎不需要使用VSTO。您可以尝试使用纯word interop来执行此操作并查看其是否有效吗？

Office interop在类似服务器的场景中不受MS的支持（如ASP.NET或Windows Service或类似）-请参阅

您需要使用一些库来实现您想要的：

（免费）
（商业）

Imports Microsoft.Office.Interop.Word


Dim Result As Boolean = False

    Dim appWord As New Microsoft.Office.Interop.Word.Application
    Dim wordDocument As Microsoft.Office.Interop.Word.Document

    Try
        Dim oFile As New FileInfo(sPDFFile), sFilePath As String, sFileName As String, sFileNameArr() As String
        Dim sActualFileName As String

        sFileName = oFile.Name
        sFileNameArr = sFileName.Split(".")
        sActualFileName = sFileNameArr(0)
        sFilePath = oFile.DirectoryName & "\" & sActualFileName & ".pdf"

        wordDocument = appWord.Documents.Open(sPDFFile)

        wordDocument.ExportAsFixedFormat(sFilePath, WdExportFormat.wdExportFormatPDF)
        'wordDocument.ExportAsFixedFormat(sFilePath, 17)

        Result = True
        oFile = Nothing

    Catch ex As COMException
        sErrMsg = ex.InnerException.ToString
        Result = False
    Finally
        wordDocument.Close()
        wordDocument = Nothing
        appWord.Application.Quit()
        appWord = Nothing



    End Try


    Return Result

wordApplication.Visible=false