Объединение нескольких Range в Word

Программирование на Visual Basic for Applications
Yeldos
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 01.07.2003 (Вт) 9:33

Объединение нескольких Range в Word

Сообщение Yeldos » 28.07.2003 (Пн) 8:19

Доброго времени суток, уважаемые!
У меня такой вопрос: можно ли в Word объединить несколько Range и при этом сохранить форматирование текста? Но не использовать буфер обмена.

SergeySV
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 124
Зарегистрирован: 17.04.2003 (Чт) 14:39
Откуда: Россия, Москва

Re: Объединение нескольких Range в Word

Сообщение SergeySV » 29.07.2003 (Вт) 13:33

Yeldos писал(а):Доброго времени суток, уважаемые!
У меня такой вопрос: можно ли в Word объединить несколько Range и при этом сохранить форматирование текста? Но не использовать буфер обмена.


Я так понимаю, что под Range ты имеешь ввиду объединение двух ячеек, а под сохранением форматирования текста еще и форматирования самого текста этих двух ячеек.

Без буфера обмена, запросто, вручную, сохранив и текст и форматирование в переменных...
Главное двигаться не быстрее, чем думает твоя голова.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 29.07.2003 (Вт) 13:54

Ты можешь выделить текст и мышкой переместить его туда, куда тебе надо. Буфер обмена при этом не используется.
Кодом это делается так:
Код: Выделить всё
'выделяешь нужный фрагмент
Selection.MoveRight Unit:=wdCharacter, Count:=..., Extend:=wdExtend

'начинаешь перемещение текста
WordBasic.CopyText

'перемещаешь курсом в нужную позицию
Selection.MoveRight Unit:=wdCharacter, Count:=...

'перемещаешь текст
WordBasic.OK
Lasciate ogni speranza, voi ch'entrate.


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 82

    TopList