Modèle Word
Résolu
hardcore32
Messages postés
19
Date d'inscription
mardi 23 décembre 2003
Statut
Membre
Dernière intervention
21 octobre 2005
-
6 oct. 2005 à 04:25
hardcore32 Messages postés 19 Date d'inscription mardi 23 décembre 2003 Statut Membre Dernière intervention 21 octobre 2005 - 6 oct. 2005 à 16:15
hardcore32 Messages postés 19 Date d'inscription mardi 23 décembre 2003 Statut Membre Dernière intervention 21 octobre 2005 - 6 oct. 2005 à 16:15
A voir également:
- Modèle ticket de caisse word
- Modele de site web - Conseils pratiques -PHP
- Modele de bulletin scolaire - Forum PHP
- Système de ticket ✓ - Forum PHP
- Modèle formulaire de demande de congés payés gratuit - Forum PHP
- Gestion de ticket en ligne - Forum PHP
2 réponses
cs_pluplu
Messages postés
615
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
4 juillet 2012
6 oct. 2005 à 16:10
6 oct. 2005 à 16:10
1° Tu crée un fichier word avec des signet pour les champs que tu désire fusionné
2 ° Dans ton application tu ajoute la référence Microsoft Word Object Library (MSWORD9.OLB)
3° Voici un exemple de code qui remplis plusieurs champs d'un document word
Private Sub CmdWord_Click()
Dim WordApp As Word.Application
Dim Aujourdhui As String, DocOut As String
On Error GoTo Fail
Aujourdhui = Format(Now, "dd mmmm yyyy")If Grid1.Text "" Or TxtModeleDoc.Text "" Then Exit Sub
DocOut = App.Path & "" & "Lettre de motivation " & Grid1.Text & ".doc"
Set WordApp = New Word.Application
WordApp.Visible = True
WordApp.Documents.Add TxtModeleDoc.Text, , , True
WordApp.ActiveDocument.Bookmarks("Adresse1").Select
If TxtClip.Text <> "" Then WordApp.Selection.TypeText TxtClip.Text
WordApp.ActiveDocument.Bookmarks("Aujourdhui").Select
If Aujourdhui <> "" Then WordApp.Selection.TypeText Aujourdhui
WordApp.ActiveDocument.Bookmarks("Titre1").Select
If TxtTitre <> "" Then
WordApp.Selection.TypeText TxtTitre
WordApp.ActiveDocument.Bookmarks("Titre2").Select
WordApp.Selection.TypeText TxtTitre
End If
WordApp.ActiveDocument.Bookmarks("Concerne").Select
WordApp.ActiveDocument.SaveAs DocOut
Set WordApp = Nothing
Exit Sub
Fail:
Select Case Err.Number
Case 4218 Or 462
WordApp.Quit
Set WordApp = Nothing
Exit Sub
Case Else
Resume Next
End Select
End Sub
Pascal Laurençon
2 ° Dans ton application tu ajoute la référence Microsoft Word Object Library (MSWORD9.OLB)
3° Voici un exemple de code qui remplis plusieurs champs d'un document word
Private Sub CmdWord_Click()
Dim WordApp As Word.Application
Dim Aujourdhui As String, DocOut As String
On Error GoTo Fail
Aujourdhui = Format(Now, "dd mmmm yyyy")If Grid1.Text "" Or TxtModeleDoc.Text "" Then Exit Sub
DocOut = App.Path & "" & "Lettre de motivation " & Grid1.Text & ".doc"
Set WordApp = New Word.Application
WordApp.Visible = True
WordApp.Documents.Add TxtModeleDoc.Text, , , True
WordApp.ActiveDocument.Bookmarks("Adresse1").Select
If TxtClip.Text <> "" Then WordApp.Selection.TypeText TxtClip.Text
WordApp.ActiveDocument.Bookmarks("Aujourdhui").Select
If Aujourdhui <> "" Then WordApp.Selection.TypeText Aujourdhui
WordApp.ActiveDocument.Bookmarks("Titre1").Select
If TxtTitre <> "" Then
WordApp.Selection.TypeText TxtTitre
WordApp.ActiveDocument.Bookmarks("Titre2").Select
WordApp.Selection.TypeText TxtTitre
End If
WordApp.ActiveDocument.Bookmarks("Concerne").Select
WordApp.ActiveDocument.SaveAs DocOut
Set WordApp = Nothing
Exit Sub
Fail:
Select Case Err.Number
Case 4218 Or 462
WordApp.Quit
Set WordApp = Nothing
Exit Sub
Case Else
Resume Next
End Select
End Sub
Pascal Laurençon
hardcore32
Messages postés
19
Date d'inscription
mardi 23 décembre 2003
Statut
Membre
Dernière intervention
21 octobre 2005
6 oct. 2005 à 16:15
6 oct. 2005 à 16:15
Oh merci merci =P !
Cela m'aide beaucoup !
Quand mon appli cera fini je vais le posté sur le site, cela va être ma
première source et je vous invite à allé la voir bientot =P !
Cela m'aide beaucoup !
Quand mon appli cera fini je vais le posté sur le site, cela va être ma
première source et je vous invite à allé la voir bientot =P !