1

Тема: Замена во всех словах, подчеркнутых как неправильно написанные

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

Спасибо.

2

Re: Замена во всех словах, подчеркнутых как неправильно написанные

tetris1981
Для перехода по "подчеркнутым" словам можно воспользоваться Selection.GoToNext(wdGoToProofreadingError).
Правда, оператор как-то непонятно работает с Range и иногда выделяет строку вместо слова.
Навскидку получилась такая кривенькая процедура, работающая с выделенным текстом:

With Selection
  endd = .End
  f0 = .Range
  .Collapse
  Do While .End <= endd And f0 <> .Range
    .GoToNext(wdGoToProofreadingError).Select
    a = Trim(.Text): If Len(a) > 0 Then Mid(a, 1, 1) = UCase(Mid(a, 1, 1)): .Text = a
    f0 = .Range
    .Collapse 0
  Loop
End With

3

Re: Замена во всех словах, подчеркнутых как неправильно написанные

Немного дополню. Изменить регистр можно так:

If Len(Trim(.Text)) > 0 Then
  .Text = StrConv(.Text, vbProperCase)
End If

вместо

bogomolov пишет:
a = Trim(.Text): If Len(a) > 0 Then Mid(a, 1, 1) = UCase(Mid(a, 1, 1)): .Text = a
Лучше день потерять — потом за пять минут долететь!

4

Re: Замена во всех словах, подчеркнутых как неправильно написанные

супер! всем спасибо