Discussion :

[lejert]

Salut,

Je manipule un fichier doc, et j'aimerais savoir si il est possible de créer un paragraphe avec sa mise en page et son contenu, puis l'insérer.

En fait j'utilise :

Code :

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

CurrentDocument.Content.Find.Execute(TextToFind, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward, Wrap, Format, TextToReplaceWith, Replace, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

pour remplacer du texte, mais ici j'ai besoin de remplacer du texte par un paragraphe ...

Merci pour votre aide

[anapurna]

salut


et si tu utilise le clipboard se serait pas plus simple ?
du genre

Code :

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

1
2
3
4
5
6
 
   Clipboard.Clear;
   Clipboard.AsText := Buffer;
 
   WordApp.Documents.Add;
   WordApp.Selection.Paste;

@+ Phil

[lejert]

Ok... merci pour ton aide. Je vais chercher dans ce sens...

Peux-tu si possible me donner un peu plus de précision sur ton idée car je n'ai jamais manipulé le clipboard avec Word

Merci

[anapurna]

salut

il existe dans word des fonction disponible par l'ole
tels que copy ou paste en fait elles utilise le clipboard de windows
dans delphi le cas echeant il existe un objet permettant d'encapsuler cet outil

dans notre cas je suppose que l'objet delphi ne nous servira pas

dans un premier temps il faut que tu sélectionne le texte que tu veut copier
de la même façon que tu le ferait avec la souris
pour trouver le methode correspondante creer une macro sous word et edite la
une fois la selection faite copy la dans le clipboard

Code :

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

1
2
 
  WordApplication1.Selection.Copy;

la deuxieme parti est tout aussi simple
il suffit d'acceder a ton deuxieme document et de placer le curseur
la ou tu veut inserer le texte et ensuite
de faire :

Code :

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

WordApplication2.Selection.Paste;

rien de vraiment sorcier en somme

@+ Phil