Je cherche à traduire en VBA:
...
Si un document Word est ouvert
Proposer une sauvegarde
Fermer le document en cours
Fermer Word
Fin
...
par la suite dans le même Sub, j'ouvre à nouveau Word pour capturer un écran
Set myRange = wrd.ActiveDocument.Range
myRange.WholeStory
myRange.Copy
et je quitte Word.
Quelqu'un connait-il les mots magiques ?
Par avance merci.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"René" | Je cherche à traduire en VBA: | ... | Si un document Word est ouvert | Proposer une sauvegarde | Fermer le document en cours | Fermer Word | Fin | ... | par la suite dans le même Sub, j'ouvre à nouveau Word pour capturer un écran | Set myRange = wrd.ActiveDocument.Range | myRange.WholeStory | myRange.Copy | et je quitte Word.
Essaies quelque chose comme :
Dim WordApp As object On Error Resume Next
Set WordApp = GetObject(, "Word.Application") If Err.Number <> 0 Then WordApp.ActiveDocument.SaveAs FileName:="c:MonDoc.doc" WordApp.Quit End If
"René"
| Je cherche à traduire en VBA:
| ...
| Si un document Word est ouvert
| Proposer une sauvegarde
| Fermer le document en cours
| Fermer Word
| Fin
| ...
| par la suite dans le même Sub, j'ouvre à nouveau Word pour capturer un écran
| Set myRange = wrd.ActiveDocument.Range
| myRange.WholeStory
| myRange.Copy
| et je quitte Word.
Essaies quelque chose comme :
Dim WordApp As object
On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
WordApp.ActiveDocument.SaveAs FileName:="c:MonDoc.doc"
WordApp.Quit
End If
"René" | Je cherche à traduire en VBA: | ... | Si un document Word est ouvert | Proposer une sauvegarde | Fermer le document en cours | Fermer Word | Fin | ... | par la suite dans le même Sub, j'ouvre à nouveau Word pour capturer un écran | Set myRange = wrd.ActiveDocument.Range | myRange.WholeStory | myRange.Copy | et je quitte Word.
Essaies quelque chose comme :
Dim WordApp As object On Error Resume Next
Set WordApp = GetObject(, "Word.Application") If Err.Number <> 0 Then WordApp.ActiveDocument.SaveAs FileName:="c:MonDoc.doc" WordApp.Quit End If
