Cuestión : Crear un nuevo documento de secciones de un documento templated

Hola los individuos,

Can cualquier persona me demuestran un ejemplo de cómo puedo crear dinámicamente un nuevo documento de MS Word por programatically (usar VBA) las secciones especificadas que asen de un documento templated que esté partido en secciones predefinidas. Deja para decir la plantilla hace 10 secciones definir. ¿Quisiera poder crear un nuevo documento que tiene sección 2, seguido por el
Is de la sección 6 y de la sección 8. esto factible? Si no usar secciones entonces estoy abierto al otro suggestions.

Thank usted por adelantado para cualquier contributions class= del

Respuesta : Crear un nuevo documento de secciones de un documento templated

Aquí está una sugerencia del atascamiento temprano
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:

BuildDocFromSections secundario ()
    wdApp dévil como Word.Application
    docNew dévil como Word.Document
    docSource dévil como Word.Document
    Sourcesections déviles como variante
    Amortiguar i como número entero
    Amortiguar el bNewInstance como boleano
        
    'intentar utilizar un caso existente de la palabra
    En curriculum vitae del error después 'suprimir la información de error
        Fijar el wdApp = GetObject (, “Word.Application”)
    En el error 0 indicado 'volver a permitir la información de error
    
    Si el wdApp entonces no es nada
        'Redactar el funcionamiento, así que crear un nuevo caso
        Fijar el wdApp = CreateObject (“Word.Application”)
        wdApp.Visible = verdad 'opcional. El código todavía trabajará con el uso ocultado
        el bNewInstance = verdad
    Terminar si
    
    
    sourcesections = arsenal (2, 6, 8)
    Fijar el docSource = wdApp.Documents.Open (“C:\MyFolder\MyTemplate.dot ")
    Fijar el docNew = wdApp.Documents.Add
    Para i = 0 a 2
        docSource.Sections (sourcesections (i)). Range.Copy
        docNew.Bookmarks (“\ EndOfDoc”). Range.Paste
    Después i
    wdDoNotSaveChanges de docSource.Close
    
    'Excepto el nuevo documento y el uso cercano a menos que funcionara ya
    docNew.SaveAs “C:\MyFolder\MyNewDoc.dot”
    Si bNewInstance entonces
        wdApp.Quit
    Terminar si
Terminar el submarino
Otras soluciones  
 
programming4us programming4us