Вопрос : Создайте новый документ от разделов templated документа

Hi ванты,

Can любое показывают мне пример как я могу динамический, создать новый документ слова MS programatically (using VBA) хватая определенными разделами от templated документа который разделен в предопределенные разделы. Препятствует для того чтобы сказать шаблон имеет 10 разделов быть определенным. Я хотел был бы мочь создать новый документ имеет раздел 2, последованный за
Is раздела 6 и раздела 8. это do-able? Если не using разделы после этого я открыт к другому suggestions.

Thank вы заранее для любого contributions class=

Ответ : Создайте новый документ от разделов templated документа

Здесь предложение предыдущей вязки
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

Sub BuildDocFromSections ()
    Тусклое wdApp как Word.Application
    Тусклое docNew как Word.Document
    Тусклое docSource как Word.Document
    Тусклые sourcesections как вариант
    Затемните I как интежер
    Затемните bNewInstance как булевско
        
    'попытайтесь использовать существующий пример слова
    На резюме ошибки затем 'подавите отчетность ошибки
        Установите wdApp = GetObject (, «Word.Application»)
    На ошибке переход 0 're-enable отчетность ошибки
    
    Если wdApp ничего после этого
        'Сформулируйте не бежать, поэтому создайте новый пример
        Установите wdApp = CreateObject («Word.Application»)
        wdApp.Visible = True 'опционное. Кодий все еще будет работать с спрятанным применением
        bNewInstance = True
    Закончитесь если
    
    
    sourcesections = блок (2, 6, 8)
    Установите docSource = wdApp.Documents.Open («C:\MyFolder\MyTemplate.dot ")
    Установите docNew = wdApp.Documents.Add
    Для I = от 0 до 2
        docSource.Sections (sourcesections (I)). Range.Copy
        docNew.Bookmarks («\ EndOfDoc»). Range.Paste
    Затем iий
    wdDoNotSaveChanges docSource.Close
    
    'За исключением нового документа и близкого применения если оно уже не побежать
    docNew.SaveAs «C:\MyFolder\MyNewDoc.dot»
    Если bNewInstance после этого
        wdApp.Quit
    Закончитесь если
Закончите подводную лодку
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us