Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Word > VBA Word
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 15/05/2007, 14h53   #1
Membre actif
 
Inscription : août 2006
Messages : 312
Détails du profil
Informations forums :
Inscription : août 2006
Messages : 312
Points : 157
Points : 157
Par défaut [VBA-word] Table des matières par macro

bonjour,
je suis en train de travailler sur une macro sous word qui en fonction de quelques paramètres me crée un fichier word avec tout un tas d'informations diverses et variées.
Seulement j'aimerai bien pouvoir créer automatiquement (et le mettre dans ma macro) une table des matières.
JE n'arrive pas a trouver l'objet adéquat. J'ai fait des recherches sur le forum et sur le net, et les seules réponses trouvées disaient de le faire en passant par insertion, index etc... et pas par macro, or je veux que ça soit explicitement fait par macro.

si vous avez une idée...
EvaristeGaloisBis est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 15/05/2007, 15h43   #2
Responsable Word

 
Avatar de Heureux-oli
 
Homme Olivier Lebeau
Contrôleur d'industrie
Inscription : février 2006
Messages : 17 352
Détails du profil
Informations personnelles :
Nom : Homme Olivier Lebeau
Âge : 47
Localisation : Belgique

Informations professionnelles :
Activité : Contrôleur d'industrie
Secteur : Aéronautique - Marine - Espace - Armement

Informations forums :
Inscription : février 2006
Messages : 17 352
Points : 29 265
Points : 29 265
Oui, j'ai une idée, la table des matières se fait au travers d'un champ.

Code :
1
2
3
4
5
6
7
8
9
10
 
    With ActiveDocument
        .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
            True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
            LowerHeadingLevel:=3, IncludePageNumbers:=True, AddedStyles:="", _
            UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _
            True
        .TablesOfContents(1).TabLeader = wdTabLeaderDots
        .TablesOfContents.Format = wdIndexIndent
    End With
__________________
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA

Mes articles


Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
Heureux-oli est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 15/05/2007, 16h02   #3
Membre actif
 
Inscription : août 2006
Messages : 312
Détails du profil
Informations forums :
Inscription : août 2006
Messages : 312
Points : 157
Points : 157
je te remercie pour l'idée et l'information.

ça fonctionne très bien...
EvaristeGaloisBis est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 16h16.


 
 
 
 
Partenaires

Hébergement Web