Word заменить текст в колонтитуле

Обычно функция «Найти и заменить» может помочь найти и заменить определенный текст в теле, верхнем и нижнем колонтитулах документа Word одновременно. Вы когда-нибудь пытались найти и заменить текст только в разделе верхнего и нижнего колонтитула в документе Word? Или найти и заменить несколько разных текстов одновременно в текстовом документе или в нескольких документах? В этом руководстве показаны некоторые методы их достижения.

Найдите и замените тот же текст в документе Word с помощью функции поиска и замены
Найдите и замените тот же текст только в разделе верхнего и нижнего колонтитула кодом VBA.
Находите и заменяйте разные тексты одновременно с помощью потрясающей функции

Найдите и замените тот же текст в документе Word с помощью функции поиска и замены

В документе Word легко использовать функцию «Найти и заменить».

1. Откройте документ, содержащий слова, которые вы хотите заменить, нажмите Ctrl + H в то же время, чтобы открыть Найти и заменить диалоговое окно.

2. в Найти и заменить диалоговое окно под Замените вкладку, введите старый текст и новый текст отдельно в поле Найти то, что и Rзаменить с поля, а затем щелкните Заменить все кнопка. Смотрите скриншот:

Примечание: Вы можете нажать Больше кнопку, чтобы найти дополнительные параметры поиска по мере необходимости.

3. Затем появится диалоговое окно, в котором показано, сколько замен было произведено. Нажмите OK в конце.

Найдите и замените тот же текст только в разделе верхнего и нижнего колонтитула кодом VBA.

Если вы хотите найти и заменить только в верхнем и нижнем колонтитулах документа, вам может помочь метод из этого раздела.

1. Откройте документ, который вы найдете и замените текст в верхнем и нижнем колонтитулах, нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модуль, а затем скопируйте приведенный ниже код VBA в окно модуля.

Код VBA: найти и заменить текст только в верхнем и нижнем колонтитулах

Sub FindAndReplaceOfHeaderAndFooter()
'Update by Extendoffice 20190805
    Dim xDoc As Document
    Dim xSelection As Selection
    Dim xSec As Section
    Dim xHeader As HeaderFooter
Dim xFooter As HeaderFooter
On Error Resume Next
    Set xDoc = Application.ActiveDocument
    For Each xSec In xDoc.Sections
        For Each xHeader In xSec.Headers
            xHeader.Range.Select
            Set xSelection = xDoc.Application.Selection
            With xSelection.Find
                .Text = "I've found header text" 'Enter the old header text here!
               .Replacement.Text = "I've found header text" 'Enter the new header text here!
                .Wrap = wdFindContinue
                .Execute Replace:=wdReplaceAll
            End With
        Next xHeader
        For Each xFooter In xSec.Footers
            xFooter.Range.Select
            Set xSelection = xDoc.Application.Selection
            With xSelection.Find
                .Text = "I've found footer text" 'Enter the old footer text here!
                .Replacement.Text = "I've found footer text" 'Enter the old footer text here!
                .Wrap = wdFindContinue
                .Execute Replace:=wdReplaceAll
            End With
        Next xFooter
    Next xSec
    xDoc.ActiveWindow.ActivePane.Close
    If xDoc.ActiveWindow.View.SplitSpecial = wdPaneNone Then
        xDoc.ActiveWindow.View.Type = wdPrintView
    Else
        xDoc.ActiveWindow.View.Type = wdPrintView
    End If
    xDoc.Activate
End Sub

Примечание: В коде замените «Найти текст заголовка«И»Найти текст нижнего колонтитула»С текстами, которые вы хотите найти в верхнем и нижнем колонтитулах; и замените «Я нашел текст заголовка(Основной ключ) и Я нашел нижний колонтитул»С новым текстом заголовка и текстом нижнего колонтитула.

3. нажмите F5 ключ для запуска кода. Затем конкретные тексты в верхнем и нижнем колонтитулах заменяются новыми текстами.

Находите и заменяйте разные тексты одновременно с помощью потрясающей функции

1. Запустите приложение Microsoft Word, нажмите Кутулс Плюс > Пакетный поиск и замена.

2. в Пакетный поиск и замена окно нужно сделать следующим образом.

Затем все конкретные тексты заменяются в выбранных документах.

