Question

我安装了Word 2016时使用了以下代码，引用了Microsoft Word 16.0 Object Library：

private void RefreshFootnoteNumbering(FileManagement.FileManager FileManager)
{
    Console.WriteLine(DateTime.Now.ToString() + " Refreshing footnotes DOCX");

    // Opening and saving in word generates the required element
    var Word = GetWordApp();
    try
    {
        var DocxPath = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, Path.ChangeExtension(FileManager.HtmlFileLocation, "docx"));
        Console.WriteLine(DateTime.Now.ToString() + "\tOpening document");
        var Doc = GetWordDoc(Word, DocxPath);
        try
        {
            // Fails on these lines below (both cause the same exception)
            Doc.Footnotes.NumberingRule = InteropWord.WdNumberingRule.wdRestartPage;
            Doc.Footnotes.Location = InteropWord.WdFootnoteLocation.wdBottomOfPage;

            Doc.SaveAs2(DocxPath, InteropWord.WdSaveFormat.wdFormatXMLDocument, AddToRecentFiles: false, EmbedTrueTypeFonts: true);
        }
        finally
        {
            Doc.Close();
            Doc = null;
        }
    }
    finally
    {
        Word.Quit();
        Word = null;
        GC.Collect();
        GC.WaitForPendingFinalizers();
    }
}

这适用于大多数文档，但是对于某些文档，我得到以下异常：

System.Runtime.InteropServices.COMException was unhandled
  ErrorCode=-2146823680
  HResult=-2146823680
  HelpLink=wdmain11.chm#37376
  Message=Value out of range
  Source=Microsoft Word
  StackTrace:
       at Microsoft.Office.Interop.Word.Footnotes.set_NumberingRule(WdNumberingRule prop)

其他互操作函数（迭代/操作字段，节等）工作正常，它似乎只是以这种方式改变脚注有问题。从Word内部改变它们本身就可以正常工作。

以前有人遇到过这个问题吗？任何工作或替代方案？

我已尝试录制宏，并提供了此VBA代码：

With ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:= _
    ActiveDocument.Content.End).FootnoteOptions
    .Location = wdBottomOfPage
    .NumberingRule = wdRestartContinuous
    .StartingNumber = 1
    .NumberStyle = wdNoteNumberStyleArabic
    .NumberingRule = wdRestartPage
    .LayoutColumns = 0
End With

如果我运行此宏，我会在.Location行上得到相同的错误（值超出范围，错误号4608），无论我是从调试器运行，还是仅查看宏 - ＆gt;运行

我还尝试将该VBA转换为C＃代码：

var Options = Doc.Range(Doc.Content.Start, Doc.Content.End).FootnoteOptions;

Options.Location = InteropWord.WdFootnoteLocation.wdBottomOfPage;
Options.NumberingRule = InteropWord.WdNumberingRule.wdRestartPage;

但是，这会产生同样的错误。

Answer 1

仍然不确定确切的原因（可能在我的代码中创建不同部分的内容）;仍然不清楚当单词记录宏时它为什么起作用，但是在运行它时却不清楚。

无论如何，我设法将C＃代码更改为以下内容，这似乎可以完成工作并且实际上有效！

foreach(InteropWord.Footnote FootNote in Doc.Footnotes)
{
    FootNote.Reference.FootnoteOptions.NumberingRule = InteropWord.WdNumberingRule.wdRestartPage;
    FootNote.Reference.FootnoteOptions.Location = InteropWord.WdFootnoteLocation.wdBottomOfPage;
}

对于使用Interop

1 个答案: