Макрос для выбранной части .doc, а не WholeStory - VBA

Узнай цену своей работы

Формулировка задачи:

Привет знатокам! Может ли кто-то помочь переделать нижеследующий код для применения на выбранном участке документа, а не на всем документе? Убирал WholeStory, изменял wdStory - не помогает. Пожалуйста, помогите!

Решение задачи: «Макрос для выбранной части .doc, а не WholeStory»

textual
Листинг программы
Sub SetRUS()
  Dim StrRu$, P As Paragraph, El, Mas
    StrRu = "ее,нная,нное,ё,ъ,ы,э,Ё,Ы,Э"
    Mas = Split(StrRu, ",")
    For Each P In Selection.Paragraphs
        With P.Range
            .LanguageID = wdUkrainian
            For Each El In Mas
                ' если регистр не важен, установить MatchCase:=False и убрать дубликаты из строки StrRu: Ё,Ы,Э
                If .Find.Execute(findtext:=El, MatchCase:=True) Then
                    P.Range.LanguageID = wdRussian
                    Exit For
                End If
            Next
        End With
    Next
End Sub

Оцени полезность:

8   голосов , оценка 3.625 из 5
Похожие ответы