OVH Cloud OVH Cloud

insérer un sommaire automatique dans powerpoint

8 réponses
Avatar
lasoph
Bonjour,
Je cherche à créer une table des matières automatique dans Powerpoint avec
insertion automatique des numéros de pages à côté du titre de la diapositive
(cela se fait dans Word).
Merci de vos réponses.

8 réponses

Avatar
JièL Goubert
Bonjoir(c) lasoph

Bonjour,
Je cherche à créer une table des matières automatique dans Powerpoint avec
insertion automatique des numéros de pages à côté du titre de la diapositive
(cela se fait dans Word).


Dans Word oui, mais PPT ne sait pas le faire et on attend la macro de
Geo qui permettra de réaliser cette tâche... Ca c'est juste pour lui
mettre un peu plus la pression ;-))))))))

Merci de vos réponses.


--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr

Avatar
Jean-Pierre FORESTIER
Bonjour
Va sur le site suivant et tu auras les éléments de réponse à ton
questionnement
http://www.rdpslides.com/pptfaq/FAQ00274.htm

Voici une macro de Kris Lander corrigée par Steve Rinsberg qui permet
d'exporter le texte de chaque diapo et on peut faire la distinction entre
titre, sous-titre et autres texte. A toi de l'adapter à ton besoin.


Sub ExportText()

Dim oPres As Presentation
Dim oSlides As Slides
Dim oSld As Slide 'Slide Object
Dim oShp As Shape 'Shape Object
Dim iFile As Integer 'File handle for output
iFile = FreeFile 'Get a free file number
Dim PathSep As String
Dim FileNum As Integer

#If Mac Then
PathSep = ":"
#Else
PathSep = ""
#End If

Set oPres = ActivePresentation
Set oSlides = oPres.Slides

FileNum = FreeFile

'Open output file
' NOTE: errors here if file hasn't been saved
Open oPres.Path & PathSep & "AllText.TXT" For Output As FileNum

For Each oSld In oSlides 'Loop thru each slide
For Each oShp In oSld.Shapes 'Loop thru each shape on
slide

'Check to see if shape has a text frame and text
If oShp.HasTextFrame And oShp.TextFrame.HasText Then
If oShp.Type = msoPlaceholder Then
Select Case oShp.PlaceholderFormat.Type
Case Is = ppPlaceholderTitle, ppPlaceholderCenterTitle
Print #iFile, "Title:" & vbTab &
oShp.TextFrame.TextRange
Case Is = ppPlaceholderBody
Print #iFile, "Body:" & vbTab & oShp.TextFrame.TextRange
Case Is = ppPlaceholderSubtitle
Print #iFile, "SubTitle:" & vbTab &
oShp.TextFrame.TextRange
Case Else
Print #iFile, "Other Placeholder:" & vbTab &
oShp.TextFrame.TextRange
End Select
Else
Print #iFile, vbTab & oShp.TextFrame.TextRange
End If ' msoPlaceholder
End If ' Has text frame/Has text

Next oShp
Next oSld

'Close output file
Close #iFile

End Sub

Bonne soirée


--
Jean-Pierre FORESTIER Microsoft MVP PowerPoint
Auteur de PowerPoint 2002 chez Micro Application
"lasoph" a écrit dans le message news:

Bonjour,
Je cherche à créer une table des matières automatique dans Powerpoint avec
insertion automatique des numéros de pages à côté du titre de la
diapositive

(cela se fait dans Word).
Merci de vos réponses.



Avatar
Jean-Pierre FORESTIER
A toi et Geo : voir la réponse fournie en réponse à la question.

--
Jean-Pierre FORESTIER Microsoft MVP PowerPoint
Auteur de PowerPoint 2002 chez Micro Application
"JièL Goubert" a écrit dans le
message news:
Bonjoir(c) lasoph

Bonjour,
Je cherche à créer une table des matières automatique dans Powerpoint
avec


insertion automatique des numéros de pages à côté du titre de la
diapositive


(cela se fait dans Word).


Dans Word oui, mais PPT ne sait pas le faire et on attend la macro de
Geo qui permettra de réaliser cette tâche... Ca c'est juste pour lui
mettre un peu plus la pression ;-))))))))

