1 Тема от jaroslav

  • jaroslav
  • сержант
  • Неактивен
  • Зарегистрирован: 07.05.2010
  • Сообщений: 29

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

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

2 Ответ от viter.alex

  • Как сделать полужирными строки 18, 19, 20
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140

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

Сайтviter.alex

3 Ответ от jaroslav

  • jaroslav
  • сержант
  • Неактивен
  • Зарегистрирован: 07.05.2010
  • Сообщений: 29

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 Ответ от viter.alex

  • Как сделать полужирными строки 18, 19, 20
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140

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

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

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

Сайтviter.alex

5 Ответ от jaroslav

  • jaroslav
  • сержант
  • Неактивен
  • Зарегистрирован: 07.05.2010
  • Сообщений: 29

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

Спасибо

6 Ответ от tigr

  • tigr
  • сержант
  • Неактивен
  • Зарегистрирован: 04.06.2010
  • Сообщений: 32
  • Поблагодарили: 3

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

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

7 Ответ от andrkar

  • andrkar
  • Модератор
  • Неактивен
  • Откуда: Томск
  • Зарегистрирован: 10.03.2010
  • Сообщений: 431
  • Поблагодарили: 26

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

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