Pilotage de Word avec Delphi

Version imprimable

01/07/2006, 18h36
Teddy

Pilotage de Word avec Delphi

Bonjour,

Comment déplacer le curseur à un endroit précis dans un document Word avec Delphi ?
Par exemple, si je veux descendre le curseur à la dixième ligne ? La macro en VBA donne "Selection.Movedown Unit:=wdline, Count:=10".
Comment transposer ça en Delphi, qui voit Unit comme un mot-clé ?
Merci pour toute aide.

Salut
Code:

1 2 3 4 5 6 7 8 9 var wd : TWordApplication; wdUnit, wdCount, wdExtent : OleVariant; begin wdUnit := wdLine; wdCount := 10; wdExtent := false; wd.Selection.MoveDown(wdUnit, wdcount, wdExtent) end;
Sinon, pour être sûr de la destination, l'utilisation des signets est souvent préférable.

03/07/2006, 20h50
Teddy

Merci cmen76,

J'ai essayé le code que tu proposes, mais j'obtiens une exception sur la ligne
Var wd:Twordapplication;
(identificateur non déclaré:'Twordapplication')
Peut-être dois-je ajouter autre chose ?
05/07/2006, 10h57
cmen76

Citation:

identificateur non déclaré:'Twordapplication'

En fait, je suis en Delphi7 et j'ai utilisé rapidement la palette Serveurs.
En lieu et place de cette variable, mets le pointeur obtenu sur l'application Word (IDispatch) ;
Je ne pas être plus précis sans savoir comment tu invoques Word depuis ton appli.
05/07/2006, 21h36
Teddy
Bonjour cmen76,

et meci pour ta réponse. J'utilise également Delphi 7, mais je suis encore débutant, surtout en ce qui concerne la communication OLE.

Voici comment j'ouvre un fichier DOC:
Code:

1 2 3 4 5 word := CreateOleObject('word.Application'); documents := word.documents; document := documents.Open(nom); word.visible := true;
Dans ce code, "nom" est le nom du fichier DOC. Toute les autres variables sont de type variant.

Merci pour ton aide.
[Balises CODE rajoutées par Pedro. Merci d'y penser à l'avenir]

Alors le code deviendrait

Code:

1
2
3
4
5
6
7
8
9
10
 
var word : OLEVariant;
    wdUnit, wdCount, wdExtent : OleVariant;
begin
  word := CreateOleObject('word.Application');
  wdUnit := wdLine;
  wdCount := 10;
  wdExtent := false;
  word.Selection.MoveDown(wdUnit, wdcount, wdExtent)
end;

07/07/2006, 18h03
Teddy

Merci encore pour ta réponse, mais ça ne marche toujours pas.

La ligne "word.Selection.MoveDown(wdUnit, wdcount, wdExtent)" provoque une exception "Paramètre incorrect".
10/07/2006, 09h52
cmen76

Citation:

exception "Paramètre incorrect"

... à l'exécution ? --> C'est une EOLEException ?
il se pourrait alors que ta version de Word ne soit pas en accord avec la bibliothèque de types que tu utilises...
Projet/Importer une bibliothèque de types/Ajouter...
MSWORD.OLB dans le répertoire d'Office.
Ca devrait te générer une unité Word_TLB.pas en accord avec la version de Word installée. Je crois qu'il y a des tuto là-dessus.;)