Как поставить кавычки, выделенному тексту в Word?
Дело в том, что у меня очень много коротких фраз, которые нужно взять в кавычки. Вручную - как-то долго это...
По дате
По рейтингу
Забабахай этот скрипт в макросы и выведи кнопку на панель.
Sub Fig_quotes()
EndStr$ = Right(Selection.Text, 1)
If EndStr = " " Then
Selection.Text = ChrW(171) & Left(Selection.Text, Len(Selection.Text) - 1) & ChrW(187) & EndStr
Else
Selection.Text = ChrW(171) & Selection.Text & ChrW(187)
End If
End Sub
поставьте некий знак до и другой -после. потом замените их все на соответствующие кавычки
Больше по теме