Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Вопрос от Michael:
Необходимо в конце документа сделать на дополнительной странице автоматически изменяющийся текст, включающий количество страниц в документе цифрой и прописью. Например, имеем пятистраничный документ. Так и пишем: прошито, пронумеровано 5 (Пять) листов.
Это можно сделать таким способом. Единственный недостаток, это несоответствующее склонение слова «лист».
Sub insAddPage()
'
'Вставка дополнительной страницы с текстом
'Вывод количества страниц цифрой и прописью
'
Dim oFld As Field
With Selection
.LanguageID = wdRussian
'Переходим в начало документа
.EndKey wdStory
'Вставляем разрыв страницы
.InsertBreak wdSectionBreakNextPage
'Пишем нужный текст
.TypeText "Прошито, пронумеровано "
'Добавляем поле с количеством страниц
Set oFld = .Fields.Add(.Range, wdFieldNumPages)
'Помещаем это поле в закладку
ActiveDocument.Bookmarks.Add "ПрошитоЛистов", oFld.Result
'Добавляем открывающую скобку
.TypeText " ("
'Вставляем поле для отображения заклаки в виде текста
.Fields.Add .Range, wdFieldEmpty, "= ПрошитоЛистов \* CardText", False
'Завершаем печать текста
.TypeText ") лист(ов)"
End With
End SubЭто можно сделать таким способом. Единственный недостаток, это несоответствующее склонение слова «лист».
Александр, у Михаила (автора вопроса) что-то не получается сделать реплику по поводу решения, поэтому я публикую его ответ от своего имени. Михаил пишет:
Спасибо большое за Вашу помощь. Однако, у Вас получился макрос не для шаблона - он сам добавляет страницу. При автоматическом обновлении (Ctrl +A, F9) он выдает неверный результат. А второй раз запустить макрос - как ни крути не получается.
Грешен, надо было четче описать желаемое. Постараюсь - хоть и с опозданием - конкретнее сформулировать задачу. Это шаблон для подготовки прошитых документов. Т.е. на дополнительном листе имеем наклейку. Она вырезается и клеится сзади. При этом она должна выглядеть достаточно компактно. Ну, скажем, 5 на 2 см или что-то в этом роде - в зависимости от текста. Т.е. если создали документ из 1832 страниц, то цифра прописью должна все равно оставаться компактной - пусть строки переносит.
Итак, при открытии документа на основе шаблона имеем сразу две страницы.
Первая - чистый лист. Вторая - техническая вспомогательная с этой надписью для наклейки. Я работаю, создал, пусть, 33-х страничный документ. На 34-й у меня наклейка. Контрал А, Ф9. Обновил все. Наклейку вырезал и наклеил сзади на 33 страницу.
Пока я обхожусь без программирования (см. вложенный файл).
Т.е. вставляем в конце документа закладочку в виде пробела.
Потом поле PageRef. Не программист, что поделать.
Можно ли рац. предложение:
1 лист нельзя сшить. Но 21 можно. Лучше заменить на лист(а/ов).
Или дробить - все, что касается на 1 - лист; на 2-4 - листа; на иные цифры - листов.
Отредактировано Michael (27.12.2009 19:21:21)
Михаил, ну тогда если вам не нужен макрос, добавьте новое поле после цифры к вашему блоку:
({pageref Конец \*CardText}) Да, это то, что нужно.
Единственное - не могу разобраться с языками.
Вот тут вот http://www.interface.ru/home.asp?artId=3712
есть такой комментарий:
+++
Обратите внимание на следующий момент: если вы используете локализованную (русскую) версию редактора Word, то цифры будут представлены прописью по-русски. Если редактор англоязычный, то и вывод чисел прописью будет на этом языке. Возможна ситуация, когда в локализованной версии Word цифры выводятся по-английски. Значит, раскладка клавиатуры в редакторе в данный момент не русская, а английская.
+++
Но я что-то не могу с этим разобраться. Что-то запутался.
Беру новый документ, ставлю русскую раскладку. Все получается - пишет цифру по-русски.
Опять беру новый документ, ставлю английскую раскладку. Все получается - пишет цифру по-английски.
Беру свой шаблон на двух языках. Соответственно, две ссылки. Два раза \*CardText. И результат выдается. Но! Один раз. Если обновить ссылки Ctrl+A +F9, то все начинает писаться по-английски.
Нельзя ли как-нибудь железобетонно закрепить языки?
Пример - в приложенном файле.
Да, Михаил, это моя старая заметка.
Можно попробовать в шаблоне выделить каждое поле и установить для них соответствующий язык (в строке состояния выберите язык и в открывшемся окне установите язык и снимите флажок с опции автоматического определеления языка).
В шаблоне после обновления это работает. Но при создании нового документа на этом шаблоне все слетает.
Думаю, что может помочь макрос, который бы в конечном документе (перед печатью) выделял эти поля, устанавливал для них язык и обновлял. Другого способа я не вижу.
Макрос что-то типа такого (при условии, что в вашем документе поле 2 это для русской прописи, а поле 4 - для английской):
Sub langField()
ActiveDocument.Fields(2).Select
Selection.LanguageID = wdRussian
Application.CheckLanguage = False
Selection.Fields.Update
ActiveDocument.Fields(4).Select
Selection.LanguageID = wdEnglishUS
Application.CheckLanguage = False
Selection.Fields.Update
Selection.Collapse wdCollapseEnd
End SubСтраницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Как сделать на дополнительной странице изменяющийся текст?
Среди всех программ офисного пакета Microsoft наиболее часто большинству работающих за компьютером людей приходится пользоваться текстовым редактором Word. На портале о Microsoft Office Word вы узнаете про: как отменить перенос слов в ворде 7. Конечно, использовать это мощное приложение просто для набора текста, все равно, что забивать гвозди с помощью микроскопа. На портале о Microsoft Office Word вы узнаете про: документ doc пустой. Редактор обладает множеством встроенных функций для работы с текстами, таблицами, изображениями. Word позволяет значительно сократить количество ручного труда при наборе или редактировании текста, дает простор для фантазии при оформлении. На портале о Microsoft Office Word вы узнаете про: jabc 7 rfr yt yevbhjdfnm 1. cnhfybwe.
Познакомиться со всеми тонкостями работы с программой, узнать секреты и хитрости настроек различных функций можно на сайте и форуме Ворд Эксперт, где собрана вся информация, касающаяся работы с приложением. На портале о Microsoft Office Word вы узнаете про: сохранение настроек в word.
В подразделе «Часто задаваемые вопросы» вы найдете общую информацию и список литературы по данной теме. Наш сайт о Microsoft Office Word даст ответ про: как убрать пробелы между словами в ворде 2003. Также для удобства читающих там рассмотрены наиболее часто встречающиеся вопросы по работе программы. На портале о Microsoft Office Word вы узнаете про: файл формата word. В этом подразделе, к примеру, собрана базовая информация о макросах, освещены вопросы автоматического удаления пробелов и так далее. На портале о Microsoft Office Word вы узнаете про: библиотеки для управления макросами word2007.
Более же полно и подробно вопросы настройки программы, форматирования и рецензирования текста в разных версиях Ворда освещены в подразделе «Настройки и Форматирование», а тонкостям написания различных макросов и создания шаблонов можно научиться в разделе «Автоматизация». На портале о Microsoft Office Word вы узнаете про: почему вместо изображения ворд пишет графический объект в рамке.
Также на форуме Ворд Эксперт вы найдете готовые решения различных рабочих проблем или сможете оставить заявку с описанием своего вопроса в соответствующих разделах. Наш сайт о Microsoft Office Word даст ответ про: скопированная картинка из сайта не вставляется в word, что делать.