Замена последней запятой (Microsoft Word)
Ребекка ищет способ заменить последнюю запятую в предложении словом «и». Ей, по-видимому, нужно немного редактировать этот тип, и она подумала, что может быть быстрый и простой способ выполнить редактирование, вместо того, чтобы делать это вручную.
В Word нет встроенного способа сделать это конкретное редактирование, но вы можете создать простой макрос, который будет искать последнюю запятую, удалять ее, а затем вводить желаемое слово. Ниже приведен пример такого макроса.
Sub ReplaceLastComma() Dim J As Integer Dim bRep As Boolean Dim sRaw As String Selection.Sentences(1).Select sRaw = Selection.Text bRep = False For J = Len(sRaw) To 1 Step -1 If Mid(sRaw, J, 1) = "," Then Selection.Collapse Direction:=wdCollapseStart Selection.MoveRight Unit:=wdCharacter, Count:=J - 1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.TypeText Text:=" and" J = 1 bRep = True End If Next J If Not bRep Then Selection.Collapse Direction:=wdCollapseStart End Sub
Макрос выбирает текущее предложение (то, в котором находится точка вставки, а затем переходит назад по тексту предложения (текст назначается переменной sRaw для простоты обработки). Если запятая найдена, то точка вставки располагается непосредственно перед запятой в документе, запятая удаляется, а затем вводится пробел и вводится слово «и».
Если вы предпочитаете, чтобы макрос не удалял запятой, вы можете быстро изменить удаление строки, которая выполняет удаление (и изменить строку перед ней так, чтобы движение было «J + 1», а не «J-1»), или вы можете просто добавить запятую перед пробел в тексте, который вводится макросом.
_Примечание: _
Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любом другом другую страницу на сайтах WordTips), я подготовил специальную страницу с полезной информацией.
`link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера] `.
WordTips — ваш источник экономичного обучения работе с Microsoft Word.
(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (5401) относится к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:
link: / wordribbon-Replacing_the_Last_Comma [Замена последней запятой]
.