Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > Скопировать текст

Автор: Plavozont 5.5.2012, 12:34

Документ состоит из одного листа. Мне нужно его продублировать. Когда я делаю вот так:

Dim dr As Range
Selection.WholeStory
Set dr = Selection.Range.Duplicate
Selection.EndKey Unit:=wdStory
Selection.Range = dr

Он дублируется но без форматирования. Не подскажете ли как это сделать?

P.S. Речь о ворде...

Автор: Akina 5.5.2012, 13:53

Чем определяется не-использование клипборда?

Добавлено через 4 минуты и 33 секунды
Как идиотский вариант могу предложить сохранить его с другим именем, а затем вставить в конец исходного (Вставить - Файл). только не забудь воткнуть между ними разрыв раздела...

Автор: Akina 5.5.2012, 14:15

А ещё есть Drag&Drop с зажатым Ctrl...

Автор: Вождь 6.5.2012, 09:41

Без буфера, внутри одного документа, это делается командами CopyText и MoveText:

Код


Sub Выбранный_фрагмент_в_конец_документа()
    WordBasic.MoveText
    Selection.EndKey Unit:=wdStory, Extend:=wdMove
    WordBasic.OK
End Sub

Автор: Plavozont 6.5.2012, 13:30

Цитата

Чем определяется не-использование клипборда?

Не хочу чтобы моя программа использовала его для своих внутренних делишек.

Добавлено через 4 минуты и 3 секунды

Цитата

Без буфера, внутри одного документа, это делается командами CopyText и MoveText:

Класс, работает... А шо это было....