Когда я форматирую документы, мне часто нужно, чтобы определенное слово или отрывок было выделено жирным шрифтом и курсивом. Word включает инструменты (на панели инструментов «Форматирование»), которые используют полужирный шрифт и курсив, но не полужирный курсив. Мне надоело делать два щелчка мышью, поэтому я создал свой собственный инструмент для одновременного применения обоих форматов. Полученный макрос затем можно назначить инструменту панели инструментов рядом с инструментами, выделенными жирным шрифтом и курсивом.

Самый простой способ сделать это — использовать следующий макрос:

Sub BoldItalics1()

Selection.Font.Bold = True     Selection.Font.Italic = True End Sub

Этот макрос включает атрибуты, но не переключает их. Другими словами, вы не можете отключить полужирный курсив, используя тот же макрос, что и отдельные инструменты полужирного и курсивного начертания. Это привело к созданию макроса «следующего поколения», который проверяет состояние выделенного текста перед внесением каких-либо изменений:

Sub BoldItalics2()

Dim BIStatus As Integer

BIStatus = 0     If Selection.Font.Bold Then BIStatus = BIStatus + 1     If Selection.Font.Italic Then BIStatus = BIStatus + 1

If BIStatus = 0 Then         Selection.Font.Bold = True         Selection.Font.Italic = True     End If     If BIStatus = 1 Then         Selection.Font.Bold = True         Selection.Font.Italic = True     End If     If BIStatus = 2 Then         Selection.Font.Bold = False         Selection.Font.Italic = False     End If End Sub

Первые строки макроса увеличивают переменную (BIStatus) в зависимости от того, установлены ли для выделения свойства полужирный или курсив. Когда эти строки заполнены, BIStatus будет равен 0, если выделенный текст не полужирный и не курсив, 1, если он полужирный или курсив, или 2, если он и полужирный, и курсив.

Если для BIStatus установлено значение 0 или 1, то для выделенного текста устанавливаются свойства полужирный и курсив. Если они были установлены ранее (BIStatus = 2), то оба свойства отключены.

_Примечание: _

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

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (606) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Applying_Bold_Italics [Применение полужирного курсива].