OVH Cloud OVH Cloud

MAJ TOC + styles

5 réponses
Avatar
arkangel
Bonjour,
J'ai un bout de programme qui met ma table des matière à jour.
J'aimerais qu'il lui donne une police précise. exemple ma table des
matiere en timenew roman police = 12
l j'ai pas trouver comment faire. Quelqu'un pourrait m'aider
Merci d'avance
Voilà mon bout de code

Sub majtoc()
Dim myTOC As TableOfContents
For Each myTOC In ActiveDocument.TablesOfContents

myTOC.Update

'Call AdobePDFMaker

Next myTOC
ActiveDocument.Save

End Sub

--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com

5 réponses

Avatar
Jinroh
Si tu as réussi à faire une macro enregistrée pour mettre
à jour tes tables, de la même manière, pendant que tu
l'enregistres tu changes la police des styles TM1, TM2, ...

et puis c'et tout... je vois pas ce qui te pose problème ?
-----Message d'origine-----
Bonjour,
J'ai un bout de programme qui met ma table des matière à
jour.

J'aimerais qu'il lui donne une police précise. exemple ma
table des

matiere en timenew roman police = 12
l j'ai pas trouver comment faire. Quelqu'un pourrait
m'aider

Merci d'avance
Voilà mon bout de code

Sub majtoc()
Dim myTOC As TableOfContents
For Each myTOC In ActiveDocument.TablesOfContents

myTOC.Update

'Call AdobePDFMaker

Next myTOC
ActiveDocument.Save

End Sub

--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com

.



Avatar
Martinela
Bonjour,
Tu peux modifier les styles de ta table des matières par Format/style et
mise en forme, et modifier les styles TM1, TM2 etc. afin de leur attribuer
la police et la taille de ton choix.
Martinela
"arkangel" a écrit dans le message de
news:
Bonjour,
J'ai un bout de programme qui met ma table des matière à jour.
J'aimerais qu'il lui donne une police précise. exemple ma table des
matiere en timenew roman police = 12
l j'ai pas trouver comment faire. Quelqu'un pourrait m'aider
Merci d'avance
Voilà mon bout de code

Sub majtoc()
Dim myTOC As TableOfContents
For Each myTOC In ActiveDocument.TablesOfContents

myTOC.Update

'Call AdobePDFMaker

Next myTOC
ActiveDocument.Save

End Sub

--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com



Avatar
arkangel
arkangel a émis l'idée suivante :
Bonjour,
J'ai un bout de programme qui met ma table des matière à jour. J'aimerais
qu'il lui donne une police précise. exemple ma table des matiere en timenew
roman police = 12
l j'ai pas trouver comment faire. Quelqu'un pourrait m'aider
Merci d'avance
Voilà mon bout de code

Sub majtoc()
Dim myTOC As TableOfContents
For Each myTOC In ActiveDocument.TablesOfContents

myTOC.Update

'Call AdobePDFMaker

Next myTOC
ActiveDocument.Save

End Sub


merci de vos réponses mais je souhaites seulement changer par la macro
la police de la table des matieres pas le reste

--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com

Avatar
Anacoluthe
Bonjour !

'arkangel' nous a écrit ...
merci de vos réponses mais je souhaites seulement changer par la macro
la police de la table des matieres pas le reste


La réponse vous a clairement été donnée deux fois !!!
Pour changer *les* polices (il y en a plusieurs) de la table
des matières vous devez modifier les styles qu'elle utilise
c’est-à-dire par défaut les styles TM 1, TM 2 ...

ActiveDocument.Styles("TM 1").Font.Name = "Arial"

Anacoluthe
« Le style est une façon très simple
de dire des choses compliquées. »
- Jean COCTEAU

Avatar
arkangel
Anacoluthe a exprimé avec précision :
Bonjour !

'arkangel' nous a écrit ...
merci de vos réponses mais je souhaites seulement changer par la macro la
police de la table des matieres pas le reste


La réponse vous a clairement été donnée deux fois !!!
Pour changer *les* polices (il y en a plusieurs) de la table
des matières vous devez modifier les styles qu'elle utilise
c?est-à-dire par défaut les styles TM 1, TM 2 ...

ActiveDocument.Styles("TM 1").Font.Name = "Arial"

Anacoluthe
« Le style est une façon très simple
de dire des choses compliquées. »
- Jean COCTEAU


Merci

--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com