Тема: Замена во всех словах, подчеркнутых как неправильно написанные
Подскажите, как заменить первую маленькую букву на большую во всех словах, которые word помечает как написанные с ошибкой.
Спасибо.
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
- viter.alex
- Модератор
- Неактивен
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
Лучше день потерять — потом за пять минут долететь!
Re: Замена во всех словах, подчеркнутых как неправильно написанные
супер! всем спасибо