Cuestión : Documento partido y reserva de la palabra basados en etiquetas

Hola, el
Im que investiga actual cómo partir un documento de la palabra en los archivos múltiples basados en etiquetas a través del mundo de la etiqueta de document.

The sea algo como

The necesitaría partir cada sección en un documento separado y excepto él usar el nombre de fichero en el tag.

eventualmente uno tiene cualquier sugerencia en la mejor manera de hacer esto satisface déjame know.

Ive encontrar algunos recursos en la tela pero nada yet.
 class= del

Respuesta : Documento partido y reserva de la palabra basados en etiquetas

El código abajo es un código de VBA que se realizaría lo que usted preguntó. Necesitará ser ahorrado como macro en el documento que se ahorrará. El archivo de salida estará en la misma trayectoria que el documento activo, indicado por el nombre del doc. dentro de la etiqueta.

Aquí es donde encuentro el recurso para hacerlo:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=140

¡Esperar que esto ayude!
coser
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 ()
    Amortiguar TotalLines      como de largo
    Amortiguar x               como de largo
    Amortiguar a grupos ()        como de largo
    Amortiguar al revés         como de largo
    Amortiguar y               como de largo
    Amortiguar FilePath        como secuencia
    Amortiguar el nombre de fichero ()      como secuencia
     
    FilePath = ActiveDocument.Path
    Selection.GoTo qué: =wdGoToLine, que: =wdGoToAbsolute, cuenta: =1
    Hacer
        TotalLines = Selection.Range.Information (wdFirstCharacterLineNumber)
        Unidad de Selection.MoveDown: =wdLine, cuenta: =1
    Colocar mientras que TotalLines <> Selection.Range.Information (wdFirstCharacterLineNumber)
    Selection.GoTo qué: =wdGoToLine, que: =wdGoToAbsolute, cuenta: =1
    Para x = 1 a TotalLines
        Unidad de Selection.EndKey: El =wdLine, extiende: =wdExtend
        intStartPos déviles, intEndPos
        intStartPos = InStr (Selection.Text, "")
        Si intStartPos > 0 entonces
            Contador = + 1 contrario
            Grupos del coto de ReDim (1 al contador)
            Nombre de fichero del coto de ReDim (1 al contador)
            Grupos (contrarios) = x
            Unidad de Selection.EndKey: El =wdLine, extiende: =wdExtend
            Nombre de fichero (contrario) = mediados de (Selection.Text, intStartPos + 10, intEndPos - (intStartPos + 10))
            Unidad de Selection.HomeKey: El =wdLine, extiende: =wdExtend
        Terminar si
        Unidad de Selection.HomeKey: =wdLine
        Unidad de Selection.MoveDown: =wdLine, cuenta: =1
    Después
    Contador = + 1 contrario
    Grupos del coto de ReDim (1 al contador)
    Grupos (contrarios) = TotalLines
     
    Para x = 1 a UBound (grupos) - 1
        y = grupos (x + 1) - grupos (x)
        Selection.GoTo qué: =wdGoToLine, que: =wdGoToAbsolute, cuenta: =Groups (x)
        Unidad de Selection.MoveDown: =wdLine, cuenta: =y, extender: =wdExtend
        Selection.Copy
        Documents.Add
        Selection.Paste
        ActiveDocument.SaveAs FilePath y “\” y nombre de fichero (x) y “.doc”
        ActiveDocument.Close
    X siguiente
     
Submarino del extremo
Otras soluciones  
 
programming4us programming4us