C#：使用 Office 互操作库在 word 文档中的书签处插入和缩进项目符号点

Question

这是我的困境。我的任务是根据来自 Web 前端的用户输入生成现有 Word 文档的特定部分。系统的后端是用 C# 编写的，其中部分是使用 Microsoft.Office.Interop.Word 命名空间编辑 word 文档。

基本上，他们会从可用指令列表中进行选择，每个指令的类型为string，然后将用于生成文档的指令部分，每个单独的指令是列表中的另一个项目符号。这部分工作正常。我的问题是，说明可以包含字符\，需要用缩进替换，或者如果您用word打开文档，则相当于在项目符号中按TAB。到目前为止，我能够让它很好地将项目符号插入列表的中间，它会继续按预期对它们进行适当的编号。关键是我无法根据需要缩进它们。

我已经尝试了几乎所有可以在此处和其他一些网站上找到的示例以使其正常工作，但没有成功。最新的迭代在下面的代码中，它只是尽可能地缩进整个列表。

var bookmark = "bookMarkName";
var docPath = @"c:\temp\Template.docx";
var app = new Application();
var doc = app.Documents.Open(docPath);
var range = doc.Bookmarks[bookmark].Range;
var listTemplate = range.ListFormat.ListTemplate;

range.ListFormat.ApplyListTemplate(listTemplate);

string[] bulletList = new string[] {
    @"Point A",
    @"\Point B",
    @"\Point C",
    @"\\Point D",
    @"Point E"
}

var count = bulletList.Length;

for (var i = 0; i < count; i++)
{
    var listLevel = 0;
    var currentItem = bulletList[i];
    var item = currentItem.Replace(@"\", "");

    if (i < count - 1)
        item = item + "\n";

    listLevel += currentItem.ToList().Where(x => x == '\\').Select(x => x).Count();

    for (var x = 0; x < listLevel; x++)
    {
        range.ListFormat.ListIndent();
    }

    range.InsertAfter(item);
}

doc.SaveAs(@"c:\temp\" + DateTime.Now.Ticks + ".docx");
doc.Close();

所以我的代码的输出应该是：

• 1 点 A
  • 1.1 B点
  • 1.2 C 点
    • 1.2.1 D点
• 2 点 E

这是我第一次真正不得不使用 Office 互操作库，所以我很肯定这里缺少一些东西。任何帮助将不胜感激。

Answer 1

我的计算机上没有 Office Interop，但您可以尝试使用 DocX 构建列表，将其写入文件，然后从所述文件将该列表插入到您的文档中。

类似这样的：

using System.Collections.Specialized;
...
...

DocX doc = DocX.Create("bullet-text.docx");

var firstItem = bulletList[0];
var firstItemLevel = firstItem.ToList().Count(c => c == '\\');
// Using full Namespace to avoid ambiguous reference error.
Xceed.Words.NET.List list = doc.AddList(firstItem.Replace("\\", ""), firstItemLevel, ListItemType.Numbered);

for (var i = 1; i < count; i++)
{
    var currentItem = bulletList[i];
    var item = currentItem.Replace(@"\", "");
    int listLevel = currentItem.ToList().Count(c => c == '\\')

    doc.AddListItem(list, item, listLevel, ListItemType.Numbered);

}

doc.InsertList(list);

doc.Save();

// Collapse the range to the end, as to not overwrite it. Unsure if you need this
range.Collapse(WdCollapseDirection.wdCollapseEnd);

// Insert into the selected range
range.InsertFile(Environment.CurrentDirectory + "\\bullet-text.docx");

我引用的参考文献：

Nested Bulleted lists in Novacode docx

How to embed file to word docx?

Collapse

InsertFile

Answer 2

请使用此代码，但首先Add DocX DLL

 using (var document = DocX.Create(@"docs\Lists.docx"))
    {
        var numberedList = document.AddList("First List Item.", 0, ListItemType.Numbered);
                //Add a numbered list starting at 2
        document.AddListItem(numberedList, "Second List Item.");
        document.AddListItem(numberedList, "Third list item.");
        document.AddListItem(numberedList, "First sub list item", 1);

        document.AddListItem(numberedList, "Nested item.", 2);
        document.AddListItem(numberedList, "Fourth nested item.");

        var bulletedList = document.AddList("First Bulleted Item.", 0, ListItemType.Bulleted);
        document.AddListItem(bulletedList, "Second bullet item");
        document.AddListItem(bulletedList, "Sub bullet item", 1);
        document.AddListItem(bulletedList, "Second sub bullet item", 2);
        document.AddListItem(bulletedList, "Third bullet item");

        document.InsertList(numberedList);
        document.InsertList(bulletedList);
        document.Save();
        Console.WriteLine("\tCreated: docs\\Lists.docx");
    }

找到Reference From Here