Ouvrir un document Word avec VB6

Ouvrir un document Word avec VB6 - VB/VBA/VBS - Programmation

Marsh Posté le 11-12-2008 à 19:47:54    

Bonjour,  
je dois faire une petite appli en VB. Je dois, après cliquer sur un bouton d'action, ouvri un document Word présent sur mon disque dur. J'ai cherché les différentes méthodes sur ce site, mais ça n'a jamais marché en exécution (un problème de librairie apparemment). Quelqu'un a le code exact ou la macro? ça doit pas etre si compliquée...:-s
 
ps: J'ai office 2000 sur mon Pc, donc Word 2000, je ne sais pas si cela change quelque chose.
 
Merci beaucoup,
@+


---------------
Cookie
Reply

Marsh Posté le 11-12-2008 à 19:47:54   

Reply

Marsh Posté le 14-12-2008 à 18:12:42    

J'ai trouvé en fait :-)

Reply

Marsh Posté le 14-12-2008 à 18:46:11    

bah dis :)

Reply

Marsh Posté le 14-12-2008 à 21:05:17    

http://vb.developpez.com/faq/?page=word
 
Par contre, je n'arrive pas à rechercher un mot dans mon fichier Word. Je veux:
- Ouvrir ce document (OK)
- Parcourir le document Word et rechercher un mot dans le document qui peut être n'importe où dans le texte (l'équivalent de la fonction Instr() mais pour un fichier en gros).
 
Si quelqu'un à la rép', merci beaucoup!

Reply

Marsh Posté le 15-12-2008 à 21:09:56    

Bonsoir  
 
Utilise plutot la recherche de Word non ?
 
With DocWord.Selection.Find
    .Forward = True
    .ClearFormatting
    .MatchWholeWord = True
    .MatchCase = False
    .Wrap = wdFindContinue
    .Execute FindText:="Microsoft"
End With
 
Cordialement


Message édité par SuppotDeSaTante le 15-12-2008 à 21:11:30

---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 16-12-2008 à 21:17:38    

Oula...je ne comprend pas le code...Qu'est ce que cette "fonction" me renvoie lorsque mon mot est trouvé (par ex le mot "microsoft" ). Car une fois que je l'ai trouvé je doit le remplacer par un autre mot. Par exemple, dès qu'il y a écrit microsoft, je dois ecrire à la place "tabernac!". Je n'arrive malheuresement pas à le faire...

Reply

Marsh Posté le 16-12-2008 à 21:24:08    

j'ai trouvé, ça envoille! Merci beaucoup ton code m'a beaucoup aidé :-)

Reply

Marsh Posté le 16-12-2008 à 22:21:43    

Je t'en prie, mais tu n'avais pas precisé de le remplacer ;)


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 18-12-2008 à 20:56:51    

Suffit d'enregistrer une macro puis d'ouvrir l'éditeur de macro pour voir le résultat. Quand je ne connais, je commence par ça et je vois où chercher après.


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Sujets relatifs:

Leave a Replay

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