Изменение текста в колонтитулах в таблице WORD

@Kompish · Регистрация: 21.03.2018

Author24 — интернет-сервис помощи студентам

В общем знаю тема баян, но рыл форум и ничего не помогает ни макросы ни код на delphi. Есть колонтитул в нем таблица, в этой таблице значение которое нужно изменить. В основном документе все хорошо текст меняется. Даже если сделать активным окно колонтитулов, замена текста не происходить. Пытался использовать макросы для замены автофигур и надписей все равно не помогает. В общем надеюсь на вашу помощь, потому что сам уж точно не разберусь, если кому нужно могу дать ссылку на пример файла с колонтитулом.

@Пытливый · 23.07.2019, 18:23

Вы лучше код покажите, как вы ищете в колонтитулах.

@Kompish · 23.07.2019, 18:39 **[ТС]**

...

Добавлено через 4 минуты

Сообщение от Пытливый

Вы лучше код покажите, как вы ищете в колонтитулах.

Delphi

var
  Shape, Find: olevariant;
  i: integer;
begin
  for i:=1 to WordApp1.ActiveDocument.Shapes.Count do begin {поиск и замена в надписях}
    Shape:=WordApp1.ActiveDocument.Shapes.Item(i);
    if Shape.Type= 17 then begin
      Find:=Shape.TextFrame.TextRange.Find;
        Find.ClearFormatting;
        Find.Replacement.ClearFormatting;
        Find.Text:='что ищем';
        Find.Replacement.Text:='на что заменяем';
        Find.Forward:=True;
        Find.Wrap:=wdFindContinue;
        Find.Format:=False;
        Find.MatchCase:=False;
        Find.MatchWholeWord:=False;
        Find.MatchWildcards:=False;
        Find.MatchAllWordForms:=False;
        Find.Execute(Replace:=wdReplaceAll);
    end;
  end;
end;

DenNik · 24.07.2019, 10:26

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

Изменение текста в колонтитулах в таблице WORD

ну и сам макрос

Visual Basic

Sub Ìàêðîñ3()
'
' Ìàêðîñ3 Ìàêðîñ
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "#SURNAME"
        .Replacement.Text = "Èâàíîâ"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "#NAME"
        .Replacement.Text = "Âàñèëèé"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "#PATR"
        .Replacement.Text = "Ïåòðîâè÷"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

все, что начинается на .Match, наверное можно выкинуть, т.к. это значения по умолчанию

@Kompish · 24.07.2019, 11:10 **[ТС]**

Сообщение от DenNik

alse
* * End With
* * Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Вы ошибаетесь, привожу пример файла на котором это не сработало.
Нужно заменить №16 и 12.038. Ваш макрос не решает этой проблемы.
Версия Word 2016

DenNik · 24.07.2019, 11:34

Сообщение от Kompish

Ваш макрос не решает этой проблемы.

это не мой макрос. Это записанный Вордом макрос. и в приведенном тобой документе все прекрасно меняет. Две замены

Visual Basic

Sub Макрос3()
'
' 
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "№16"
        .Replacement.Text = "Hello"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Добавлено через 2 минуты
все также неясна конечная цель

Добавлено через 25 секунд
Ворд 2010

@Kompish · 24.07.2019, 11:49 **[ТС]**

В таблицах тоже изменился текст, где написано документ 16?можно скрин?Может дело в версии ворда? Потому что когда я пытался заменить текст с помощью поиска в ворде он не за менял его, но если ставил область поиска 'надпись в колонтитула', то он менял.

DenNik · 24.07.2019, 11:59

Сообщение от Kompish

если ставил область поиска 'надпись в колонтитула'

возможно, как раз дело в версии, т.к. указанной опции в 2010 нет. но тем не менее, ищет по всему документу, невзирая на место расположения текста

@Kompish · 25.07.2019, 18:03 **[ТС]**

Применил макрос, ничего не вышло.

@Kompish · 25.07.2019, 22:03 **[ТС]**

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

@D1973 · 26.07.2019, 04:57

Сообщение от Kompish

есть колонтитул в который добавлена надпись

Именно надпись или таки таблица? В таблице все прекрасно меняется при использовании механизма закладок...

Добавлено через 7 минут
Да, собственно, и в надписи - тоже... Офис, если что, как раз 2016

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var W, WD: OLEVariant;
    f, nf: String;
begin
  f := 'C:\TMP\doc1.docx';
  nf := 'c:\TMP\new_doc1.docx';
  try
    W := CreateOleObject('Word.Application');
  except
    ShowMessage('Не удалось запустить MS Word. Действие отменено.');
    Exit;
  end;
  WD := W.Documents.Open(f);
  WD.Bookmarks.Item('z1').Range.Text := Edit1.Text;
  WD.Bookmarks.Item('z2').Range.Text := DateToStr(DateTimePicker1.Date);
  WD.Bookmarks.Item('z3').Range.Text := Edit2.Text;
  W.DisplayAlerts := False;
  WD.SaveAs(nf);
  W.DisplayAlerts := True;
  WD.Close;
  W.Quit;