Merci de vos réponses.


--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr



Avatar
JièL Goubert
Bonjoir(c) Jean-Pierre FORESTIER

j'ai vu, mais elle est TRES loin de répondre à la question qui etait
"créer une table des matières automatique dans Powerpoint avec insertion
automatique des numéros de pages".
Elle permet d'exporter en texte brut les textes, pas du tout de mettre
le n° de la diapo, ni de l'ajouter AUTOMATIQUEMENT dans PPT, et encore
moins de générer la TDM !

donc je confirme, Geo à du boulot NON superfétatoire ;-)))

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr

A toi et Geo : voir la réponse fournie en réponse à la question.

--
Jean-Pierre FORESTIER Microsoft MVP PowerPoint
Auteur de PowerPoint 2002 chez Micro Application
"JièL Goubert" a écrit dans le
message news:

Bonjoir(c) lasoph


Bonjour,
Je cherche à créer une table des matières automatique dans Powerpoint



avec

insertion automatique des numéros de pages à côté du titre de la



diapositive

(cela se fait dans Word).


Dans Word oui, mais PPT ne sait pas le faire et on attend la macro de
Geo qui permettra de réaliser cette tâche... Ca c'est juste pour lui
mettre un peu plus la pression ;-))))))))


Merci de vos réponses.


--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr








Avatar
Circé
Bonsoir,


JièL Goubert avait énoncé :

Elle permet d'exporter en texte brut les textes, pas du tout de
mettre le n° de la diapo, ni de l'ajouter AUTOMATIQUEMENT dans PPT,
et encore moins de générer la TDM !

donc je confirme, Geo à du boulot NON superfétatoire ;-)))


Ouf ! Oui, heureusement, car Geo aurait été déçu... ;-))

Donc, en attendant le chef d'oeuvre de Geo... ;-)) voici ma solution
qui, si elle paraît tirée par les cheveux, est quand même plus pratique
que de faire la tm à la main.

1) Export vers Word (plan uniquement) (Menu Fichier, envoyer vers Word)
2) Dans Word, modifier le style Titre 1 en ajoutant un saut de page
avant chaque Titre 1 (Format Paragraphe du style Titre 1)
3) Insérer la table des matières automatique (Menu Insertion,
référence, tables et index)
4) Déchamper : sélectionner la tdm puis Ctrl+Maj+F9
5) Copier la tdm, puis la coller dans PPT (collage spécial, texte mis
en forme)
6) Mettre une tabulation valide dans ppt pour l'alignement des numéros
de page.

Evidemment, il n'y a aucun lien... mais je suis certaine que Geo va
remédier à ce manque !!! :D

Circé
http://faqword.free.fr

Avatar
Geo
Bonjour à tous


Evidemment, il n'y a aucun lien... mais je suis certaine que Geo va
remédier à ce manque !!! :D


attendez au moins les vacances :-)

Je trouve les solutions partielles et/ou provisoires, très bien :-D

--

A+

Avatar
JièL Goubert
Bonjoir(c) Circé

6) Mettre une tabulation valide dans ppt pour l'alignement des numéros
de page.


je peux te demander une précision sure ce que tu appelles un tabulation
valide ?

Evidemment, il n'y a aucun lien... mais je suis certaine que Geo va
remédier à ce manque !!! :D


Pourvu qu'il soit bientôt en vacances ;-)))))

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr

Avatar
Circé
Bonjour,

Je voulais parler d'un taquet de tabulation.
Dans un sommaire Word, il y a une tab entre chaque titre et le numéro
de la page.
Dans PowerPoint, il faut poser un taquet de tabulation pour que soient
alignés les numéros de page.

Circé

JièL Goubert vient de nous annoncer :
Bonjoir(c) Circé

6) Mettre une tabulation valide dans ppt pour l'alignement des
numéros de page.


je peux te demander une précision sure ce que tu appelles un
tabulation valide ?

Evidemment, il n'y a aucun lien... mais je suis certaine que Geo va
remédier à ce manque !!! :D


Pourvu qu'il soit bientôt en vacances ;-)))))