Écrire dans word en vb
cs_Nightwing
Messages postés
5
Date d'inscription
mardi 26 février 2002
Statut
Membre
Dernière intervention
11 avril 2002
-
14 mars 2002 à 15:47
cs_webotheque Messages postés 1 Date d'inscription mercredi 4 février 2004 Statut Membre Dernière intervention 18 février 2006 - 18 févr. 2006 à 08:18
cs_webotheque Messages postés 1 Date d'inscription mercredi 4 février 2004 Statut Membre Dernière intervention 18 février 2006 - 18 févr. 2006 à 08:18
2 réponses
sainteo
Messages postés
3
Date d'inscription
mardi 8 janvier 2002
Statut
Membre
Dernière intervention
27 juin 2002
17 mai 2002 à 14:03
17 mai 2002 à 14:03
tiens tu peux essayer ca
Dim word As Object
Dim word2 As Object
Set word2 = CreateObject("Word.document")
word2.Application.Documents.Open "c:\ouvrir\document.doc", ReadOnly:=True
word2.Application.Selection.WholeStory
word2.Application.Selection.Copy
Set word = CreateObject("Word.document")
word.Application.Selection.Paste
word.Application.ActiveDocument.SaveAs FileName:="c:\sauver\newdoc.doc", FileFormat:=2
word.ActiveWindow.Close
word2.ActiveWindow.Close
voila
sainteo
Dim word As Object
Dim word2 As Object
Set word2 = CreateObject("Word.document")
word2.Application.Documents.Open "c:\ouvrir\document.doc", ReadOnly:=True
word2.Application.Selection.WholeStory
word2.Application.Selection.Copy
Set word = CreateObject("Word.document")
word.Application.Selection.Paste
word.Application.ActiveDocument.SaveAs FileName:="c:\sauver\newdoc.doc", FileFormat:=2
word.ActiveWindow.Close
word2.ActiveWindow.Close
voila
sainteo
cs_webotheque
Messages postés
1
Date d'inscription
mercredi 4 février 2004
Statut
Membre
Dernière intervention
18 février 2006
18 févr. 2006 à 08:18
18 févr. 2006 à 08:18
klll
