VBA sous WORD 2003

Résolu
cs_dchrist
Messages postés
39
Date d'inscription
vendredi 21 mars 2003
Statut
Membre
Dernière intervention
21 mai 2015
- 15 déc. 2006 à 16:23
cs_dchrist
Messages postés
39
Date d'inscription
vendredi 21 mars 2003
Statut
Membre
Dernière intervention
21 mai 2015
- 18 déc. 2006 à 13:42
Bonjour tout le monde,

J'ai un besoin d'aide assez urgent. J'ai un gros souci dans mon document WORD.
J'explique le sujet.

A partir d'un fichier texte, je dois créer dans un document WORD un organigramme sur plusieurs pages.
J'arrive bien à créer mes textbox sur ma première page.
J'arrive à créer les n pages dont j'ai besoin.

Par contre, je n'arrive pas à passer d'une page à une auter pour faire les couches successives de mon diagramme.

Voici mon code :

' mise en page de la première page du document
With ActiveDocument.PageSetup
    .LeftMargin = InchesToPoints(0.5)
    .RightMargin = InchesToPoints(0.5)
    .TopMargin = InchesToPoints(0.5)
   .BottomMargin = InchesToPoints(0.5)
    .Orientation = wdOrientLandscape
    PaperSize = wdPaperA3
End WithLi_TopMax 800: Li_LeftMax 570



' Affichage de la 1e partie de l'organigramme Li_Shape Li_Shape + 1: Li_top 385: Li_left = Li_left + 0
ActiveDocument.Shapes.AddTextbox msoTextOrientationHorizontal, Li_top, Li_left, 36, 20
With ActiveDocument.Shapes(Li_Shape).TextFrame
    .TextRange = tSiege.matricule.poste
    .Orientation = msoTextOrientationHorizontal
    .TextRange.Font.Size = 8
End With




' SAUT DE PAGE
With ActiveDocument.Range
    .Collapse Direction:=wdCollapseEnd
    .InsertBreak wdPageBreak
End With

Li_Shape = 0
' Affichage de chaque directionLi_Shape Li_Shape + 1: Li_top 585: Li_left = Li_left + 40
ActiveDocument.Shapes.AddTextbox msoTextOrientationHorizontal, Li_top, Li_left, 36, 20
With ActiveDocument.Shapes(Li_Shape).TextFrame
    .TextRange = tDir(1).matricule.poste
    .Orientation = msoTextOrientationHorizontal
    .TextRange.Font.Size = 8
End With




' Saut de page
With ActiveDocument.Range
    .Collapse Direction:=wdCollapseEnd
    .InsertBreak wdPageBreak
End With

Est-ce que quelqu'un aurait une idée ou pourrait me dire ce que j'aurai oublier, SVP ?

Merci par avance.

1 réponse

cs_dchrist
Messages postés
39
Date d'inscription
vendredi 21 mars 2003
Statut
Membre
Dernière intervention
21 mai 2015

18 déc. 2006 à 13:42
Bonjour à tous,

A force de chercher sans compter, on trouve toujours.
En effet, j'ai trouvé la commande qu'il me manquait.

Il suffit que j'utilise la commande "Selection.EndKey Unit:=wdStory " après le saut de page pour repositionner mon curseur sur la dernière page créée.

En attendant, je remercie tout de même toutes celles et tous ceux qui auraient pris un peu de temps pour trouver une solution à mon problème.

Bonne continuation à toutes et à tous.

PS : Bonnes fêtes de fin d'années
3