J'utilise actuellement le format MS-Word 2007 (.docx).
J'ai un document Word avec les pages suivantes:
Page 1: Détails de l'événement
Page 2: Description de l'événement
Page 3: Règles et règlements
Page 4: Budget de l'événement
J'ai passé beaucoup de temps à rédiger ce document avec une bonne mise en forme. Le problème auquel je suis confronté ici est que je dois enregistrer chaque page du document séparément, puis les envoyer par courrier électronique sous forme de pièces jointes séparées.
Comment je fais ça?
Ce que j'ai essayé
Copier et coller des pages individuelles du document dans un nouveau fichier de document Word - mais la mise en forme n'est pas copiée correctement, même après avoir sélectionné l'option "Conserver la mise en forme source".
Comment enregistrer une page individuelle dans un document Word 2010 en tant que document séparé? - La réponse donnée pour cette question a également été essayée, mais le formatage des pages Je ne suis pas en train de supprimer devient très foiré [Formatage des pages qui ont des tableaux]?
Que devrais-je faire?
Votre meilleur pari utilise des sous-documents. Voir la page d’aide de Microsoft ici: http://office.Microsoft.com/en-us/Word-help/combine-or-split-subdocuments-HP005186930.aspx
Il parle de la création de sous-documents sous l'en-tête Fractionner un sous-document en deux sous-documents .
Ici, vous trouverez une question utile sur les réponses de Yahoo: http://answers.yahoo.com/question/index?qid=20070921100104AAU8Ebh
Si vous n'avez pas besoin de le modifier, vous pouvez exporter au format PDF (n'utilisez pas d'imprimante PDF, utilisez le plug-in optionnel de Word) et explose le PDF, en utilisant un outil tel que pdftk .
Cliquez sur "Enregistrer sous" Choisissez PDF, puis cliquez sur "Options" dans le même écran. Sous options, vous pouvez choisir les pages à sauvegarder!
Ce que vous pouvez faire, c'est tout d'abord copier et coller votre document pour en avoir deux copies. Sur une copie, ouvrez-le et allez sauvegarder - saisissez les détails de l'événement puis, sur votre document principal, allez à la dernière page, à la dernière ligne, le dernier mot de la phrase efface tout le texte de toutes les pages dont vous n'avez pas besoin en utilisant Backspace... même si cela prend plus de temps, votre formatage sera conservé.
répétez ce qui précède avec la description de l'événement, les règles et règlements et le budget de l'événement.
J'ai un document Word dont j'avais besoin pour enregistrer chaque page en tant que document individuel au format RTF. Vous pouvez modifier les variables d'un fichier .txt, docx, etc. selon vos besoins, mais n'oubliez pas de modifier le FileFormat=.
Notez que cela commence à la page actuelle sur laquelle vous êtes sur Application.Browser.Target = wdBrowsePage
et continue tout au long d’une boucle pour les 99 prochaines pages (100 au total).
Vous pouvez modifier la macro pour l'adapter à vos besoins.
La variable i
représente le numéro de fichier (DCX_1.Rtf) (DCX_2.Rtf) etc.
For i = 1 To 100
Application.Browser.Target = wdBrowsePage
ActiveDocument.Bookmarks("\page").Range.Copy
Documents.Add
Selection.Paste
ChangeFileOpenDirectory "C:\__BOOK\JUNK\"
ActiveDocument.SaveAs FileName:="DCX_" & i & ".rtf", FileFormat:=wdFormatRTF
ActiveDocument.Close
Application.Browser.Next
Next i