Lecture dans un fichier Word par pgm Delphi

Version imprimable

07/11/2008, 12h52
Bouillon

Lecture dans un fichier Word par pgm Delphi

Bonjour,

ne maîtrisant pas la POO je cherche à savoir comment déclarer l'objet Range dans les exemples donnés par Bidou dans la rubrique FAQ - Microsoft Office - Word

http://delphi.developpez.com/faq/?page=wordmodtexte

Merci à vous

BB
07/11/2008, 13h34
ShaiLeTroll

Utilise tu un TWordDocument ?
Si oui, normalement, tu as accès à Range directement, voir la
Sinon, si tu utilise les variants, c'est résolu au RunTime
07/11/2008, 13h54
Bouillon

Merci pour ta réponse.

En fait je suis parti d'un petit programme trouvé sur internet et j'essaie d'y ajouter tout ce dont j'ai besoin en décortiquant les routines trouvées ci et là.
Dans le cas présent je ne vois pas comment déclarer Range par exemple.
Je n'ai pas de TWordocument en tous cas.
J'ai déclaré à un moment Range comme Variant ou OleVariant mais ne maîtrisant pas la philosophie Objet par rapport à notre bon vieux Pascal je n'ai pas insisté.

Merci
07/11/2008, 17h44
ShaiLeTroll

Ce n'est pas la philosophie Objet dans ce cas mais le principe de Late Binding des objets Automation (comme WordDocument)

Ne cherche pas à trouver dans Delphi, lorsque tu utilises les variants, c'est uniquement en RunTime que tu pourras voir si le code était correct ou pas ! Tu n'as aucun Uses ni Completion de Code, c'est pas évident, ...
08/11/2008, 14h20
Bouillon

Merci de ton aide,

je trouve tout ce qu'on veut sur l'écriture dans un document Word mais pas sur la lecture.
Je suis en train d'essayer de traduire un fichier Word en texte.

BB
09/11/2008, 07h02
evarisnea

:salut:

as tu pensé à ouvrir le document Word et de le sauvegarder ensuite au format texte ?
11/11/2008, 18h11
Bouillon

Bonjour,

viii y ai pensé mais j'ai pu remarquer qu'il ne suffisait pas de resauver le fichier avec l'extension txt alors je cherche.

Merci

BB
11/11/2008, 23h33
evarisnea

ça je ne le sais pas, mais néanmoins il ya des paramètres additionnels dans la méthode SaveAs de l'objet document, tu pourrais orienter tes recherches de ce côté là.
concernant l'automation avec Office, ce que j'ai l'habitude de faire c'est d'enregistrer une macro sous le logiciel concerné de la suite et d'exploiter cette macro pour produire le code delphi qui m'intéresse.
si j'ai un peu de temps je chercheraid le paramètre pour sauvegarder un doc word sous format txt, à moins qu'avant un membre du forum n'ait la réponse sous la main.
17/11/2008, 13h12
Bouillon

Bonjour,

rien à faire; je ne trouve rien sur le SaveAs; j'ai chipoté avec les macros mais ça marche pas.

Merci

BB

SaveAs est documentée dans l'aide de Word, mais je n'ai pas pu enregistrer une macro pour l'utiliser car en voulant enregistrer au format texte, on perd les macro. je suis suis donc parti de l'aide pour bricoler ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.Button1Click(Sender: TObject);
var
    DocWord:_Document;
    FileName: OleVariant;
    SaveFormat: OleVariant;
begin
  if OpenDialog1.Execute then
  begin
    WordApplication1.Connect;
    WordApplication1.Visible := True;
    FileName:= OpenDialog1.FileName;
    DocWord:= WordApplication1.Documents.Open(FileName,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,mptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
    if SaveDialog1.Execute then
      FileName := SaveDialog1.FileName
    else
      FileName := '';
    SaveFormat := wdFormatText;
    DocWord.SaveAs(FileName,SaveFormat,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
  end;
end;

18/11/2008, 09h29
Bouillon

Merci encore pour ton aide.
Ce qui m'échappe surtout c'est par exemple lorsqu'on parle de TWordDocument; qu'est-ce et où peut-on le trouver?
Ou aussi quand on déclare

Code:

DocWord:_Document;

où est déclaré _Document?

Merci

BB
18/11/2008, 12h34
evarisnea

Citation:

Envoyé par Bouillon

Ce qui m'échappe surtout c'est par exemple lorsqu'on parle de TWordDocument; qu'est-ce et où peut-on le trouver?

tout est ici dans la FAQ
le fait de déposer un TWordApplication sur ta fiche rajoute dans les uses les unités dans lesquelles ces classes sont déclarées.
pour mon exemple, j'ai déposé sur la fiche un TWordApplication (WordApplication1) et un TWordDocument (que finalement je n'ai pas utilisé, mais peut-être a t il rajouté des unités dans le uses de la form ? je n'ai pas vérifié).
19/11/2008, 16h35
Bouillon

Enfin!

Merci beaucoup pour ton aide.
En fait je ne savais pas qu'il y avait un onglet "Servers" tout à fait à la fin de la liste et ce n'est qu'en lisant que tu avais déposé un TWordApplication que j'ai pigé et en effet c'est dit au début de la FAQ.

Encore merci.

BB