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 23/08/2007, 19h42   #1
Membre du Club
 
Avatar de paradeofphp
 
Inscription : décembre 2005
Messages : 312
Détails du profil
Informations forums :
Inscription : décembre 2005
Messages : 312
Points : 58
Points : 58
Bonjour tout le monde,
j'ai 2 questions à vous poser :

1 - comment je peux centrer un tableau ?
2 - je veux créer une en-tête qui contiendra les élements suivant :
un logo à gauche, un texte au centre et la date du jour à droite.

Logo MonTexte Date.

Merci à vous tous et bon courage

Bonjour tout le monde
Personne n'a de réponses à mes 2 questions ?
Allez les amis, j'attends toujours pleaaaase
paradeofphp est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 26/08/2007, 10h13   #2
Inactif
 
Avatar de ouskel'n'or
 
Inscription : février 2005
Messages : 12 466
Détails du profil
Informations forums :
Inscription : février 2005
Messages : 12 466
Points : 11 930
Points : 11 930
Centrer un tableau -> Enregistré en faisant et nettoyé du code inutile :
1 - On se place en début de document (hors de tout tableau)
2 - On se place sur le Tableau NoTab
3 - On sélectionne le tableau
4 - On le centre sur la page
Code :
1
2
3
4
5
6
    Selection.HomeKey Unit:=wdStory
    Selection.GoTo What:=wdGoToTable, Which:=wdGoToFirst, Count:=1, Name:=""
    Selection.Tables(1).Select
    With Selection.Rows
        .Alignment = wdAlignRowCenter
    End With
Pour ton entête, enregistré en faisant puis nettoyé :
(Pour lancer cette procédure, ton en-tête doit être fermée)
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
    'ouverture de l'en-tête
    ActiveWindow.ActivePane.View.SeekView =wdSeekCurrentPageHeader
 
    'insertion du logo
    Selection.InlineShapes.AddPicture FileName:="C:\Le chat.gif"
 
    'insertion d'une tabulation puis du texte puis d'une tab pour aller à la date
    Selection.TypeText Text:=vbTab & "blabla" & vbTab
 
     'insertion de la date du jour
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldDate
 
    'fermeture de l'en-tête
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Il te reste la rude tâche de modifier "blabla" et de changer chemin et nom du logo

NB - Pense à utiliser l'enregistreur de macros. Après tu proposes ton code et on fait le ménage
ouskel'n'or est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 04h58.


 
 
 
 
Partenaires

Hébergement Web