Discussion :

[Anancites]

Bonjour,

Je travaille actuellement sur un projet de macro qui s'active d'Excel.
Une première partie de cette macro consiste à créer un tableau dans Word à partir des données Excel. J'utilise notamment l'objet Tables après avoir défini app_word = CreateObject("Word.Application"). Toute cette partie fonctionne bien.

Une fois mon tableau crée, j'ai voulu créer d'autres pages avant le tableau et insérer du texte avec de la mise en forme, un sommaire etc. J'ai commencé par programmer cette partie directement sur Word, sans passer par Excel. J'ai donc utilisé l'objet Selection pour naviguer dans mon Word. Cette partie fonctionne bien sur Word mais pas quand je la translate sur mon programme Excel.

D'après ce que j'ai compris sur d'autres postes, ma macro VBA Excel comprend "Selection" comme une selection Excel et non Word. Cependant je n'arrive pas à trouver une fonction équivalente compatible, avec Range par exemple, pour :
- insérer des nouvelles pages ;
- passer d'une page à une autre ;
- saisir un texte avec une certaine mise en forme.

Je vous remercie par avance

[Invité]

Bonjour,

Il vous faut créer une variable de type Word.Selection (ou Object) et l'instancier avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
   Set MaSelection = app_word.Selection

[Anancites]

Bonjour Eric,

Merci pour votre réponse qui m'a permis de résoudre une partie du problème : l'insertion de page et une partie de la mise en forme.
J'ai identifié deux actions que je n'arrive pas à réaliser :

1. Centrer le texte d'une zone de texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim txtb As Object
Set txtb = doc.Shapes.AddTextbox(msoTextOrientationHorizontal, 60, 300, 400, 10)
txtb.TextFrame.TextRange = "TITRE"
'La ligne suivantz ne fonctionne pas :
txtb.TextFrame.TextRange.ParagraphFormat.Alignment = wdAlignParagraphCenter

2. Passer d'une page à une autre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
app_word.Selection.Goto what:=wdGoToPage, which:=wdGoToFirst, Count:=2

[Invité]

Word est-il référencé dans Excel ou êtes vous en late binding pour lancer votre session Word ? Dans ce dernier cas les membres des collections word (Wd....) ne fonctionnent pas. Il vous faut utiliser les valeurs numériques correspondant à ces codes (consulter l'aide word pour connaître les valeurs équivalentes).