Delphi замена в колонтитулах word

I would like to search in a word header and footer for specific words, and then replace them with words from my database.

Currently i can search and replace words anywhere in the word document except for the header and footer.

Can anybody help me with this?

Code for normal search(that works):

Procedure FindAndReplace(Find,Replace:String);
Begin
      //Initialize parameters
  WrdApp.Selection.Find.ClearFormatting;
  WrdApp.Selection.Find.Text := Find;
  WrdApp.Selection.Find.Replacement.Text := Replace;
  WrdApp.Selection.Find.Forward := True;
  WrdApp.Selection.Find.Wrap := wdFindContinue;
  WrdApp.Selection.Find.Format := False;
  WrdApp.Selection.Find.MatchCase :=  False;
  WrdApp.Selection.Find.MatchWholeWord := wrfMatchCase in Flags;
  WrdApp.Selection.Find.MatchWildcards :=wrfMatchWildcards in Flags;
  WrdApp.Selection.Find.MatchSoundsLike := False;
  WrdApp.Selection.Find.MatchAllWordForms := False;
     { Perform the search}
  if wrfReplaceAll in Flags then
   WrdApp.Selection.Find.Execute(Replace := wdReplaceAll)
  else
   WrdApp.Selection.Find.Execute(Replace := wdReplaceOne);
End;

Code for header and footer search(doesnt work):

WrdApp.Selection.Find.ClearFormatting;
      WrdApp.Selection.Find.Text := 'Class';
      WrdApp.Selection.Find.Replacement.Text := grade;
      WrdApp.Selection.Find.Forward := True;
      WrdApp.Selection.Find.Wrap := wdFindContinue;
      WrdApp.Selection.Find.Format := False;
      WrdApp.Selection.Find.MatchCase :=  False;
      WrdApp.Selection.Find.MatchWholeWord := wrfMatchCase in Flags;
      WrdApp.Selection.Find.MatchWildcards :=wrfMatchWildcards in Flags;
      WrdApp.Selection.Find.MatchSoundsLike := False;
      WrdApp.Selection.Find.MatchAllWordForms := False;
     { Perform the search}
  if wrfReplaceAll in Flags then
    WrdApp.ActiveDocument.Sections.Item(1).Headers.Item(wdHeaderFooterPrimary).Range.Find.Execute(Replace := wdReplaceAll)
  else
    WrdApp.ActiveDocument.Sections.Item(1).Headers.Item(wdHeaderFooterPrimary).Range.Find.Execute(Replace := wdReplaceOne);

Поиск и замена текста в колонтитулах word
, Поиск и замена текста в колонтитулах с таблицей

volvo877

Сообщ. #2 , 27.04.11, 07:18

Вот так — отработало: function SeekInsertInColon(SText, IText : string):boolean;   procedure DoReplace(Rng : OleVariant);   var Finder : OleVariant;   begin     Finder := Rng.Find;     Finder.ClearFormatting;     Finder.Replacement.ClearFormatting;     Finder.Text:=SText;     Finder.Replacement.Text:=IText;     Finder.Forward:=True;     Finder.Wrap:=wdFindContinue;     Finder.Format:=False;     Finder.MatchCase:=False;     Finder.MatchWholeWord:=False;     Finder.MatchWildcards:=False;     Finder.MatchAllWordForms:=False;     Finder.Execute(Replace:=wdReplaceAll);   end; var   hdr, ftr: OleVariant;   i: Integer; begin   hdr := WordApp1.ActiveDocument.Sections.Item(1).Headers.Item(1).Range;   DoReplace(hdr);   for i := 1 to hdr.Tables.Count do   begin     DoReplace(hdr.Tables.Item(i).Range);   end;   ftr := WordApp1.ActiveDocument.Sections.Item(1).Footers.Item(1).Range;   DoReplace(ftr);   for i := 1 to ftr.Tables.Count do   begin     DoReplace(ftr.Tables.Item(i).Range);   end; end; Былоwrd_before.png (5,1 Кбайт, скачиваний: 1084) Сталоwrd_after.png (5,46 Кбайт, скачиваний: 1103)

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

Господа, уже кричу о помощи!
Никак не получается замена текста в нижнем колонтитуле документа Ворд. Испробовала все что можно. Представлю три варианта:
1)
//Колонитул — активизация
if(WordApp->ActiveWindow->View->SplitSpecial != wdPaneNone)
WordApp->ActiveWindow->Panes->Item(2)->Close();

if ((WordApp->ActiveWindow->ActivePane->View->Type == wdNormalView)
|| (WordApp->ActiveWindow->ActivePane->View->Type == wdOutlineView))
{
WordApp->ActiveWindow->ActivePane->View->Type = wdPrintView;
}
WordApp->ActiveWindow->ActivePane->View->SeekView = wdSeekCurrentPageHeader;

