Enregistrer les pages d'un document comme des documents séparés

J'ai un document Word dont j'avais besoin d'enregistrer chaque page comme un document individuel en format texte enrichi. Vous pouvez modifier les variables pour un fichier .txt, un fichier docx, etc., selon vos besoins, mais n'oubliez pas de modifier la variable FileFormat=.
Notez que cela commence à la page actuelle sur laquelle vous vous trouvez. Application.Browser.Target = wdBrowsePage et continue dans une boucle pour les 99 pages suivantes (100 au total).

Vous pouvez modifier la macro pour l'adapter à vos besoins.

La variable i représente le numéro du 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

Cliquez sur "Enregistrer sous" Choisissez PDF, puis cliquez sur "Options" dans le même écran. Dans les options, vous pouvez choisir les pages à enregistrer !

Ce que vous pouvez faire, c'est d'abord copier et coller votre document pour avoir deux copies. Sur l'une des copies, ouvrez-la et allez dans "Enregistrer sous" et tapez les détails de l'événement. Ensuite, sur votre document principal, allez à la dernière page, à la dernière ligne, au dernier mot de la phrase et effacez tout le texte de toutes les pages dont vous n'avez pas besoin en utilisant la fonction Backspace ... même si cela prend plus de temps, vous conserverez votre formatage.

répétez ce qui précède avec le reste de la description de l'événement, les règles et règlements et le budget de l'événement.

Word 10 vous permet en fait de copier et de coller ce que vous voulez d'un document Word tout en conservant le même format que le document d'origine. Après avoir copié le texte pertinent du document source, ouvrez un nouveau document Word, faites un clic droit et, dans les options proposées, cliquez sur "Conserver le formatage source".