Если у вас есть идея или совет по эффективному использованию редактора Word, то пишите мне через форму контактов на сайте. Любые ваши дельные советы и подсказки будут размещены в очередных выпусках рассылки и на сайте (с указанием вашего авторства).
Ярлык для запуска в Word 2007 интерфейса публикации в блог
Outlook Blogger задал вопрос: Как сделать для Word 2007 ярлык, чтобы запускался сразу интерфейс Опубликовать/Блог? А то приходится открывать сначала весь Word, потом заходить в это меню..
Специальных ключей для запуска редактора с интерфейсом для написания текста для блога я не нашел. Но наскоро сделал автоматическую запись макроса, который собственно и открывает это окно. Вот, что получилось:
Sub Макрос1()
Documents.Add
WordBasic.FileSendBlog
End Sub
Чтобы редактор запускался уже с открытым окном написания текста для блога, нужно добавить к ярлыку запуска редактора (на рабочем столе) через его свойства ключ /mМакрос1.
Должна получиться примерно такая строка (в зависимости от ваших установок): "C:\Program Files\Microsoft Office\Office12\WINWORD.EXE" /mМакрос1
Использование макроса для вывода части текста поля
Игорь спрашивает:
У меня есть некий шаблон договора. В нем, среди прочего, есть поле ввода ФАМИЛИИ ИМЕНИ И ОТЧЕСТВА. Мне нужно, чтобы после ввода полного ФИО, в конце договора отображалась только ФАМИЛИЯ и ИНИЦИАЛЫ. Решаемо ли это?
Игорь, да это возможно.
Вам следует открыть ваш шаблон договора для редактирования, затем открыть редактор Visual Basic («Alt+F11») и вставить в модуль шаблона вот этот макрос:
Sub FIO()
Dim bm As Bookmark
Dim sText As String
Dim sArray() As String
Dim sResult1 As String
Dim sResult2 As String
Set bm = ActiveDocument.Bookmarks("bm")
sText = bm.Range.Text
sArray = Split(sText)
sResult1 = sArray(0) & " "
sResult1 = sResult1 & Left(sArray(1), 1) & ". "
sResult1 = sResult1 & Left(sArray(2), 1) & "."
sResult2 = sArray(2) & " "
sResult2 = sResult2 & sArray(1)
ActiveDocument.Bookmarks("fio").Select
Selection.TypeText sResult1
End Sub
Далее, перейдите в текст шаблона договора и выделите текстовое поле и в свойствах его (щелчок правой кнопкой и выбор команды "Свойства") установите флажок на параметрах "Разрешить изменения" и "Вычислить при выходе", а в поле "Закладка" введите имя закладки для этого поля - bm. В поле "При выходе" выберите ваш макрос "FIO" и закройте диалог.
Следующий шаг - определитесь, в каком месте шаблона у вас должно выводиться Фамилия с инициалами. В этом месте добавьте закладку (под именем "fio"). Затем установите защиту на шаблон и сохраните изменения.
Создайте документ на основе вашего шаблона, введите ФИО в поле и нажмите клавишу «TAB » (выход из поля). В том месте, где вы установили закладку, появится фамилия с инициалами.
Юрий интересуется:
Как во всем документе удалить лишние концевые знаки абзацев в конце ячеек таблиц? Это именно знаки абзацев (^13) перед маркером конца ячейки. Вариант искать "(*^13)@", заменить на "\1" не работает в ячейках...
Для этих целей следует использовать следующий макрос. Работает для всех таблиц в документе и удаляет знаки абзацев только в конце текста в ячейке:
Sub TablesRemovePilcrons()
Dim oTbl As Table
Dim oCll As Cell
For Each oTbl In ActiveDocument.Tables
For Each oCll In oTbl.Range.Cells
While oCll.Range.Characters.Last.Previous = Chr(13)
oCll.Range.Characters.Last.Previous = ""
Wend
Next
Next
End Sub
Как вставить нумерацию для четных и нечетных страниц
Ксения спрашивает: Как вставить в колонтитулы номер страниц - четные номера слева, нечетные - справа? Используется редактор Word 2007.
Откройте вкладку Вставка и в группе команд Колонтитулы нажмите кнопку Нижний колонтитул.
В открывшейся коллекции выберите команду Изменить нижний колонтитул. Откроется контекстная вкладка Работа с колонтитулами.
Нажмите кнопку Параметры и установите флажок на параметре Разные колонтитулы для четных и нечетных страниц.
Далее, в группе команд Колонтитулы нажмите кнопку Номер страницы и наведите указатель мыши на команду Внизу страницы. Откроется коллекция команд, в которой вам нужно выбрать Простой номер 3. Вы увидите, что будет вставлена нумерация только для нечетных страниц.
Перейдите в колонтутул четной страницы. И снова нажмите кнопку Номер страницы и наведите указатель мыши на команду Внизу страницы и выберите уже команду Простой номер 1. Будет вставлена нумерация и для четных страниц.
Вся информация, представленная на сайте WordExpert.ru и в этой рассылке, никаким образом не связана с корпорацией Microsoft. В рассылке упоминаются компании и продукты, которые могут быть зарегистрированными торговыми марками и принадлежать различным физическим и юридическим лицам как на территории РФ, так и за ее пределами.
Авторские права на все материалы, опубликованные на сайте WordExpert.ru и в этой рассылке (включая текст, фотографии, подборку, расположение и т.п.) принадлежат Кокину Антону Вадимовичу, если не указано иное. Вы можете свободно использовать и распространять эти материалы с обязательной ссылкой вида "Информация с сайта WordExpert.ru" и с обязательным указанием автора материала.
Все материалы, опубликованные на сайте WordExpert.ru и в этой рассылке, представлены на информационной основе. Вы можете использовать любую информацию с сайта WordExpert.ru или из данной рассылки исключительно на свой страх и риск. Тем не менее, я рекомендую перед применением какой-либо информации с сайта WordExpert.ru или из данной рассылки обязательно сохранять и создавать резервные копии ваших документов.
В этой рассылке также упоминаются различные web-страницы с соответствующими ссылками. Эти ссылки указываются исключительно в информационных целях и никакой рекомендации или одобрения с моей стороны данных веб-страниц не подразумевается, если не указано иное.