VSTO查找Word文档的ContentControls

Question

有没有办法使用 VSTO 查找 WordDocument 的所有 ContentControl（包括页眉、页脚、文本框...中的 ContentControl）？

Microsoft.Office.Tools.Word.Document.ContentContols 仅返回主文档的 ContentControl，而不返回页眉/页脚内的 ContentControl。

Answer 1

复制自 http://social. msdn.microsoft.com/Forums/is/vsto/thread/0eb0af6f-17db-4f98-bc66-155db691fd70

public static List<ContentControl> GetAllContentControls(Document wordDocument)
    {
      if (null == wordDocument)
        throw new ArgumentNullException("wordDocument");

      List<ContentControl> ccList = new List<ContentControl>();

      // The code below search content controls in all
      // word document stories see http://word.mvps.org/faqs/customization/ReplaceAnywhere.htm
      Range rangeStory;
      foreach (Range range in wordDocument.StoryRanges)
      {
        rangeStory = range;
        do
        {
          try
          {
            foreach (ContentControl cc in rangeStory .ContentControls)
            {
              ccList.Add(cc);
            }
            foreach (Shape shapeRange in rangeStory.ShapeRange)
            {
              foreach (ContentControl cc in shapeRange.TextFrame.TextRange.ContentControls)
              {
                ccList.Add(cc);
              }
            }
          }
          catch (COMException) { }
          rangeStory = rangeStory.NextStoryRange;

        }
        while (rangeStory != null);
      }
      return ccList;
    }

Answer 2

试试这个：

foreach (Word.ContentControl contentcontrol in this.Application.ActiveDocument.ContentControls)
{
    //Some action on all contentcontrol objects
}

如果这不起作用，请尝试迭代文档的 故事范围

Answer 3

我正在处理同样的问题，但从 MATLAB 驱动 Word。 Word MVP 的此页面为我解决了问题：

http://www. word.mvps.org/FAQs/MacrosVBA/FindReplaceAllWithVBA.htm

本质上，您必须：

1. 循环所有 Document.StoryRanges 以获取每种故事类型的第一个范围。
2. 在每个范围内，在 range.ContentControls 上完成您的工作。
3. 范围 = 范围.NextStoryRange.
4. 重复2-4，直到范围为空。