1

Тема: Как сделать полужирными строки 18, 19, 20

Вопрос в теме. Вопрос касается 1 страницы документа

2

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
Лучше день потерять — потом за пять минут долететь!

3

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 With

Word спрашивает меня продолжать ли поиск в оставшийся части документа.
Я бы не хотел, чтобы Word спрашивал меня об этом, а заменял данные только в абзацах 18-20.

4

Re: Как сделать полужирными строки 18, 19, 20

Ты же прописал .Wrap = wdFindAsk, вот он и спрашивает. Либо убери этот параметр вообще, либо задай ему значение wdFindStop, которое стоит по умолчанию

Лучше день потерять — потом за пять минут долететь!

5

Re: Как сделать полужирными строки 18, 19, 20

Спасибо

6

Re: Как сделать полужирными строки 18, 19, 20

viter.alex
А у меня пишет ошибку в сроке
With .Range(.Paragraphs(18).Range.Start, .Paragraphs(20).Range.End).Find

7

Re: Как сделать полужирными строки 18, 19, 20

tigr возможно в вашем открытом документе просто меньше 18 строк.. Другой причины для ошибки не вижу