Discussion :

[Teddy]

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.

[cmen76]

Salut

Code :

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

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.

[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 ?

[cmen76]

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.

[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 :

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

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]

[cmen76]

Alors le code deviendrait

Code :

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

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;

[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".

[cmen76]

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.