Coller du texte dans des signets défins dans un doc WORD

Coller du texte dans des signets défins dans un doc WORD - Delphi/Pascal - Programmation

Marsh Posté le 01-05-2004 à 13:13:26    

Bonjour a tous...et salut ANTP qui doit surement se rappeler de "Tonton Nily"..lol
 
 
j'aimerais coller du texte dans des signets que j'ai définit dans un document Word. j'ai récupéré un portion de code de Vb, mais je n'arrive pas à le retranscrire en Dédel (Delphi).
 

Code :
  1. //* Jouvre les fichiers word *//
  2.             WordApp := CreateOleObject('Word.application');
  3.             WordApp.visible := true;
  4.             WordDocs := WordApp.documents;
  5.             WordDoc := WordDocs.open(CheminBDO + 'fichier.doc');
  7.                 Clipboard.Clear;
  8.                 Clipboard.AsText := Tableau_donnees[4];
  9.                 tmp := 'Agence';   //* la valeur du signet dans Word *//
  11.     WordDoc.Bookmarks(tmp).Select; //* c une portion de mon code VB *//
  12.         WordDoc.Activate;
  13.         WordDoc.Selection.Paste


 
  Si quelqu'un pourrais me dépanner, ça serait la classe. Merci à tous et si possible à toutes.
 
@+ et bon week end


---------------
TUPAC REST IN PEACE
Reply

Marsh Posté le 01-05-2004 à 13:13:26   

Reply

Marsh Posté le 01-05-2004 à 20:42:50    

Essais ça man !
 
var
      vBookMarks, vBookMark : variant;
 
......
....
 

Code :
  1. Begin
  2.        
  3.             WordApp := CreateOleObject('Word.application');
  4.             WordApp.visible := true;
  5.             WordDocs := WordApp.documents;
  6.             WordDoc := WordDocs.open(CheminBDO + 'DC4.doc');
  7.             vBookMarks := WordDoc.BookMarks;
  9.                 Clipboard.Clear;
  10.                 Clipboard.AsText := Tableau_donnees[4];
  11.                 tmp := 'Agence';
  13.     if vBookMarks.Exists(tmp) then begin
  14.         vBookMark := vBookMarks.Item(tmp);
  15.         vBookMark.Select;
  17.         WordApp.selection.paste
  20.      end;


 
merci ki.....
 


---------------
TUPAC REST IN PEACE
Reply

Marsh Posté le 01-05-2004 à 23:28:33    

vannily a écrit :

Bonjour a tous...et salut ANTP qui doit surement se rappeler de "Tonton Nily"..lol


 
Salut, mais j'ai jamais utilisé ces trucs dont je n'aurais pas pu t'aider :D


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 02-05-2004 à 06:51:37    

Bonjour,
 
Donc ça veut dire, ke g progressé et ke j'arrive à ton genoux maintenant? si ça continue le maitre va dépasser le décamaitre...lol
 
bon week end.


---------------
TUPAC REST IN PEACE
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed