Статьи из блога

Макрос изменения регистра первых букв в предложениях

Андрей спрашивает:

Мне нужен макрос, который бы менял первые буквы предложений, например, с маленькой на большую. После однобуквенных предлогов в начале предложений ставится неразрывный пробел. Курсор перед запуском макроса может находиться в любом месте текста.

Можно воспользоваться следующим макросом:

Sub firstCharCase()
'изменение регистра первых букв предложений и
'замена пробела после однобуквенного предлога на неразрывный пробел
Dim fChar As Range
For Each fChar In ActiveDocument.Sentences
   fChar.Characters.First.Case = wdUpperCase
Next fChar
With ActiveDocument
   .Select
   With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "([А-ЯЁ]){1}([ ])"
      .Replacement.Text = "\1^s"
      .MatchWildcards = True
      .Forward = True
      .Execute Replace:=wdReplaceAll
   End With
End With
Selection.Collapse wdCollapseStart
End Sub

Все советы с сайта Word Expert в книге - Народные советы

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

Оставьте комментарий!

(обязательно)

^ Наверх