Тема: Как сделать полужирными строки 18, 19, 20
Вопрос в теме. Вопрос касается 1 страницы документа
- viter.alex
- Модератор
- Неактивен
Re: Как сделать полужирными строки 18, 19, 20
Если под строками подразумевается абзац, тогда так:
With ActiveDocument
.Range(.Paragraphs(18).Range.Start, .Paragraphs(20).Range.End).Font.Bold = True
End WithЕсли же подразумевается строка, тогда так:
With Selection
.HomeKey wdStory
.GoTo wdGoToLine, wdGoToAbsolute, 18
.MoveDown wdLine, 3, wdExtend
.Font.Bold = True
End WithЛучше день потерять — потом за пять минут долететь!
Re: Как сделать полужирными строки 18, 19, 20
Спасибо, viter.alex.
Подскажи, пожалуйста, как сделать замену в этих строках обычного дефиса на неразрывный дефис. Я делаю так:
With ActiveDocument
With .Range(.Paragraphs(18).Range.Start, .Paragraphs(20).Range.End).Find
.Text = Chr(45)
.Replacement.Text = Chr(30)
.Forward = True
.Wrap = wdFindAsk
.Execute Replace:=wdReplaceAll
End With
End WithWord спрашивает меня продолжать ли поиск в оставшийся части документа.
Я бы не хотел, чтобы Word спрашивал меня об этом, а заменял данные только в абзацах 18-20.
- viter.alex
- Модератор
- Неактивен
Re: Как сделать полужирными строки 18, 19, 20
Ты же прописал .Wrap = wdFindAsk, вот он и спрашивает. Либо убери этот параметр вообще, либо задай ему значение wdFindStop, которое стоит по умолчанию
Лучше день потерять — потом за пять минут долететь!
Re: Как сделать полужирными строки 18, 19, 20
Спасибо
Re: Как сделать полужирными строки 18, 19, 20
viter.alex
А у меня пишет ошибку в сроке
With .Range(.Paragraphs(18).Range.Start, .Paragraphs(20).Range.End).Find
Re: Как сделать полужирными строки 18, 19, 20
tigr возможно в вашем открытом документе просто меньше 18 строк.. Другой причины для ошибки не вижу