Questione : Documento spaccato e risparmi di parola basati sulle modifiche

Ciao, il
Im attualmente che ricerca come tagliare un documento di parola in lime multiple basate sulle modifiche attraverso il mondo della modifica di document.

The è qualcosa come

The dovrebbe tagliare ogni sezione in documento separato e salvo esso using il nome di schedario nel tag.

If che qualunque ha tutti i suggerimenti sul migliore senso fare questo vogliate lasciarlo know.

Ive trovare alcune risorse sul fotoricettore ma su niente yet.
 class= del

Risposta : Documento spaccato e risparmi di parola basati sulle modifiche

Il codice sotto è un codice di VBA che effettuerebbe che cosa avete chiesto. Dovrà essere conservato come macro nel documento da conservare. L'archivio di uscita sarà nello stesso percorso del documento attivo, indicato dal nome del documento all'interno della modifica.

Qui è dove trovo la risorsa per farlo:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=140

Sperare che questo aiuti!
cucire
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:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

Sub SplitDocs ()
    Oscurare TotalLines      come lungamente
    Oscurare la x               come lungamente
    Oscurare i gruppi ()        come lungamente
    Oscurar contro         come lungamente
    Oscurare y               come lungamente
    Oscurare FilePath        come stringa
    Oscurare il nome di schedario ()      come stringa
     
    FilePath = ActiveDocument.Path
    Selection.GoTo che cosa: =wdGoToLine, che: =wdGoToAbsolute, conteggio: =1
    Fare
        TotalLines = Selection.Range.Information (wdFirstCharacterLineNumber)
        Unità di Selection.MoveDown: =wdLine, conteggio: =1
    Collegare mentre TotalLines <> Selection.Range.Information (wdFirstCharacterLineNumber)
    Selection.GoTo che cosa: =wdGoToLine, che: =wdGoToAbsolute, conteggio: =1
    Per x = 1 a TotalLines
        Unità di Selection.EndKey: Il =wdLine, estende: =wdExtend
        intStartPos fiochi, intEndPos
        intStartPos = InStr (Selection.Text, "")
        Se intStartPos > 0 allora
            Contatore = contro + 1
            Gruppi della conserva di ReDim (1 al contatore)
            Nome di schedario della conserva di ReDim (1 al contatore)
            Gruppi (contro) = x
            Unità di Selection.EndKey: Il =wdLine, estende: =wdExtend
            Nome di schedario (contro) = metà di (Selection.Text, intStartPos + 10, intEndPos - (intStartPos + 10))
            Unità di Selection.HomeKey: Il =wdLine, estende: =wdExtend
        Concluder se
        Unità di Selection.HomeKey: =wdLine
        Unità di Selection.MoveDown: =wdLine, conteggio: =1
    Dopo
    Contatore = contro + 1
    Gruppi della conserva di ReDim (1 al contatore)
    Gruppi (contro) = TotalLines
     
    Per x = 1 a UBound (gruppi) - 1
        y = gruppi (x + 1) - gruppi (x)
        Selection.GoTo che cosa: =wdGoToLine, che: =wdGoToAbsolute, conteggio: =Groups (x)
        Unità di Selection.MoveDown: =wdLine, conteggio: =y, estendere: =wdExtend
        Selection.Copy
        Documents.Add
        Selection.Paste
        ActiveDocument.SaveAs FilePath & “\„ & nome di schedario (x) & “.doc„
        ActiveDocument.Close
    X seguente
     
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us