检测并动态加载已安装的Microsoft Word对象库

时间:2009-10-08 20:44:44

标签: c# .net office-interop dynamic-loading com-object

一个小故事:我有一个小应用程序,它将使用Word生成基于Word模板和公司活动目录中的数据的Outlook签名。它在使用Office 2007的计算机上运行得很好,因为我在自己的计算机上编写时使用了“Microsoft Word 12.0对象库”。

网络上有很多使用Office 2003的计算机,并且在这些计算机上缺少“Microsoft Word 12.0对象库”,导致左右异常。

我的问题是:如何检测安装了哪个版本的Office,从而检测到哪个版本的“Microsoft Word对象库”可用,然后加载它。我很确定我使用的功能在“Microsoft Word 12.0对象库”和“Microsoft Word 11.0对象库”中。

如果有人感兴趣,这是我用于生成签名的当前代码:

class Signature
{
    public Dictionary<string, string> TemplateMappings { get; set;}
    public string SignatureTemplateFileName { get; set; }
    public string SignatureName { get; set;}
    public bool UseSignatureWithNewMessages { get; set; }
    public bool UseSignatureInReplyMessages { get; set; }

    public Signature()
    {
        UseSignatureWithNewMessages = true;
        UseSignatureInReplyMessages = true;
        TemplateMappings = new Dictionary<string, string>();
    }

    public void Create()
    {
        if(string.IsNullOrEmpty(SignatureTemplateFileName) || !File.Exists(SignatureTemplateFileName))
        {
            throw new InvalidOperationException("SignatureTemplateFileName is null or the file do not exists");
        }

        if(string.IsNullOrEmpty(SignatureName))
        {
            throw new InvalidOperationException("No SignatureName specified");
        }

        object nullObject = System.Reflection.Missing.Value;
        object signatureTemplate = SignatureTemplateFileName;

        // open word doc
        var word = new ApplicationClass();
        var doc = word.Documents.Add(ref signatureTemplate, ref nullObject, ref nullObject, ref nullObject);

        // search/replace user info
        object wdReplaceAll = WdReplace.wdReplaceAll;
        var find = word.Selection.Find;
        foreach (var pair in TemplateMappings)
        {
            find.Text = pair.Key;
            find.Forward = true;
            find.MatchCase = true;
            find.MatchWholeWord = true;
            find.Replacement.Text = pair.Value;
            find.Execute(ref nullObject /* FindText */,
                         ref nullObject /* MatchCase*/,
                         ref nullObject /* MatchWholeWord*/,
                         ref nullObject /* MatchWildcards*/,
                         ref nullObject /* MatchSoundsLike*/,
                         ref nullObject /* MatchAllWordForms*/,
                         ref nullObject /* Forward*/,
                         ref nullObject /* Wrap*/,
                         ref nullObject /* Format*/,
                         ref nullObject /* ReplaceWith*/,
                         ref wdReplaceAll /* Replace*/,
                         ref nullObject /* MatchKashida*/,
                         ref nullObject /* MatchDiacritics*/,
                         ref nullObject /* MatchAlefHamza*/,
                         ref nullObject /* MatchControl */);
        }

        // Add signature to outlook
        var signatureRange = doc.Range(ref nullObject, ref nullObject);
        word.EmailOptions.EmailSignature.EmailSignatureEntries.Add(SignatureName, signatureRange);

        // set new signature as default for news messages and replies
        if (UseSignatureWithNewMessages)
            word.EmailOptions.EmailSignature.NewMessageSignature = SignatureName;
        if (UseSignatureInReplyMessages)
            word.EmailOptions.EmailSignature.ReplyMessageSignature = SignatureName;

        // close and clean up
        doc.Saved = true;
        doc.Close(ref nullObject, ref nullObject, ref nullObject);
        word.Quit(ref nullObject, ref nullObject, ref nullObject);
    }
}

任何帮助将不胜感激。也欢迎输入上面的代码;我没有任何针对Office Interop库的编码经验,所以我确信有些事情我可以做不同的事情。

最好的问候,埃吉尔。

1 个答案:

答案 0 :(得分:1)

确定找到了我要找的东西。

MS Office For Net抽象出底层Office互操作程序集版本的难题。也许您可以直接在项目中使用它,或者研究它的实现以了解如何解决这个问题。从事这个项目的人可能也是提出互操作问题的好资源。