Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Сообщений [ 8 ]
- Откуда: Томск
- Зарегистрирован: 10.03.2010
- Сообщений: 18
Тема: Поиск и замена поля PAGEREF с ключем \h на REF с ключем \n
(WORD-2007) Помогите, как макросом сделать поиск и замену всех полей PAGEREF в документе с ключем \h (с сохранением указателей (закладок)) на поле REF с ключем \n?
Отредактировано Gorden (10.03.2010 14:46:01)
- viter.alex
- Модератор
- Неактивен
- Откуда: Харьков, Украина
- Зарегистрирован: 21.12.2009
- Сообщений: 884
- Поблагодарили: 140
Re: Поиск и замена поля PAGEREF с ключем \h на REF с ключем \n
Ничего лучше, чем перебор полей в лоб, я не придумал:
Sub ChangePageRefToRef()
Dim oFld As Field
For Each oFld In ActiveDocument.Content.Fields
If oFld.Type = wdFieldPageRef Then
oFld.Code.Text = Replace(oFld.Code.Text, "PAGEREF", "REF")
oFld.Code.Text = Replace(oFld.Code.Text, " \h ", " \n ")
End If
Next
MsgBox "Замена завершена", vbOKCancel + vbInformation, "Замена полей"
End Sub
Хотя, может быть можно сделать и простым поиском и заменой.
Лучше день потерять — потом за пять минут долететь!
- Откуда: Томск
- Зарегистрирован: 10.03.2010
- Сообщений: 18
Re: Поиск и замена поля PAGEREF с ключем \h на REF с ключем \n
Спасибо, попробую завтра вставить в шаблон, а "ручками" попробовал так:
1) Включить в настройках экрана видимость скрытого текста;
2) Выделить все;
3) Включить Коды полей правой кнопкой мыши;
4) Найти PAGEREF и заменить на REF; (Ок)
5) Найти \h и заменить на \n; (Ок)
6) Обновить поля (F9). (Ок - все получилось)
Макрос хотел сделать, выделить все получается.. а дальше - не реагирует на клик правой кнопкой мыши, чтоб открыть коды полей .
- viter.alex
- Модератор
- Неактивен
- Откуда: Харьков, Украина
- Зарегистрирован: 21.12.2009
- Сообщений: 884
- Поблагодарили: 140
Re: Поиск и замена поля PAGEREF с ключем \h на REF с ключем \n
не нужно искать сложных путей. Вот ваши действия, только в виде макроса:
ActiveWindow.View.ShowFieldCodes = True
ActiveDocument.Range.Find.Execute "PAGEREF", True, True, ReplaceWith:="REF", Replace:=wdReplaceAll
ActiveDocument.Range.Find.Execute "\h", True, True, ReplaceWith:="\n", Replace:=wdReplaceAll
ActiveWindow.View.ShowFieldCodes = False
ActiveDocument.Fields.Update
Лучше день потерять — потом за пять минут долететь!
- Откуда: Томск
- Зарегистрирован: 10.03.2010
- Сообщений: 18
Re: Поиск и замена поля PAGEREF с ключем \h на REF с ключем \n
- Penniwise
- сержант
- Неактивен
- Зарегистрирован: 04.02.2010
- Сообщений: 23
Re: Поиск и замена поля PAGEREF с ключем \h на REF с ключем \n
Подскажите, пожалуйста, где можно прочитать про эти поля (какую-нить подробную обстоятельную статейку, типа статьи про подстановочные знаки, что на вашем сайте)? Как вообще они называются правильно, чтобы информацию о них можно было найти?
- viter.alex
- Модератор
- Неактивен
- Откуда: Харьков, Украина
- Зарегистрирован: 21.12.2009
- Сообщений: 884
- Поблагодарили: 140
Re: Поиск и замена поля PAGEREF с ключем \h на REF с ключем \n
Как это где? Здесь!
Лучше день потерять — потом за пять минут долететь!
- Penniwise
- сержант
- Неактивен
- Зарегистрирован: 04.02.2010
- Сообщений: 23
Re: Поиск и замена поля PAGEREF с ключем \h на REF с ключем \n
В своё время вот это я искал.
На сайте Microsoft Office в разделе про Word 2003 есть справка по полям и ключам.
Сообщений [ 8 ]
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Поиск и замена поля PAGEREF с ключем \h на REF с ключем \n
Кто-то воспринимает компьютер, как рабочий инструмент, кто-то считает его окном в мир, кто-то в восторге от всех глубин и тайн высокоинтеллектуальной железки, а кому-то и дела нет, как он там внутри устроен, лишь бы работал. На портале о Microsoft Office Word вы узнаете про: большая буква фамилии имя отчество.
Но всем, так или иначе, приходилось вспомнить, что «вначале было слово». Вряд ли найдется хоть один человек, кто, имея компьютер, ни разу ничего не напечатал. Наш сайт о Microsoft Office Word даст ответ про: не могу поменять интервал между абзацами.
А какая для этого программа стоит у большинства? Правильно - Microsoft Word.
Вы считает себя экспертом или просто научились набирать 33 буквы на клавиатуре, открывать и сохранять документ? На портале о Microsoft Office Word вы узнаете про: как ввести формул в word 10.
Работаете по-старинке с 2003 или у вас новейшая версия? Для всех полезной будет информация, которой в достатке на форуме сайта Ворд Эксперт. Наш сайт о Microsoft Office Word даст ответ про: как сделать выдачу презентации в ворд.
На нашем форуме можно прочитать о том, как необычно применить привычные функции, и что есть новенького, с чем вы не сталкивались. Наш сайт о Microsoft Office Word даст ответ про: в чем различия между office 2003 и office 2010.
Оригинальные решения, позволяющие экономить время, ответы на вопросы по любой версии. Если хотите заняться программирование, то перечень литературы к вашим услугам. На портале о Microsoft Office Word вы узнаете про: grindeq mathtype-to-equation в equation 3.0.
Просто полезных книг на форуме упоминается тоже много.
Кстати, о программировании. Это не такая жуткая вещь, как кажется. Наш сайт о Microsoft Office Word даст ответ про: как пользоваться вордом инструкция.
Мини-программирование в виде макросов может освоить любой ребенок. На форуме вы найдете, как их описания, так и готовые решения. На портале о Microsoft Office Word вы узнаете про: в ячейке таблицы word слова не заполняют всю ширину.
А кому не охота возиться, оставляйте заявку – зубры помогут. Удачи вам!