Pergunta : Criar um novo documento das seções de um original templated

Olá! os indivíduos,

Can qualquer um mostram-me um exemplo de como eu posso dinâmicamente criar um original novo de MS Word programatically (using VBA) por seções especific de agarramento de um original templated que seja separação em seções predefinidas. Deixa para dizer o molde tem 10 seções definidas. Eu gostaria de poder criar um novo documento que tivesse a seção 2, seguido pelo
Is da seção 6 e da seção 8. isto do-able? Se não using seções então eu estou aberto ao outro suggestions.

Thank você adiantado para todo o contributions class= do

Resposta : Criar um novo documento das seções de um original templated

Está aqui uma sugestão do emperramento adiantado
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 secundário ()
    wdApp não ofuscante como Word.Application
    docNew não ofuscante como Word.Document
    docSource não ofuscante como Word.Document
    Sourcesections não ofuscantes como a variação
    Escurecer i como o inteiro
    Escurecer o bNewInstance como bôoleano
        
    'tentar usar um exemplo existente da palavra
    No resumo do erro em seguida 'suprimir o relatório de erro
        Ajustar o wdApp = o GetObject (, “Word.Application”)
    No erro 0 empreendedores 're-enable o relatório de erro
    
    Se o wdApp não é nada então
        'Exprimir o funcionamento, assim que criar um exemplo novo
        Ajustar o wdApp = o CreateObject (“Word.Application”)
        wdApp.Visible = retificam 'opcional. O código ainda trabalhará com aplicação escondida
        o bNewInstance = retifica
    Terminar se
    
    
    sourcesections = disposição (2, 6, 8)
    Ajustar o docSource = o wdApp.Documents.Open (“C:\MyFolder\MyTemplate.dot ")
    Ajustar o docNew = o wdApp.Documents.Add
    Para i = 0 a 2
        docSource.Sections (sourcesections (i)). Range.Copy
        docNew.Bookmarks (“\ EndOfDoc”). Range.Paste
    Em seguida i
    wdDoNotSaveChanges de docSource.Close
    
    'Excepto o novo documento e a aplicação próxima a menos que já estiver funcionando
    docNew.SaveAs “C:\MyFolder\MyNewDoc.dot”
    Se bNewInstance então
        wdApp.Quit
    Terminar se
Terminar o submarino
Outras soluções  
 
programming4us programming4us