Fråga : Skapa ett nytt dokument från delar upp av ett templated dokument

Hi grabbar,

Can någon visar mig att ett exempel av, hur jag kan dynamiskt skapa ett nytt MS Worddokument genom programatically (using VBA) specificerat att gripa delar upp från ett templated dokument, som delas in i fördefinerat delar upp. Låter något att säga som mallen har 10 delar upp definierat. Jag skulle något liknande för att vara kompetent att skapa ett nytt dokument, som har att dela upp 2, följde delar upp 6 och delar upp 8 by.
Is detta som var do-able? Om inte using delar upp därefter mig förmiddagen, öppna till annan suggestions.

Thank dig i förskott för någon contributions " klar "

Svar : Skapa ett nytt dokument från delar upp av ett templated dokument

Är här ett tidig sortbandförslag
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:

UnderBuildDocFromSections ()
    Dunkel wdApp som Word.Application
    Dunkel docNew som Word.Document
    Dunkel docSource som Word.Document
    Dunkla sourcesections som Variant
    Dunkelt I som heltal
    Dunkel bNewInstance som Boolean
        
    'försök att använda ett existerande anföra som exempel av uttrycker
    På felmeritförteckning därefter 'dämpa att anmäla för fel
        Fastställd wdApp = GetObject (, ”Word.Application”)
    På fel GoTo 0 'omaktivera att anmäla för fel
    
    Om wdApp är ingenting därefter
        'Uttrycka inte spring, så skapa ett nytt anföra som exempel
        Fastställd wdApp = CreateObject (”Word.Application”)
        wdApp.Visible = True 'valfritt. Kodifiera ska fortfarande arbete med gömd applikation
        bNewInstancen = True
    Avsluta om
    
    
    sourcesections = samling (2, 6, 8)
    Fastställd docSource = wdApp.Documents.Open (”C:\MyFolder\MyTemplate.dot”)
    Fastställd docNew = wdApp.Documents.Add
    För I = 0 till 2
        docSource.Sections (sourcesections (I)). Range.Copy
        docNew.Bookmarks (”\ EndOfDoc”). Range.Paste
    Därefter i
    docSource.Close-wdDoNotSaveChanges
    
    'Nytt dokument för räddning och nära applikation, om inte den var redan rinnande
    docNew.SaveAs ”C:\MyFolder\MyNewDoc.dot”,
    Om bNewInstance därefter
        wdApp.Quit
    Avsluta om
Avsluta suben
Andra lösningar  
 
programming4us programming4us