Применить "Чередующийся случай" к документу?

Question

Есть ли способ последовательно преобразовать документ в одно слово в верхнем и в нижнем регистре? Например, я пишу строку «КАК ТЫ, Я ХОРОШО», и это преобразуется в «КАК ТЫ, ТЫ, Я СОВЕРШЕННЫЙ».

Answer 1

Вот процедура VBA, которая будет делать то, что вы описываете:

Sub Alternate_case()

    Selection.HomeKey Unit:=wdStory

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^$"
        .Forward = True
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        Do While True
            .Execute Wrap:=wdFindStop
            If Not .Found Then Exit Do
            Selection.Range.Case = wdUpperCase
            .Execute Wrap:=wdFindStop
            If Not .Found Then Exit Do
            Selection.Range.Case = wdLowerCase
        Loop
    End With
End Sub

Selection.HomeKey эквивалентно Ctrl+Home ; он переходит к началу документа.  Удалите его, если вы просто хотите начать, где бы вы ни находились, когда вызываете подпрограмму.  Следующие дюжина строк настраивают поиск буквы без учета регистра, без подстановочных знаков (Text = "^$").  (Вы можете избежать удаления ….ClearFormatting строки … = False , так как они явно устанавливают параметры по умолчанию.)

Блок Do While True - это "бесконечный цикл", который останавливается после того, как он находит последнюю букву в документе.  Выполняет сконфигурированный поиск (для буквы) без переноса в начало документа (Wrap:=wdFindStop); если это не удается (Not .Found), он завершает цикл (Exit Do), в противном случае он продолжает использовать заглавную букву и искать снова.  При следующем поиске, в случае успеха, он устанавливает букву в нижний регистр и так далее.

См. Как добавить VBA в MS Office? для получения общей информации о том, как использовать VBA в Microsoft Word (и Excel, и т. д.)

Answer 2

Это действительно почти возможно. Просто выберите нужный вариант с помощью кнопки шрифта capitlization.

Вот полное описание того, что вы должны сделать.

На вкладке « Главная » в группе « Шрифт » щелкните « Изменить регистр». , а затем нажмите нужную опцию капитализации.

Вы также можете выбрать текст, а затем выполнить сочетание клавиш

Чтобы изменить регистр с помощью сочетания клавиш, нажимайте SHIFT+F3 до тех пор, пока не будет выбран нужный стиль - регистр заголовка, все прописные или строчные буквы.

Источник

Это именно то, что вы должны сделать с вашим вопросом. Вы даже можете скопировать и вставить цитируемый текст, чтобы сделать именно это.

Эй, ребята, у меня есть вопрос, есть ли способ преобразовать документ в одно слово в верхнем и в нижнем регистре последовательно, например, я пишу строку «Как ты, я в порядке», и это преобразуется в «HoW ARe YOU я Am FiNe "