Наконечник: Вы можете выделить результат цветом фона, указав определенный цвет в столбце «Выделить» для строки.

  Если вы хотите получить бесплатную (60-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.

Статьи по теме

вот:

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

namespace TestProjectWord
{
    class Program
    {
        static void Main(string[] args)
        {
            Word.Application app = new Word.Application(); //Создаём новый Word.Application
            Word.Document doc = null; //Загружаем документ

            doc = app.Documents.Add(@"C:UsersUser1Documentsномер1.docx", Visible: false);
            //Задаём параметры замены и выполняем замену.
            object findText = "{Что меняем}";
            object replaceWith = "На что меняем";
            object replace = 2;
            object tm = Type.Missing;

            object WH=Word.WdHeaderFooterIndex;
            WH колонтитул1лист = WH.wdHeaderFooterFirstPage;
            WH колонтитулысо2листа = WH.wdHeaderFooterPrimary;
            WH колонтитулычетныхлистов = WH.wdHeaderFooterEvenPages;
            // замена в верхнем колонтитуле
            // замена в верхнем колонтитуле на первом листе
            doc.Sections[1].Headers[колонтитул1лист].Range.Find.Execute(
            ref findText, ref tm, ref tm, ref tm, ref tm, ref tm, ref tm, ref tm, 
            ref tm, ref replaceWith, ref replace, ref tm, ref tm, ref tm, ref tm);
            // замена в верхнем колонтитуле на последующих листах
            doc.Sections[1].Headers[колонтитулысо2листа].Range.Find.Execute(
            ref findText, ref tm, ref tm, ref tm, ref tm, ref tm, ref tm, ref tm, 
            ref tm, ref replaceWith, ref replace, ref tm, ref tm, ref tm, ref tm);
            // замена в верхнем колонтитуле на четных листах
            doc.Sections[1].Headers[колонтитулычетныхлистов].Range.Find.Execute(
            ref findText, ref tm, ref tm, ref tm, ref tm, ref tm, ref tm, ref tm, 
            ref tm, ref replaceWith, ref replace, ref tm, ref tm, ref tm, ref tm);
            // замена в нижнем колонтитуле
            // замена в нижнем колонтитуле на первом листе
            doc.Sections[1].Footers[колонтитул1лист].Range.Find.Execute(
            ref findText, ref tm, ref tm, ref tm, ref tm, ref tm, ref tm, ref tm, 
            ref tm, ref replaceWith, ref replace, ref tm, ref tm, ref tm, ref tm);
            // замена в нижнем колонтитуле на последующих листах
            doc.Sections[1].Footers[колонтитулысо2листа].Range.Find.Execute(
            ref findText, ref tm, ref tm, ref tm, ref tm, ref tm, ref tm, ref tm, 
            ref tm, ref replaceWith, ref replace, ref tm, ref tm, ref tm, ref tm);
            // замена в нижнем колонтитуле на четных листах
            doc.Sections[1].Footers[колонтитулычетныхлистов].Range.Find.Execute(
            ref findText, ref tm, ref tm, ref tm, ref tm, ref tm, ref tm, ref tm, 
            ref tm, ref replaceWith, ref replace, ref tm, ref tm, ref tm, ref tm);
             
            //Открываем документ для просмотра.
            app.Visible = true;

        }
    }
}

ну и ваш пример:

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

namespace TestProjectWord
{
    class Program
    {
        static void Main(string[] args)
        {
            Word.Application app = new Word.Application();//Создаём новый Word.Application
            Word.Document doc = app.Documents.Add(
                @"C:UsersUser1Documentsномер1.docx", 
                Visible: false); //Загружаем документ
            object replace = 2;
            object tm = Type.Missing;
            object WH=Word.WdHeaderFooterIndex;
            WH колонтитул1лист = WH.wdHeaderFooterFirstPage;
            WH колонтитулысо2листа = WH.wdHeaderFooterPrimary;
            for (int i=0; i<r2.KeyValues.Count;i++)
            {
            object findText = "{"+r2.KeyValues[i].Key+"}"; // что меняем
            object replaceWith = r2.KeyValues[i].Value; // на что меняем
    // замена в нижнем колонтитуле на первом листе
            doc.Sections[1].Footers[колонтитул1лист].Range.Find.Execute(
            ref findText, ref tm, ref tm, ref tm, ref tm, ref tm, ref tm, ref tm, 
            ref tm, ref replaceWith, ref replace, ref tm, ref tm, ref tm, ref tm);
    // замена в нижнем колонтитуле на последующих листах
            doc.Sections[1].Footers[колонтитулысо2листа].Range.Find.Execute(
            ref findText, ref tm, ref tm, ref tm, ref tm, ref tm, ref tm, ref tm, 
            ref tm, ref replaceWith, ref replace, ref tm, ref tm, ref tm, ref tm);
            }
            //Открываем документ для просмотра.
            app.Visible = true;

        }
    }
}

wdHeaderFooterPrimary Возвращает верхний или нижний колонтитул на всех страницах, кроме первой страницы документа или раздела.

wdHeaderFooterFirstPage Возвращает первый верхний или нижний колонтитул в документе или разделе.

wdHeaderFooterEvenPages Возвращает все верхние и нижние колонтитулы на четных страницах.

файл для работы с word: Microsoft Office 2010: Primary Interop Assemblies Redistributable от Microsoft, распаковываем и получаем установочный файл, устанавливаем его и по пути c:WindowsassemblyGAC_MSILMicrosoft.Office.Interop.Word15.0.0.0__71e9bce111e9429c находим Microsoft.Office.Interop.Word.dll