Заменить поле в верхнем и нижнем колонтитуле в Word с помощью Interop

Ответ 1

Наконец, пройдя через плохую документацию по introp.word, получил решение

// Loop through all sections
foreach (Microsoft.Office.Interop.Word.Section section in wordDocument.Sections) {

    wordDocument.TrackRevisions = false; //Disable Tracking for the Field replacement operation

    //Get all Headers
    Microsoft.Office.Interop.Word.HeadersFooters headers = section.Headers;

    //Section headerfooter loop for all types enum WdHeaderFooterIndex. wdHeaderFooterEvenPages/wdHeaderFooterFirstPage/wdHeaderFooterPrimary;                          
    foreach (Microsoft.Office.Interop.Word.HeaderFooter header in headers)
    {
        Fields fields = header.Range.Fields;

        foreach (Field field in fields)
        {
            if (field.Type == WdFieldType.wdFieldDate)
            {
                field.Select ();
                field.Delete ();
                wordApplication.Selection.TypeText ("[DATE]");
            }
            else if (field.Type == WdFieldType.wdFieldFileName)
            {
                field.Select ();
                field.Delete ();
                wordApplication.Selection.TypeText ("[FILE NAME]");

            }
        }
    }

    //Get all Footers
    Microsoft.Office.Interop.Word.HeadersFooters footers = section.Footers;

    //Section headerfooter loop for all types enum WdHeaderFooterIndex. wdHeaderFooterEvenPages/wdHeaderFooterFirstPage/wdHeaderFooterPrimary; 
    foreach (Microsoft.Office.Interop.Word.HeaderFooter footer in footers)
    {
        Fields fields = footer.Range.Fields;

        foreach (Field field in fields)
        {
            if (field.Type == WdFieldType.wdFieldDate)
            {
                field.Select ();
                field.Delete ();
                wordApplication.Selection.TypeText ("[DATE]");
            }
            else if (field.Type == WdFieldType.wdFieldFileName)
            {
                field.Select ();
                field.Delete ();
                wordApplication.Selection.TypeText ("[FILE NAME]");

            }
        }
    }
}

Ответ 2

Джей,

Может быть, немного поздно, но в любом случае...

Не могу комментировать, поэтому я отвечаю.

Немногие вещи, хотя я могу быть полезен вам (или другим) в один прекрасный день с точки зрения текущего принятого ответа.

• Чтобы ответить на ваш вопрос из последнего Обновить, вы можете использовать что-то вроде этого, чтобы включить коды полей, а затем использовать "Найти" для поиска полей:

  wordDocument.ActiveWindow.View.ShowFieldCodes = true;
  

  Итак, вы должны включить это, прежде чем искать (если уже на нем уже) и восстановить его, когда закончите.

• Решение, которое вы предоставили себе, будет работать для большинства сценариев, и я использовал что-то подобное в течение некоторого времени. Однако я столкнулся с документом с 2000 разделами. И цикл через эти разделы будет, в свою очередь, проходить через одни и те же заголовки снова и снова. В моем случае обработка документа вычеркнута (с учетом допустимого времени обработки)

• решение с StoryRanges может быть лучшим подходом (в сочетании с кодами полей переключения)
  Некоторые примеры его использования (общий поиск и замена):
  http://word.mvps.org/faqs/customization/ReplaceAnywhere.htm
  https://wls.wwco.com/blog/2010/07/03/find-and-replace-in-word-using-c-net/

• Одна вещь, которую нужно помнить: не забывайте искать вещи в Shapes of Range

• Я думаю, вы поняли, как заменить поле. В любом случае, я фактически конвертирую простой текст в поле.

  Как только Find.Execute ударит что-то, диапазон будет выбран, и я сделаю

  theDoc.Fields.Add(range, WdFieldType.wdFieldDocVariable, "myDocVar");
  

TL; DR: Если ваши документы предсказуемы в формате и имеют только небольшое количество разделов, а текст не находится в пределах форм, не беспокойтесь обо всем этом.

Ответ 3

object replaceAll = MSWord.WdReplace.wdReplaceAll;
foreach (Microsoft.Office.Interop.Word.Section section in oDoc.Sections)
{
    Microsoft.Office.Interop.Word.Range footerRange =  section.Footers[Microsoft.Office.Interop.Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range;
    footerRange.Find.Text = "Some Text";
    footerRange.Find.Replacement.Text = "Replace Text";
    footerRange.Find.Execute(ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref replaceAll, ref missing, ref missing, ref missing, ref missing);
}

oDoc - это объект "MSWord.Document", который имеет текущий документ, т.е.

oDoc = oMSWord.Documents.Open(ref "DocPath", ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing);

Затем примените цикл к "Разделам" текущего объекта oDoc. Основываясь на разделах, вы получите диапазон нижнего колонтитула. Тогда вы сможете найти и заменить текст в нижнем колонтитуле.