Frage : Aufgeteiltes Wortdokument und -abwehr basiert auf Umbauten

Hallo, das
Im z.Z. erforschend, wie man ein Wortdokument in die mehrfachen Akten aufspaltet, die auf Umbauten durch die document.

The Umbauwelt basieren, ist etwas wie

The Programm würde jeden Abschnitt in ein unterschiedliches Dokument aufspalten müssen und außer ihm using den Dateinamen im tag.

wenn überhaupt hat man alle mögliche Vorschläge auf der besten Weise, dies zu tun gefallen mich know.

Ive einige Betriebsmittel auf dem Netz aber nichts finden lassen endgültiges yet.

Antwort : Aufgeteiltes Wortdokument und -abwehr basiert auf Umbauten

Der folgende Code ist ein VBA Code, der durchführen, was Sie um baten. Er muss als Makro im gespeichert zu werden Dokument gespeichert werden. Die Ausgabedatei ist im gleichen Weg wie das aktive Dokument, angezeigt durch den Doc.-Namen innerhalb des Umbaus.

Ist hier, wo ich das Hilfsmittel finde, um es zu tun:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=140

Hoffen, dass dieses hilft!
nähen
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:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

Sub SplitDocs ()
    TotalLines als      lang verdunkeln
    X als               lang verdunkeln
    Gruppen () als        lang verdunkeln
    Als lang         entgegengesetzt verdunkeln
    Y als               lang verdunkeln
    FilePath als        Schnur verdunkeln
    Dateinamen () als      Schnur verdunkeln
     
    FilePath = ActiveDocument.Path
    Selection.GoTo was: =wdGoToLine, das: =wdGoToAbsolute, Zählimpuls: =1
    Tun
        TotalLines = Selection.Range.Information (wdFirstCharacterLineNumber)
        Selection.MoveDown Maßeinheit: =wdLine, Zählimpuls: =1
    Schlingen, während TotalLines <> Selection.Range.Information (wdFirstCharacterLineNumber)
    Selection.GoTo was: =wdGoToLine, das: =wdGoToAbsolute, Zählimpuls: =1
    Für x = 1 zu TotalLines
        Selection.EndKey Maßeinheit: =wdLine, verlängern: =wdExtend
        Schwache intStartPos, intEndPos
        intStartPos = InStr (Selection.Text, "")
        Wenn intStartPos > 0 dann
            Kostenzähler = Gegen+ 1
            ReDim Konserve-Gruppen (1 zum Kostenzähler)
            ReDim Konserve-Dateiname (1 zum Kostenzähler)
            Gruppen (Gegen) = x
            Selection.EndKey Maßeinheit: =wdLine, verlängern: =wdExtend
            Dateiname (Gegen) = mittler (Selection.Text, intStartPos + 10, intEndPos - (intStartPos + 10))
            Selection.HomeKey Maßeinheit: =wdLine, verlängern: =wdExtend
        Beenden wenn
        Selection.HomeKey Maßeinheit: =wdLine
        Selection.MoveDown Maßeinheit: =wdLine, Zählimpuls: =1
    Zunächst
    Kostenzähler = Gegen+ 1
    ReDim Konserve-Gruppen (1 zum Kostenzähler)
    Gruppen (Gegen) = TotalLines
     
    Für x = 1 zu UBound (Gruppen) - 1
        y = Gruppen (x + 1) - Gruppen (x)
        Selection.GoTo was: =wdGoToLine, das: =wdGoToAbsolute, Zählimpuls: =Groups (x)
        Selection.MoveDown Maßeinheit: =wdLine, Zählimpuls: =y, verlängern: =wdExtend
        Selection.Copy
        Documents.Add
        Selection.Paste
        ActiveDocument.SaveAs FilePath u. „\“ u. Dateiname (x) u. „.doc“
        ActiveDocument.Close
    Folgendes x
     
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us