if (WordApp->Selection->HeaderFooter->IsHeader == true)
WordApp->ActiveWindow->ActivePane->View->SeekView = wdSeekCurrentPageFooter;
else
WordApp->ActiveWindow->ActivePane->View->SeekView = wdSeekCurrentPageHeader;

//Поиск и замена текста
OleVariant oldStr, newStr;
oldStr=AnsiString(«Dez-nomer»);
newStr=AnsiString(«ххххх»);
OleVariant EmptyPar=False;
OleVariant Yes=True;
OleVariant Replace = wdReplaceAll;

WordApp->Selection->Find->Execute( oldStr, EmptyPar,
EmptyPar, EmptyPar, EmptyPar, EmptyPar,
Yes, wdFindContinue, EmptyPar, EmptyPar, wdReplaceAll, EmptyPar,
EmptyPar, EmptyPar, newStr, Yes);

Этот код активизирует нижний колонтитул, а поиск и замена не выполняется. Хотя функция Execute() прекрасно работает вне колонтитула.
2) На форумах наткнулась на такое предложение:
WordApp->ActiveDocument->Sections->Item(1)-> Footers->Item(wdHeaderFooterFirstPage)->Range->Find->Execute(oldStr,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
newStr,Yes);
Поиск должен осуществляться сразу в колонтитуле без его активизации. Реакция такая же.
3) Наполовину работает такой код. После активизации колонтитула начинает выполняться код:
OleVariant ReplaceWith=False;

