2

我正在尝试在列表之前插入文本。我有Microsoft.Office.Interop.Word.Range列表的，并在列表之前获取上一个 Range。然后我尝试将我的段落文本添加到上一个范围，但是，该段落被添加为列表中的第一项而不是列表之前。

// rangeObj is the Range object for the list
var previousRange = rangeObj.Previous(MSWord.WdUnits.wdCharacter, 1);

Paragraph paragraph;
if (previousRange == null)
{
  var rangeCopy = rangeObj.Duplicate;
  rangeCopy.InsertParagraphBefore();
  paragraph = rangeCopy.Paragraphs[1];
}
else 
{
  paragraph = previousRange.Paragraphs[1];  
}

Range range = paragraph.Range;
range.Text = String.Format("{0} {1}", "My list", range.Text);

例如之前：

  1. 项目 1
  2. 第 2 项

之后（我想要什么）：

我的列表

  1. 项目 1
  2. 第 2 项

之后（我目前得到的）：

  1. 我的列表
  2. 项目 1
  3. 第 2 项

编辑： 根据 Lasse 的回答和我的评论，除了以下边缘情况，我正在让一切正常工作。注意：第二个列表不是第一个列表的子列表，每个列表之间没有空行。

if (previousRange.ListParagraphs.Count > 0)

前：

  1. 项目 1

  2. 第 2 项

    1. 第 3 项
    2. 第 4 项

之后（我想要的）：

  1. 项目 1

  2. 第 2 项

    另一个清单：

    1. 第 3 项
    2. 第 4 项
4

1 回答 1

1

在这段代码中：

else 
{
  paragraph = previousRange.Paragraphs[1];  
}

..您冒着覆盖列表之前的任何内容的风险（包括仅\r在其中的空行），当我在样本上运行它时，事情被覆盖并最终发生怪异是很有意义的。

在这段代码中：

if (previousRange == null)
{
  var rangeCopy = rangeObj.Duplicate;
  rangeCopy.InsertParagraphBefore();
  paragraph = rangeCopy.Paragraphs[1];
}

..您在列表之前插入一个新段落（这很好 - 尽管我不明白为什么需要克隆范围，因为范围会自动扩展以包括新插入的段落），然后存储范围局部变量中的新段落paragraph。此时，paragraph = '\r'- 的内容（如果您使用调试器单步调试应用程序，同时在调试阶段保持单词可见，则可以看到这一点）。因此，此时光标位于列表之前，这是您想要的位置 - 但是您执行以下操作：

Range range = paragraph.Range;
range.Text = "My paragraph";

...这意味着您无需在段落中添加文本，而是简单地覆盖包括 在内的所有内容\r，这会导致 Word 将文本插入列表中而不是之前。

为了绕过这个，我做了一个似乎可行的替代实现。它基于您使用列表之前的范围插入文本的想法。我已经为大多数行添加了评论，因此应该直接了解正在发生的事情:)

using System;
using System.Linq;
using Microsoft.Office.Interop.Word;
using Application = Microsoft.Office.Interop.Word.Application;

namespace WordDocStats
{
    internal class Program
    {
        private static void Main()
        {
            var wordApplication = new Application() { Visible = true };

            // Open document A
            var documentA = wordApplication.Documents.Open(@"C:\Users\MyUser\Documents\documentA.docx", Visible: true);

            // This inserts text in front of each list found in the document
            const string myText = "My Text Before The List";
            foreach (List list in documentA.Lists)
            {
                // Range of the current list
                var listRange = list.Range;

                // Range of character before the list
                var prevRange = listRange.Previous(WdUnits.wdCharacter);

                // If null, the list might be located in the very beginning of the doc
                if (prevRange == null)
                {
                    // Insert new paragraph
                    listRange.InsertParagraphBefore();
                    // Insert the text
                    listRange.InsertBefore(myText);
                }
                else
                {
                    if (prevRange.Text.Any())
                    {
                        // Dont't append the list text to any lines that might already be just before the list
                        // Instead, make sure the text gets its own line
                        prevRange.InsertBefore("\r\n" + myText);
                    }
                    else
                    {
                        // Insert the list text
                        prevRange.InsertBefore(myText);
                    }
                }
            }

            // Save, quit, dones
            Console.WriteLine("Dones");
            Console.ReadLine();
            documentA.Save();
            wordApplication.Quit();
        }
    }
}

简而言之，代码在给定文档中的每个列表之前插入一个字符串。如果列表之前的行上已经有文本，则实现确保在列表之前和列表之前的行上已经存在的文本之后插入列表描述文本。

希望这可以帮助 ：）

--- 更新以回答已编辑的问题：

在第二轮中完成您在此处提出的要求的一种方法是执行以下操作：

...
// The paragraph before the current list is also a list -> so in order to insert text, we must do "some magic"
else if(prevRange.ListParagraphs.Count > 0)
{
    // First, insert a new line -> this causes a new item to be inserted into the above list
    prevRange.InsertAfter("\r");

    // Modify current range to be on the line of the new list item
    prevRange.Start = prevRange.Start + 1;
    prevRange.End = prevRange.Start;

    // Convert the list item line into a paragraph by removing its numbers
    prevRange.ListFormat.RemoveNumbers();

    // Insert the text
    prevRange.InsertBefore(myText);
}
...

只需将该代码添加到我上面提供的示例代码循环if-else内的块中foreach，你应该很高兴:) 我已经在我的机器上使用 MS Word 2013 对其进行了测试，它似乎可以工作。

于 2012-11-10T11:24:29.340 回答