Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
iopty
0 / 0 / 0
Регистрация: 16.06.2015
Сообщений: 1
1

Word: скопировать/удвоить каждый параграф

16.06.2015, 08:40. Просмотров 708. Ответов 1
Метки нет (Все метки)

Здравствуйте!

Каким образом можно взять параграф, скопировать и вставить снизу?

Было:

параграф 1
параграф 2
параграф 3

Стало:

параграф 1
параграф 1
параграф 2
параграф 2
параграф 3
параграф 3


Спасибо!
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.06.2015, 08:40
Ответы с готовыми решениями:

Скопировать каждый лист excel в отдельный файл
Подскажите, пожалуйста! Как скопировать, к примеру 20 отдельных листов в файле excel в отдельный...

Скопировать рисунок из Excel в Word
Здравствуйте. Нужно из Excel переставить картинку в Word средствами vba. Вариант с созданием...

Скопировать таблицу из PowerPoint в Word
Вопрос в сабже, собсна. Вот на чем застрял Sub тест() Dim PPAppl As Object Dim WDAppl As...

Скопировать таблицу Word из Excel
Всем Доброй ночи. Подскажите пожалуйста, как из Excel посредством макроса можно скопировать уже...

Скопировать один Word документ в другой
Нужно после заполнения данных в Excel'е создать Word-формуляр. Имеется один основной docx-файл и...

1
Аксима
6052 / 1296 / 193
Регистрация: 12.12.2012
Сообщений: 1,019
16.06.2015, 10:37 2
Здравствуйте, iopty,
Например, можно использовать методы InsertBefore или InsertAfter:

Visual Basic
1
2
3
4
5
6
Sub TwinParagraphs()
    Dim par As Paragraph
    For Each par In ActiveDocument.Paragraphs
        par.Range.InsertBefore par.Range.Text
    Next par
End Sub
С уважением,
Аксима
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.06.2015, 10:37

Скопировать список в Word в буфер обмена
Как оказалось функция копирования списка в моём макросе работает криво - почему-то выделяется...

Скопировать таблицу из Excel в файл Word
Не нашел решения в Инете, может тут кто-то подскажет дельное. Есть документ Word, а конкретнее...

Как скопировать гиперссылку из Excel в Word?
В документе Excel беру ссылку: Dim lnk As String lnk = Selection.Hyperlinks(1).Address Затем...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.