Questione : Generare un nuovo documento dalle sezioni di un documento templated

Ciao i tipi, il

Can chiunque mi mostrano un esempio di come posso generare dinamicamente un nuovo documento di MS Word programatically (using VBA) dalle sezioni specificate afferranti da un documento templated che è tagliato in sezioni predefinite. Lascia per dire la mascherina fa 10 definire sezioni. Vorrei potere generare un nuovo documento che ha parte 2, seguito dal
Is della parte 6 e della parte 8. questo do-able? Se non using le sezioni allora sono in anticipo aperto all'altro suggestions.

Thank voi per tutto il contributions class= del

Risposta : Generare un nuovo documento dalle sezioni di un documento templated

Qui è un suggerimento del grippaggio in anticipo
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 secondario ()
    wdApp fioco come Word.Application
    docNew fioco come Word.Document
    docSource fioco come Word.Document
    Sourcesections fiochi come variante
    Oscurare la i come numero intero
    Oscurare il bNewInstance come booleano
        
    'provare ad usare un caso attuale della parola
    Sul riassunto di errore dopo 'sopprimere la segnalazione di errore
        Regolare il wdApp = GetObject (, “Word.Application„)
    Sull'errore 0 di avanzamento 're-enable la segnalazione di errore
    
    Se il wdApp allora è niente
        'Esprimere non funzionare, in modo da generare un nuovo caso
        Regolare il wdApp = CreateObject (“Word.Application„)
        wdApp.Visible = allineano 'facoltativo. Il codice ancora funzionerà con l'applicazione nascosta
        il bNewInstance = allinea
    Concluder se
    
    
    sourcesections = allineamento (2, 6, 8)
    Regolare il docSource = wdApp.Documents.Open (“C:\MyFolder\MyTemplate.dot ")
    Regolare il docNew = wdApp.Documents.Add
    Per i = 0 - 2
        docSource.Sections (sourcesections (i)). Range.Copy
        docNew.Bookmarks (“\ EndOfDoc„). Range.Paste
    Dopo i
    wdDoNotSaveChanges di docSource.Close
    
    'Salvo il nuovo documento e l'applicazione vicina a meno che già stesse funzionando
    docNew.SaveAs “C:\MyFolder\MyNewDoc.dot„
    Se bNewInstance allora
        wdApp.Quit
    Concluder se
Concludere il sommergibile
Altre soluzioni  
 
programming4us programming4us