Frage : Ein neues Dokument von den Abschnitten eines templated Dokuments erstellen

Hallo zeigen Kerle,

Can jedermann mir ein Beispiel von, wie ich ein neues MS Word-Dokument durch (using VBA) ergreifenspezifizierte Abschnitte von einem templated Dokument dynamisch programatically erstellen kann, das in vorbestimmte Abschnitte aufgespaltet. Lässt die Schablone sagen lässt 10 Abschnitte definieren. Ich möchte in der Lage sein, ein neues Dokument zu erstellen, das Abschnitt 2 hat, gefolgt Abschnitt 6 und Abschnitt 8. vom
Is do-able dieses? Wenn nicht using Abschnitte dann ich zu anderem suggestions.

Thank Sie im Voraus für irgendein contributions geöffnet bin

Antwort : Ein neues Dokument von den Abschnitten eines templated Dokuments erstellen

Ist hier ein Vorschlag der frühen Schwergängigkeit
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:
6:

VorBuildDocFromSections ()
    Schwaches wdApp als Word.Application
    Schwaches docNew als Word.Document
    Schwaches docSource als Word.Document
    Schwache sourcesections als Variante
    I als ganze Zahl verdunkeln
    bNewInstance verdunkeln, wie Boolesch
        
    'versuchen, einen vorhandenen Fall des Wortes zu verwenden
    Auf Störungs-Zusammenfassung zunächst 'Störungsbericht unterdrücken
        wdApp = GetObject (, „Word.Application“) einstellen
    Auf Störung Goto- 0 're-enable Störungsbericht
    
    Wenn wdApp nichts dann ist
        'Das Laufen abfassen nicht, also einen neuen Fall verursachen
        wdApp = CreateObject („Word.Application“) einstellen
        wdApp.Visible = ausrichten 'wahlweise freigestelltes es. Code arbeitet noch mit versteckter Anwendung
        bNewInstance = ausrichten en
    Beenden wenn
    
    
    sourcesections = Reihe (2, 6, 8)
    docSource = wdApp.Documents.Open („C:\MyFolder\MyTemplate.dot ") einstellen
    docNew = wdApp.Documents.Add einstellen
    Für i = 0 bis 2
        docSource.Sections (sourcesections (i)). Range.Copy
        docNew.Bookmarks („\ EndOfDoc“). Range.Paste
    Zunächst I
    docSource.Close wdDoNotSaveChanges
    
    'Außer neuem Dokument und naher Anwendung, es sei denn sie bereits lief
    docNew.SaveAs „C:\MyFolder\MyNewDoc.dot“
    Wenn bNewInstance dann
        wdApp.Quit
    Beenden wenn
Unterseeboot beenden
Weitere Lösungen  
 
programming4us programming4us