OLE Automation : pas de menu au lancement de Word

[PaulR]

Il m'arrive fréquemment de créer des documents word via mes applications Delphi, à l'aide de CreateOleObject, puis Documents.Add().

Tout baigne sauf que, sur certaines machines, parfois, Word s'affiche avec le bon document, mais je n'ai aucun menu !

Lorsque je ferme cette instance de Word et que je relance le même point de mon appli (sans en sortir), il arrive que les menus soient là (et il arrive aussi qu'ils ne viennent pas du tout, ce qui me fiche en rogne )
A noter qu'il semble que si, depuis le démarrage de la machine, j'ai déjà ouvert "à la main" Word, le problème ne se pose pas...

Une idée ?
Et comment faire, dans Word, pour faire réapparaître ces menus ?

Merci à tous déjà...

Paul

[ouskel'n'or]

Suffit de connaître les barres de menus que tu veux afficher. Plusieurs éléments qui devraient t'orienter

Code :

1
2
3
4
5
MsgBox Application.CommandBars.Count '... j'en ai 127
'Pour avoir la liste sur un doc word
For Each LaBarre In Application.CommandBars
    Selection.TypeText Text:=LaBarre.Name & vbCr
Next

Une idée pour ton pb : tu crées la liste des barres que tu veux afficher, et après... je pense que tu sauras te débrouiller

Code :

1
2
3
4
5
6
LesBarres = Array("Formatting", "Tables and Borders", "Database", "Drawing", "Forms", "Full Screen", "Edit Picture", _
"Visual Basic", "Stop Recording", "Mail Merge", "Master Document", _
"Microsoft", "Header and Footer", "Outlining", "Print Preview")
For i = 1 To UBound(LesBarres)
    Application.CommandBars(LesBarres(i)).Visible = True
Next

A+