Question : Document fendu et économies de mot basés sur des étiquettes

Bonjour, le
Im recherchant actuellement comment couper un document de mot en dossiers multiples basés sur des étiquettes par le monde d'étiquette de document.

The soit quelque chose comme le

The devrait couper chaque section en document séparé et sauf lui using le nom de fichier dans le tag.

le cas échéant on a toutes les suggestions sur le meilleur chemin de faire ceci satisfont me laissent know.

Ive fonder quelques ressources sur le Web mais rien yet.
class= de

Réponse : Document fendu et économies de mot basés sur des étiquettes

Le code ci-dessous est un code de VBA qui exécuterait ce que vous avez demandé. Il devra être sauvé comme macro dans le document à sauver. Le dossier de rendement sera dans le même chemin que le document actif, indiqué par le nom de Doc. à l'intérieur de l'étiquette.

Voici où je trouve la ressource pour la faire :
http://www.vbaexpress.com/kb/getarticle.php?kb_id=140

Espérer que ceci aide !
coudre

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 :

Substrater SplitDocs () Obscurcir TotalLines en tant que longtemps Obscurcir x en tant que longtemps Obscurcir les groupes () en tant que longtemps Obscurcir contre en tant que longtemps Obscurcir y en tant que longtemps Obscurcir FilePath comme corde Obscurcir le nom de fichier () comme corde FilePath = ActiveDocument.Path Selection.GoTo ce qui : =wdGoToLine, qui : =wdGoToAbsolute, compte : =1 Faire TotalLines = Selection.Range.Information (wdFirstCharacterLineNumber) Unité de Selection.MoveDown : =wdLine, compte : =1 Faire une boucle tandis que TotalLines <> Selection.Range.Information (wdFirstCharacterLineNumber) Selection.GoTo ce qui : =wdGoToLine, qui : =wdGoToAbsolute, compte : =1 Pour x = 1 à TotalLines Unité de Selection.EndKey : Le =wdLine, se prolongent : =wdExtend Faibles intStartPos, intEndPos intStartPos = InStr (Selection.Text, "") S'intStartPos > 0 puis Compteur = contre- + 1 Groupes de conserve de ReDim (1 au compteur) Nom de fichier de conserve de ReDim (1 au compteur) Groupes (contre-) = x Unité de Selection.EndKey : Le =wdLine, se prolongent : =wdExtend Nom de fichier (contre-) = mi (Selection.Text, intStartPos + 10, intEndPos - (intStartPos + 10)) Unité de Selection.HomeKey : Le =wdLine, se prolongent : =wdExtend Finir si Unité de Selection.HomeKey : =wdLine Unité de Selection.MoveDown : =wdLine, compte : =1 Après Compteur = contre- + 1 Groupes de conserve de ReDim (1 au compteur) Groupes (contre-) = TotalLines Pour x = 1 à UBound (groupes) - 1 y = groupes (x + 1) - groupes (x) Selection.GoTo ce qui : =wdGoToLine, qui : =wdGoToAbsolute, compte : =Groups (x) Unité de Selection.MoveDown : =wdLine, compte : =y, prolonger : =wdExtend Selection.Copy Documents.Add Selection.Paste ActiveDocument.SaveAs FilePath et « \ » et nom de fichier (x) et « .doc » ActiveDocument.Close Prochain x Sous-marin d'extrémité