Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

В этом выпуске опубликованы следующие советы:


Word Expert - профессиональная работа с текстом

Выпуск рассылки №123 от 2008-11-21 08:06

В этом выпуске:

  1. Советы и подсказки
  2. Требуется помощь!
  3. Полезные ссылки
  4. Информация об авторских правах

Советы и подсказки

Если у вас есть идея или совет по эффективному использованию редактора 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.
  1. Откройте вкладку Вставка и в группе команд Колонтитулы нажмите кнопку Нижний колонтитул.
  2. В открывшейся коллекции выберите команду Изменить нижний колонтитул. Откроется контекстная вкладка Работа с колонтитулами.
  3. Нажмите кнопку Параметры и установите флажок на параметре Разные колонтитулы для четных и нечетных страниц.
  4. Далее, в группе команд Колонтитулы нажмите кнопку Номер страницы и наведите указатель мыши на команду Внизу страницы. Откроется коллекция команд, в которой вам нужно выбрать Простой номер 3. Вы увидите, что будет вставлена нумерация только для нечетных страниц.
  5. Перейдите в колонтутул четной страницы. И снова нажмите кнопку Номер страницы и наведите указатель мыши на команду Внизу страницы и выберите уже команду Простой номер 1. Будет вставлена нумерация и для четных страниц.
Оставить комментарий | Задать вопрос

Полезные ссылки

Информация об авторских правах

Вся информация, представленная на сайте WordExpert.ru и в этой рассылке, никаким образом не связана с корпорацией Microsoft. В рассылке упоминаются компании и продукты, которые могут быть зарегистрированными торговыми марками и принадлежать различным физическим и юридическим лицам как на территории РФ, так и за ее пределами.

Авторские права на все материалы, опубликованные на сайте WordExpert.ru и в этой рассылке (включая текст, фотографии, подборку, расположение и т.п.) принадлежат Кокину Антону Вадимовичу, если не указано иное. Вы можете свободно использовать и распространять эти материалы с обязательной ссылкой вида "Информация с сайта WordExpert.ru" и с обязательным указанием автора материала.

Все материалы, опубликованные на сайте WordExpert.ru и в этой рассылке, представлены на информационной основе. Вы можете использовать любую информацию с сайта WordExpert.ru или из данной рассылки исключительно на свой страх и риск. Тем не менее, я рекомендую перед применением какой-либо информации с сайта WordExpert.ru или из данной рассылки обязательно сохранять и создавать резервные копии ваших документов.

В этой рассылке также упоминаются различные web-страницы с соответствующими ссылками. Эти ссылки указываются исключительно в информационных целях и никакой рекомендации или одобрения с моей стороны данных веб-страниц не подразумевается, если не указано иное.


В избранное