1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
|
Private Sub CmdWORD_Click()
Dim WdApp As Object
Dim Moncode
Moncode = code.Value
'Démarrer Word en ouvrant le document
Set WdApp = GetObject("D:\toto.doc")
' le code ci-dessous permet de faire apparaitre word
' en premier plan ou pas, false -> non et true -> oui
WdApp.Application.Visible = True
'test si existance du signet code
TestSignet WdApp, "code"
' avant d'affecter la valeur du champ code au signet code,
' je teste si le champ code est vide ou null,
'car si oui cela posera probleme et dans ce cas j'affecte la valeur "."
If Moncode & "" <> "" Then
WdApp.Bookmarks("code").Range.Text = code.Value
Else
WdApp.Bookmarks("code").Range.Text = "."
End If
' je sauvegarde le fichier sous un autre nom
If Moncode & "" <> "" Then
WdApp.SaveAs "D:\toto " & Moncode & ".doc"
Else
WdApp.SaveAs "D:\toto .doc"
End If
' je ferme l'application
WdApp.Application.Quit SaveChanges:=wdDoNotSaveChanges
' et j'avertis l'utilisateur que le fichier word est crée
MsgBox "Le fichier WORD est crée !"
Set WdApp = Nothing
End Sub |
Partager