end;

DenNik · 26.07.2019, 09:12

Сообщение от Kompish

Применил макрос, ничего не вышло.

опять макрос! открой Ворд и средствами ворда (Ctrl + H) попробуй заменить текст во всем документе. если работает, значит ошибка в коде (о чем косвенно свидетельствует эксперимент D1973)

@Kompish · 27.07.2019, 12:32 **[ТС]**

Сообщение от D1973

Именно надпись или таки таблица? В таблице все прекрасно меняется при использовании механизма закладок...

Добавлено через 7 минут
Да, собственно, и в надписи - тоже... Офис, если что, как раз 2016

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var W, WD: OLEVariant;
    f, nf: String;
begin
  f := 'C:\TMP\doc1.docx';
  nf := 'c:\TMP\new_doc1.docx';
  try
    W := CreateOleObject('Word.Application');
  except
    ShowMessage('Не удалось запустить MS Word. Действие отменено.');
    Exit;
  end;
  WD := W.Documents.Open(f);
  WD.Bookmarks.Item('z1').Range.Text := Edit1.Text;
  WD.Bookmarks.Item('z2').Range.Text := DateToStr(DateTimePicker1.Date);
  WD.Bookmarks.Item('z3').Range.Text := Edit2.Text;
  W.DisplayAlerts := False;
  WD.SaveAs(nf);
  W.DisplayAlerts := True;
  WD.Close;
  W.Quit;
end;

Delphi

procedure TForm2.Button1Click(Sender: TObject);
var Word: OLEVariant;
     const wdReplaceAll = 2;
begin
Word:=CreateOleObject('Word.Application');
Word.Documents.Open('C:\abc\docl.docx');
Word.Visible := True;
Word.selection.find.Text :='№16';
Word.selection.find.replacement.Text := '№4327';
Word.Selection.find.execute(Replace := wdReplaceAll);
end;

Создал новый документ, повторил ничего не вышло
В основном документе надпись изменилась, а надпись которая лежит в колонтитуле -нет.
Да, с помощью CTRL+H, все заменятся, но с макросами и кодом это не работает.

@Kompish · 27.07.2019, 12:37 **[ТС]**

Сообщение от DenNik

опять макрос! открой Ворд и средствами ворда (Ctrl + H) попробуй заменить текст во всем документе. если работает, значит ошибка в коде (о чем косвенно свидетельствует эксперимент D1973)

Delphi

procedure TForm2.Button1Click(Sender: TObject);
var Word: OLEVariant;
     const wdReplaceAll = 2;
begin
Word:=CreateOleObject('Word.Application');
Word.Documents.Open('C:\abc\docl.docx');
Word.Visible := True;
Word.selection.find.Text :='№16';
Word.selection.find.replacement.Text := '№4327';
Word.Selection.find.execute(Replace := wdReplaceAll);
end;

Попробуйте пожалуйста применить данный код у себя, если выйдет то скорее проблема с вордом.

@D1973 · 27.07.2019, 14:55

Сообщение от Kompish

Создал новый документ, повторил ничего не вышло

Зачем было цитировать мой пост, если Вы не повторили, а сделали по своему!
Я еще раз повторюсь: делайте при помощи закладок - это работает начиная с Word 6 и до сих пор... Ну а если нет - ну дело-то хозяйское...

@Kompish · 27.07.2019, 16:25 **[ТС]**

Delphi

procedure TForm1.replaceNumSchool();
begin
Word.selection.find.Text :='№16';
Word.selection.find.replacement.Text := Edit1.Text;
Word.Selection.find.execute(Replace := wdReplaceAll);
Word.selection.Bookmarks.Item('z1').Range.Text := Edit1.Text;
Word.ActiveDocument.ActiveWindow.View.SeekView := wdSeekCurrentPageHeader;
Word.selection.Bookmarks.Item('z2').Range.Text := Edit1.Text;
Word.selection.Bookmarks.Item('z3').Range.Text := Edit1.Text;
Word.selection.start := 0;
Word.selection.end := 0;
end;

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

@D1973 · 27.07.2019, 17:46

Сообщение от Kompish

закладки не видны

А Вы их реально в документе создали??? Прежде, чем к ним кодом обращаться?

@Kompish · 27.07.2019, 17:53 **[ТС]**

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

Добавлено через 3 минуты
Вы пробовали добавлять надпись в колонтитул? и от туда менять?

@Kompish · 27.07.2019, 20:33 **[ТС]**

Сообщение от DenNik

возможно, как раз дело в версии, т.к. указанной опции в 2010 нет. но тем не менее, ищет по всему документу, невзирая на место расположения текста

И да вот тот фрагмент где осуществляется выбор поиска, надпись в колонтитуле, вот где мне нужно осуществить поиск

@Kompish · 27.07.2019, 23:50 **[ТС]**

Всем большое спасибо, разобрался. Отдельно спасибо за идею D1973, нужно было слегка изменить код.
Действительно нужно было поставить закладки. Код для замены ниже.Тему можно закрыть.

