|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.11.2010, 21:51 | #1 |
Регистрация: 30.11.2010
Сообщений: 3
|
Собрать текст
Как собрать части текста в один?
Исходные данные: два документа Ворд, в одном - 200 синонимизированных вариантов одного абзаца текста. В другом, тоже около 200 вариантов другого текста. Первый и второй абзацы вместе составляют один текст (второй - продолжение первого). Нужно соединить первый абзац первого док. с первым абзацем второго док., второй абзац первого док. со вторым абзацем второго док., и так все 200 вариантов. Помогите решить эту проблему. |
01.12.2010, 08:14 | #2 |
Форумчанин
Регистрация: 12.11.2009
Сообщений: 258
|
|
01.12.2010, 14:26 | #3 | |
Регистрация: 30.11.2010
Сообщений: 3
|
Цитата:
|
|
04.12.2010, 00:51 | #4 |
Регистрация: 30.11.2010
Сообщений: 3
|
Не пойму, как мне использовать это:
Код: bname = "отчет1" Set oDoc = ThisDocument If oDoc.Bookmarks.Exists(Name:=bname) Then Debug.Print "пошел" Set oBm = oDoc.Bookmarks(bname) Set oRng = oBm.Range oRng.InsertFile FileName:=bname & ".docx", Range:="", _ ConfirmConversions:=False, Link:=False, Attachment:=False oRng.Select oRng.Fields.Update oBm.Delete With oDoc.Bookmarks .Add Range:=oRng, Name:=bname End With End If |
05.12.2010, 01:14 | #5 | |
Форумчанин
Регистрация: 12.11.2009
Сообщений: 258
|
Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Собрать комп | GLM | Компьютерное железо | 1 | 21.11.2010 13:45 |
Комп Собрать | GallardoUSER | Компьютерное железо | 3 | 13.11.2010 10:48 |
Помогите собрать .... | netbioz | Компьютерное железо | 5 | 05.10.2009 19:12 |
Как узнать какой текст выделен в текст поле | mogul82 | JavaScript, Ajax | 2 | 02.11.2008 16:32 |
Собрать и развернуть грид | Hollander | Общие вопросы .NET | 1 | 20.02.2008 20:24 |