Exportation en PDF de chaque page d'une section

Question

Bonjour

Soit x pages dans une section ONENOTE existe-t-il une routine type macro permettant d'exporter chacune des pages en pdf en générant le nom par le titre de la page ?

Aujourd'hui je sélectionne l'ensemble des pages et par FICHIER / EXPORTER / PAGE / PDF je génère un seul PDF reprenant l'ensemble des pages. J'utilise ensuite un outil de découpe

Scinder PDF - scindez votre document PDF en ligne (pdf2go.com)

En collant manuellement le titre de chaque page. Ce qui est un peu fastidieux, y a-t-il mieux ?

Je peux faire l’exportation page par page, mais c'est encore plus long. En fait, il me faudrait une boucle type VBA ou une astuce qui réitère automatiquement l'opération sur chacune des pages.

Merci d'avance

Answer 1

Merci pour vos réponses

Bien noté que le robot du forum traduit le langage VBA en "gloubi-boulga indigeste"

Je vais essayer d'avancer en posant ma question à ChatGPT même si le programme proposé plante , on doit pouvoir avoir une piste à retravailler

Answer 2

Désolé pour cela, le système lui-même traduit automatiquement et je n’ai pas la possibilité d’arrêter la traduction de mes réponses.

Pour implémenter le code dans un module Excel, vous pouvez suivre ces étapes :

1. Ouvrez le classeur Excel qui contient la section OneNote que vous souhaitez exporter.
2. Cliquez sur l’onglet « Développeur ».
3. Dans le groupe « Visual Basic », cliquez sur le bouton « Insérer ».
4. Dans la boîte de dialogue « Module », tapez le code suivant:

Sub ExportOneNoteSectionToPDF()

'Déclarer des variables
Dim OneNoteSection en tant qu’objet
S’assombrir OneNotePage en tant qu’objet
Dim PDFFileName As String

'Obtenir la section OneNote
Définir OneNoteSection = OneNote.GetSection(« Nom de la section »)

'Obtenir la première page de la section
Définir OneNotePage = OneNoteSection.GetPage(1)

'Définir le nom du fichier PDF
PDFFileName = « SectionName.pdf »

'Exporter la page au format PDF
OneNotePage.ExportToPDF PDFFileName

Fin de la sous-section

5. Enregistrez le classeur.
6. Cliquez sur le bouton « Exécuter » dans Visual Basic Editor.

Le code exportera la première page de la section OneNote vers un fichier PDF nommé « SectionName.pdf ». Vous pouvez modifier le nom du fichier PDF en modifiant la valeur de la variable 'PDFFileName'. Vous pouvez également exporter plusieurs pages vers un seul fichier PDF en parcourant en boucle les pages de la section et en appelant la méthode « ExportToPDF » pour chaque page.

Voici un exemple d’exportation de toutes les pages d’une section vers un seul fichier PDF :

Sub ExportAllPagesInSectionToPDF()

'Déclarer des variables
Dim OneNoteSection en tant qu’objet
S’assombrir OneNotePage en tant qu’objet
Dim PDFFileName As String

'Obtenir la section OneNote
Définir OneNoteSection = OneNote.GetSection(« Nom de la section »)

'Définir le nom du fichier PDF
PDFFileName = « SectionName.pdf »

'Ouvrez le fichier PDF
Set PDFFile = CreateObject(« ADODB. Flux »)
PDFFile.Open PDFFileName, 2, 3

'Boucler les pages de la section
Pour chaque OneNotePage dans OneNoteSection.Pages

'Exporter la page au format PDF
OneNotePage.ExportToPDF PDFFile

Prochain

'Fermer le fichier PDF
PDFFile.Fermer

Fin de la sous-section

Si vous avez d’autres questions ou avez besoin d’aide pour quoi que ce soit, n’hésitez pas à me le faire savoir. Il me fera plaisir de vous aider.

Sinceres salutations Sneha

Redonnez à la communauté. Aidez la personne suivante avec ce problème en indiquant si cette réponse a résolu votre problème. Cliquez sur Oui ou Non en bas.

Cette réponse a été traduite automatiquement. Par conséquent, il peut y avoir des erreurs grammaticales ou des expressions étranges.

Answer 3

Ne perds pas de vue que le message a été traduit par un robot et qu'il transforme ça (comme le reste) en gloubi-boulga indigeste. "End Sub" est manifestement traduit en "Fin de la sous-section"... 🙄

Answer 4

Merci pour votre réponse

Où faut-il implémenter ce code

               dans un module excel ?

Le code est il complet ?

Je ne vois pas de End Sub

Answer 5

Salut

Je suis Sneha et je serais heureux de vous aider avec votre question. Veuillez nous excuser pour la gêne occasionnée.

Voici une routine de macro que vous pouvez utiliser :

Sub ExportPagesToPDF()

'Déclarer des variables
Dim section As OneNote.Section
Dim page Comme OneNote.Page
Dim pdfFile As String
Dim pageTitle As String

'Obtenir la section à exporter
Set section = Application.CurrentNotebook.GetSection(« Nom de la section »)

'Boucler chaque page de la section
Pour chaque page Dans la section. Pages

'Obtenir le titre de la page
pageTitre = page. Titre

'Créer le nom du fichier PDF
pdfFile = « Page " & pageTitle & « .pdf »

'Exporter la page dans un fichier PDF
page. ExportToPDF(pdfFile)

Page suivante

Fin de la sous-section

Pour utiliser cette macro, sélectionnez simplement la section que vous souhaitez exporter dans OneNote, puis exécutez la macro. La macro exportera chaque page de la section vers un fichier PDF, avec le nom de fichier généré par le titre de la page.

Voici quelques conseils supplémentaires pour l’utilisation de cette macro :

* Vous pouvez utiliser la variable 'SectionName' pour spécifier le nom de la section que vous souhaitez exporter. Si vous ne spécifiez pas de valeur pour cette variable, la macro utilisera la section active. * Vous pouvez utiliser la variable 'PageTitle' pour spécifier le titre de la page que vous souhaitez exporter. Si vous ne spécifiez pas de valeur pour cette variable, la macro exportera toutes les pages de la section. * Vous pouvez utiliser la variable 'pdfFile' pour spécifier le nom du fichier PDF que vous souhaitez créer. Si vous ne spécifiez pas de valeur pour cette variable, la macro crée un fichier PDF avec le nom de la page que vous exportez.

Si vous avez d’autres questions ou avez besoin d’aide pour quoi que ce soit, n’hésitez pas à me le faire savoir. Il me fera plaisir de vous aider.

Sinceres salutations Sneha

Redonnez à la communauté. Aidez la personne suivante avec ce problème en indiquant si cette réponse a résolu votre problème. Cliquez sur Oui ou Non en bas.

Cette réponse a été traduite automatiquement. Par conséquent, il peut y avoir des erreurs grammaticales ou des expressions étranges.