Delphi

procedure TForm1.replaceNumSchool();
var
 BookmarkName, Doc, R: OleVariant;
begin
Doc := Word.ActiveDocument;
 BookmarkName := 'z2';
  if Doc.Bookmarks.Exists(BookmarkName) then
   begin
     R := Doc.Bookmarks.Item(BookmarkName).Range;
     R.InsertAfter(Edit1.Text);
  end;
end;

@D1973 Модератор 9457 / 6210 / 2420 Регистрация: 21.01.2014 Сообщений: 26,471 Записей в блоге: 3
	27.07.2019, 14:55	15
	Сообщение от Kompish Создал новый документ, повторил ничего не вышло Зачем было цитировать мой пост, если Вы не повторили, а сделали по своему! Я еще раз повторюсь: делайте `при помощи закладок` - это работает начиная с Word 6 и до сих пор... Ну а если нет - ну дело-то хозяйское... 0

@Kompish 0 / 0 / 0 Регистрация: 21.03.2018 Сообщений: 33
		1
	RAD XE3+ Изменение текста в колонтитулах в таблице WORD 23.07.2019, 17:42. Показов 4308. Ответов 19 Метки нет (Все метки) В общем знаю тема баян, но рыл форум и ничего не помогает ни макросы ни код на delphi. Есть колонтитул в нем таблица, в этой таблице значение которое нужно изменить. В основном документе все хорошо текст меняется. Даже если сделать активным окно колонтитулов, замена текста не происходить. Пытался использовать макросы для замены автофигур и надписей все равно не помогает. В общем надеюсь на вашу помощь, потому что сам уж точно не разберусь, если кому нужно могу дать ссылку на пример файла с колонтитулом. 0

@Пытливый 3759 / 2263 / 705 Регистрация: 29.05.2013 Сообщений: 9,613
	23.07.2019, 18:23	2
	Вы лучше код покажите, как вы ищете в колонтитулах. 0

@Kompish 0 / 0 / 0 Регистрация: 21.03.2018 Сообщений: 33
	24.07.2019, 11:49 [ТС]	7
	В таблицах тоже изменился текст, где написано документ 16?можно скрин?Может дело в версии ворда? Потому что когда я пытался заменить текст с помощью поиска в ворде он не за менял его, но если ставил область поиска 'надпись в колонтитула', то он менял. 0

DenNik Житель Земли 3003 / 3008 / 391 Регистрация: 26.07.2011 Сообщений: 11,464 Записей в блоге: 1
	24.07.2019, 11:59	8
	Сообщение от Kompish если ставил область поиска 'надпись в колонтитула' возможно, как раз дело в версии, т.к. указанной опции в 2010 нет. но тем не менее, ищет по всему документу, невзирая на место расположения текста Миниатюры 0

@Kompish 0 / 0 / 0 Регистрация: 21.03.2018 Сообщений: 33
	25.07.2019, 18:03 [ТС]	9
	Применил макрос, ничего не вышло. Миниатюры 0

@Kompish 0 / 0 / 0 Регистрация: 21.03.2018 Сообщений: 33
	25.07.2019, 22:03 [ТС]	10
	Ребят тема все также актуальна, есть колонтитул в который добавлена надпись, именно в надписях меняться ничего не хочет, проверьте сами, найдется герой решивший эту проблему? 0

DenNik Житель Земли 3003 / 3008 / 391 Регистрация: 26.07.2011 Сообщений: 11,464 Записей в блоге: 1
	26.07.2019, 09:12	12
	Сообщение от Kompish Применил макрос, ничего не вышло. опять макрос! открой Ворд и средствами ворда (Ctrl + H) попробуй заменить текст во всем документе. если работает, значит ошибка в коде (о чем косвенно свидетельствует эксперимент D1973) 0

@D1973 Модератор 9457 / 6210 / 2420 Регистрация: 21.01.2014 Сообщений: 26,471 Записей в блоге: 3
	27.07.2019, 17:46	17
	Сообщение от Kompish закладки не видны А Вы их `реально` в документе создали??? Прежде, чем к ним кодом обращаться? 0

@Kompish 0 / 0 / 0 Регистрация: 21.03.2018 Сообщений: 33
	27.07.2019, 17:53 [ТС]	18
	Да создал, говорю же те что в основном документе изменились, в колонтитулах и надписях не находит, пока они не активны. Добавлено через 3 минуты Вы пробовали добавлять надпись в колонтитул? и от туда менять? 0

@Kompish 0 / 0 / 0 Регистрация: 21.03.2018 Сообщений: 33
	27.07.2019, 20:33 [ТС]	19
	Сообщение от DenNik возможно, как раз дело в версии, т.к. указанной опции в 2010 нет. но тем не менее, ищет по всему документу, невзирая на место расположения текста И да вот тот фрагмент где осуществляется выбор поиска, надпись в колонтитуле, вот где мне нужно осуществить поиск Миниатюры 0