Pytanie : Rozszczepiony słowo dokument i oprócz zasadzony na etykietka

Cześć,
Im obecnie dlaczego słowo dokument w wieloskładnikowy kartoteka opierać się na etykietka przez the document.

The etykietka świat być badać jak

The program potrzebować/> sekcja w oddzielny dokument i oprócz ono using the filename w the tag.

If jakaś jeden mieć jakaś propozycja na the najlepszy sposób jeden zadawalać pozwalać know.

Ive to zasoby na the sieć ale jeden ostateczny yet.

Odpowiedź : Rozszczepiony słowo dokument i oprócz zasadzony na etykietka

The kod pytać być VBA kod który wykonywać co ty pytać dla. Ono potrzebować ratować jako macro w the dokument. The wydajność kartoteka być w the ten sam ścieżka the aktywny dokument, wskazany the doc imię wśrodku the etykietka.

Tutaj być dokąd I znajdować the zasoby ono:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=140

Mieć Nadzieję to pomagać!
szyć
(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:

Okręt podwodny SplitDocs ()
    Ciemnawy TotalLines      Długo
    Ciemnawy x               Długo
    Ciemnawy Grupa ()        Długo
    Ciemnawy Kontuar         Długo
    Ciemnawy y               Długo
    Ciemnawy FilePath        Sznurek
    Ciemnawy FileName ()      Sznurek
     
    FilePath = ActiveDocument.Path
    Selection.GoTo Co: =wdGoToLine, Che: =wdGoToAbsolute, Obliczenie: =1
    
        TotalLines = Selection.Range.Information (wdFirstCharacterLineNumber)
        Selection.MoveDown Jednostka: =wdLine, Obliczenie: =1
    Zapętlać Podczas Gdy TotalLines <> Selection.Range.Information (wdFirstCharacterLineNumber)
    Selection.GoTo Co: =wdGoToLine, Che: =wdGoToAbsolute, Obliczenie: =1
    Dla x = (1) TotalLines
        Selection.EndKey Jednostka: =wdLine, Przedłużyć: =wdExtend
        Ciemnawy intStartPos, intEndPos
        intStartPos = InStr (Selection.Text, "")
        Jeżeli intStartPos > (0) Wtedy
            Kontuar = Kontuar + (1)
            ReDim Prezerwa Grupa ((1))
            ReDim Prezerwa FileName ((1))
            Grupa (Kontuar) = x
            Selection.EndKey Jednostka: =wdLine, Przedłużyć: =wdExtend
            FileName (Kontuar) = W połowie (Selection.Text, intStartPos + 10, intEndPos - (intStartPos + 10))
            Selection.HomeKey Jednostka: =wdLine, Przedłużyć: =wdExtend
        Kończyć Jeżeli
        Selection.HomeKey Jednostka: =wdLine
        Selection.MoveDown Jednostka: =wdLine, Obliczenie: =1
    Następnie
    Kontuar = Kontuar + (1)
    ReDim Prezerwa Grupa ((1))
    Grupa (Kontuar) = TotalLines
     
    Dla x = (1) UBound (Grupa) - (1)
        y = Grupa (x + 1) - Grupa (x)
        Selection.GoTo Co: =wdGoToLine, Che: =wdGoToAbsolute, Obliczenie: =Groups (x)
        Selection.MoveDown Jednostka: =wdLine, Obliczenie: =y, Przedłużyć: =wdExtend
        Selection.Copy
        Documents.Add
        Selection.Paste
        ActiveDocument.SaveAs FilePath & "\" & FileName (x) & ".doc"
        ActiveDocument.Close
    Następny x
     
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us