c# – 使用Silverlight 4中的ComAutomationFactory对Word文档字段进行迭代

更新：这是Silverlight 4测试版中确认的错误. http://connect.microsoft.com/VisualStudio/feedback/ViewFeedback.aspx?FeedbackID=523052

我通过切换到完整的WPF应用程序并使用常规的旧Microsoft.Office.Interop.Word解决了这个问题.但我仍然对使用ComAutomationFactory的动态值如何使其工作非常感兴趣.

这可能更像是一个C#4.0问题,但我想要做的是利用受信任的SL4应用程序中的ComAutomationFactory类来加载Word文档,更改一些文本并打印它.

使用常规的Windows应用程序,非常简单：

  Object oMissing = System.Reflection.Missing.Value;
    Object oTrue = true;
    Object oFalse = false;

    Application oWord = new Application();
    Document oWordDoc = new Document();

    oWord.Visible = false;

    object oTemplatePath = "C:\\Users\\jwest\\Desktop\\DocumentTemplate.dotx";
    oWordDoc = oWord.Documents.Add(ref oTemplatePath, ref oMissing, ref oMissing, ref oMissing);

    foreach (Field myMergeField in oWordDoc.Fields)

但是,在SL4中,您必须使用dynamic关键字.它工作正常,直到我尝试迭代我的字段：

    Object oMissing = System.Reflection.Missing.Value;
    Object oTrue = true;
    Object oFalse = false;

    dynamic oWord = ComAutomationFactory.CreateObject("Word.Application");

    oWord.Visible = false;

    object oTemplatePath = "C:\\Users\\jwest\\Desktop\\DocumentTemplate.dotx";
    dynamic oWordDoc = oWord.Documents.Add(ref oTemplatePath, ref oMissing, ref oMissing, ref oMissing);
    dynamic fields = oWordDoc.Fields;

    foreach (var myMergeField in fields)

在这种情况下,我收到一个运行时错误,说我无法将ComAutomationMetaObjectProvider隐式转换为IEnumerable.无论我做什么,任何与我的Word com对象相关的属性都是ComAutomationMetaObjectProvider类型,我不能迭代它们.

有人提到我应该尝试从成员中将字段作为字符串.

        for (int i = 0; i < oWordDoc.Fields.Count; i++)
        {
            String field = oWordDoc.Fields.Item[i].Result.Text;
        }

这导致了一个有趣的例外：HRESULT：0x800A16E6,当用Google搜索时,绝对没有任何结果.

解决方法:

它肯定不是C#问题 – VB.NET也有同样的问题.这里有一个bug或者没有记录的东西,但在任何一种情况下,似乎都不可能声明集合对象.

还有另一种方法,它是访问集合的各个成员.这是一个示例(在VB.NET中),允许您通过Fields.Item进行迭代. (此处没有错误检查或关闭Word;我的.dotx有两个字段 – 1)日期和2)作者).

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button1.Click
    Dim wrd As Object = ComAutomationFactory.CreateObject("Word.Application")
    Dim path As String = "C:\Users\me\test.dotx"
    Dim wordDoc As Object = wrd.Documents.Add(path)
    Dim fieldsCount As Integer = wordDoc.Fields.Count
    Dim fieldResults As String = Nothing
    For i As Integer = 1 To fieldsCount
        fieldResults = fieldResults & " " & wordDoc.Fields.Item(i).Result.Text & vbNewLine
    Next
    TextBox1.Text = "Field Results: " & fieldResults
End Sub

标签：c,net,com,silverlight,silverlight-4-0
来源： https://codeday.me/bug/20190527/1159786.html