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

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

Sub UnderlineQuoted()

Dim bDelQuotes As Boolean     Dim bMvRt As Boolean     Selection.HomeKey Unit:=wdStory

' controls deletion of quote marks     bDelQuotes = False          With Selection.Find         .ClearFormatting         .Text = Chr(34)

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindStop         .Execute     End With

While Selection.Find.Found         Selection.MoveRight Unit:=wdCharacter, Count:=1         ' switch on selection extend mode         Selection.ExtendMode = True         bMvRt = True         ' find second quote of this pair         Selection.Find.Execute         If Selection.Find.Found Then             Selection.MoveLeft Unit:=wdCharacter, Count:=1             If Len(Selection.Range.Text) > 0 Then                 ' make it underlined                 Selection.Font.Underline = True                 ' delete quote marks, if appropriate                 If bDelQuotes Then                     Selection.Cut                     Selection.TypeBackspace                     Selection.Delete Unit:=wdCharacter, Count:=1                     Selection.Paste                     bMvRt = False                 End If             End If         End If         Selection.ExtendMode = False         If bMvRt Then             Selection.Collapse Direction:=wdCollapseEnd             Selection.MoveRight Unit:=wdCharacter, Count:=1         End If         Selection.Find.Execute     Wend End Sub

Обратите внимание на настройку переменной bDelQuotes. Если установлено значение False (как здесь), то сами кавычки макросом не удаляются. Если вы измените значение переменной на True, макрос избавится от кавычек в документе. Обратите внимание, что он избавляется от кавычек, только если он действительно подчеркивает текст между этими кавычками.

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (10473) применим к Microsoft Word 2007, 2010, 2013 и 2016. Вы можете найти версию этого совета для старого интерфейса меню Word здесь:

link: / word-Underlining_Quoted_Text [Подчеркивание цитируемого текста].