простой макрос в ворде

[Йожег]

В ворде макросом заменить атрибут "все прописные" на реально большие буквы. Без всякой атрибутики. По всему тексту естественно.

 

[splxgf]

Ну смотря какой ворд, если выше 2003, то найти и выделить весь текст с этими атрибутами, снять его в форматировании и Shift+F3 (Если конечно ничего не путаю). Для младших надо еще подумать.

 

[Йожег]

2007 но макрос хочется - текстов много.

 

[lev]

Это был вопрос? Настоящий с вопросительным знаком?
Тогда, навскидку, у меня так вышло:

Sub AllCaps2Caps()
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    .Text = "^$"
    .Font.AllCaps = True
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
  End With
  While Selection.Find.Execute
    Selection.Font.AllCaps = False
    Selection.Range.Case = wdUpperCase
    'Selection.Font.Color = wdColorRed 'покраска в тестовых целях
  Wend
End Sub

Наверно, можно и проще.

 

[splxgf]

Ну ровно то что я сказал закатать в макрос, там делов на две секунды. Сейчас только проверю что реально работает, а то я новые версии не особо жалую.
Выше вполне красивый вариант.