WordApp->Selection->Find->ClearFormatting();
WordApp->Selection->Find->Replacement->ClearFormatting();
WordApp->Selection->Find->Execute(oldStr);
WordApp->Selection->Find->get_Replacement()->set_Text(StringToOleStr(ModulePipes->ADODocum->Fields->Fields[2]->AsString));
WordApp->Selection->Find->Replacement->set_Text(Un);
WordApp->Selection->Find->set_MatchCase(false);
WordApp->Selection->Find->set_MatchWholeWord(false);
WordApp->Selection->Find->set_MatchWildcards(false);
WordApp->Selection->Find->set_MatchSoundsLike(false);
WordApp->Selection->Find->set_MatchAllWordForms(false);
WordApp->Selection->Find->set_Forward(true);
WordApp->Selection->Find->set_Wrap(wdFindContinue);
WordApp->Selection->Find->set_Format(false);
WordApp->Selection->Find->Execute(ReplaceWith);
WordApp->Selection->Find->Execute(Replace);
WordApp->Selection->Find->set_MatchKashida(false);
WordApp->Selection->Find->set_MatchDiacritics(false);
WordApp->Selection->Find->set_MatchAlefHamza(false);
WordApp->Selection->Find->set_MatchControl(false);
Здесь происходит поиск текста и его выделение. Замены почему-то не происходит. Аналогичный код я встретила в Интернете на языке VBA. Участник форума тоже взывал о помощи. Так же, как и я, бился с этим вопросом ни один день. Но ответа не добился.
Может быть кто-нибудь знает работающий код? Еще раз акцентирую внимание: обычная функция Execute() с заданными параметрами прекрасно находит и заменяет текст во всем документе, кроме колонтитула. С ним есть какая-то закавыка, но как ее узнать…
И еще. Если участники форума не могут помочь, есть ли инстанция в интернете, куда можно обратиться, где обязательно помогут

   Попросили меня доработать старый модуль, который генерирует клиентам компании письма в формате MS Word. Пользователи создают шаблоны, в которых расставляют названия полей, заключенные в служебные символы (например, #CONTRACT_NUM#, #FIO#, #ADDRESS#…). Программа по заданным критериям выбирает информацию о клиентах из базы и генерирует письма, находя в тексте шаблонов названия полей и заменяя их фактическими значениями.
   Если опустить все детали и различную логику, то упрощенно это выглядит так:

Var
  MSWord: OleVariant;
  i: Integer;
  q: TSDQuery;
  …
begin
  …
  MSWord := CreateOleObject(‘Word.Application’);
  MSWord.Documents.Add(‘какой то шаблон.dot’);
  For i := 0 to q.FieldCount-1 do
    MSWord.Selection.Find.Execute(FindText := ‘#’ + q.Fields[i].FieldName + ‘#’, ReplaceWith := q.Fields[i].AsString);
  …
  MSWord.ActiveDocument.SaveAs(‘письмо любимому клиенту.doc’);
  …

   Первое, с чем я столкнулся, это то, что длина значения параметра ReplaceWith не должна превышать 255 символов. Но это я обошел легко, заменив «поиск и замену текста» на «поиск и вывод текста»:

If MSWord.Selection.Find.Execute(FindText := ‘#’ + q.Fields[i].FieldName + ‘#’) then
  MSWord.Selection.TypeText(q.Fields[i].AsString);

   Вторая задачка оказалась сложнее. Внизу листа в фиксированное место необходимо было вывести фамилию и адрес получателя. Сначала я думал поместить его в нижний колонтитул, но оказалось, что письмо может быть на двух листах. Тогда ничего не оставалось, как использовать объект «заметка». Вставил «заметку». Красота! Документ генерируется, текст сдвигается, заметка остается на месте… Но радость была недолгой, т.к. поля #FIO# и #ADDRESS#, помещенные в заметку, так и остались незамененными
   Оказалось, что MSWord.Selection.Find.Execute ищет текст только в основной части документа, а в документе, состоящем из разных структурных элементов (заметок, колонтитулов, сносок и т.д.), поиск необходимо производить отдельно в каждом из этих элементов. Все эти структурные элементы документа являются элементами коллекции StoryRanges. Т.к. дело было к ночи, а модуль должен был быть готов к утру, я не стал разбираться, как работать со StoryRanges через OLE из Delphi, и просто добавил в тестовый шаблон письма макрос на VBA, в котором перебираются все структурные элементы активного документа, в которых ведется поиск:

Sub ReplaceText(sFindText As String, sReplaceText As String)
  Dim rngStory As Range
  For Each rngStory In ActiveDocument.StoryRanges
    With rngStory.Find
      .Text = sFindText
      .Replacement.Text = sReplaceText
      .Wrap = wdFindContinue
      .Execute Replace:=wdReplaceAll
    End With
  Next rngStory
End Sub

А в программе я только написал вызов макроса:

MSWord.Application.Run(‘ReplaceText’, ‘#FIO#’, ‘Иванов Иван Иванович’);

Работает как часы

P.S. После окончания генерации документа, если MS Word вам больше не нужен, то не забывайте закрывать его и высвобождать память

MSWord.Quit;
MSWord := UnAssigned;

P.P.S. Для подобной задачи генерации писем в формат MS Word больше подходит не поиск и замена текста, использование полей с переменными (DocVariable) и закладок (Bookmark). А как это сделать, я расскажу в следующий раз.

Я успешно выполнил поиск замены в заголовке и нижнем колонтитуле doc docx, используя: этот вопрос. Я использую Delphi для управления Word через OLE Automation.

Теперь проблема в том, что это работает только для первой страницы, если один устанавливает «другой заголовок для первой страницы», или не работает вообще, если один устанавливает «разные на чет / нечет».

Этот документ объясняет это немного подробнее.

ОБНОВИТЬ:

В упомянутом выше документе объясняется, что MS Word управляет верхним и нижним колонтитулами как первой / нечетной / четной страницей. Но также можно выбрать ни один вариант, и в этом случае все верхний и нижний колонтитулы будут одинаковыми.

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

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

Хотя это вообще не сработает, если выбран только один вариант — «разные верхний и нижний колонтитулы на нечетных и четных страницах» (а не «разные на первой странице»).

Итак, я спрашивал, решал ли уже эту проблему во всех случаях. Я имею в виду, что было бы полезно найти этот ответ также для других пользователей, которым необходимо выполнять поиск и замену в верхнем и нижнем колонтитулах в документах MS Word, используя автоматизацию Delphi и OLE.

Это не сработает, потому что вы настраиваете объект «Найти» в выделении, а затем используете объект «Найти» в диапазоне заголовка. Это разные вещи.

Если вы измените эти строки

WrdApp.ActiveDocument.Sections.Item(1).Headers.Item(wdHeaderFooterPrimary).Range.Find.Execute(Replace := wdReplaceAll);

что-то вроде следующего (вам нужно получить правильный синтаксис Delphi)

WrdApp.ActiveDocument.Sections.Item(1).Headers.Item(wdHeaderFooterPrimary).Range.Select;
WrdApp.Selection.Find.Execute(Replace := wdReplaceAll);

Вы должны увидеть улучшение, но я думаю, (а) это предпочтительнее, если вы можете избежать использования объекта Selection, и (б) если вам нужно иметь дело с более общей ситуацией с различными верхними и нижними колонтитулами, все может стать немного сложнее, Поэтому я хотел бы предложить вам перейти к

«Использование макроса для замены текста там, где он появляется в документе» на веб-сайте Word MVP и изучения кода, который у них есть. Перевод с VBA->Delphi должен быть довольно простым.