Création d'un document word et remplissage automatique du document créé

Soyez le premier à donner votre avis sur cette source.

Vue 37 807 fois - Téléchargée 6 123 fois

Description

Programme permettant de créer un document Word sur base d'un modèle de document Word existant. Ce modèle contient quelques signets(Bookmark) afin de pouvoir remplir là où vous le désirer le document.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
7
Date d'inscription
dimanche 13 février 2005
Statut
Membre
Dernière intervention
11 décembre 2011

Ca fait bien longtemps déjà que j'ai posté ce petit programme, en 2005. Il faudrait quelqu'un qui le mette à jour en .NET surtout que la base de registre et les clés ont changées depuis Windows 7.
Heureux en tout cas d'avoir aidé pas mal de gens avec cette source.

A+
Messages postés
201
Date d'inscription
jeudi 26 février 2004
Statut
Membre
Dernière intervention
30 juin 2008

Bonne source utile ;-)
Messages postés
17
Date d'inscription
jeudi 17 novembre 2011
Statut
Membre
Dernière intervention
28 novembre 2011

Bonjour,

Votre code me paraît convenir à mon projet, mais je travaille sur MacOS X (pour le codage) et l'exécution a des chances de se faire sur WindowsXP. Comment modifier le code pour qu'il tourne sur les deux plates-formes indifféremment?

Merci d'avance.
Messages postés
1
Date d'inscription
mardi 8 avril 2008
Statut
Membre
Dernière intervention
9 avril 2008

bonjour
S’il vous plaît j’ai fait un petit programme (gestion des CV) avec VB.Net 2003 et je veux stocker le nom et le prénom dans un document Word qui a comme nom (« N° de CV »)
J’ais fais plusieurs recherche et j’ai pas arrivée à aucune résultat

S’il vous plaît est ce que vous pouvez m’aidez
Voila le code que j’ai utilisé
Le nom du document model est stagiaire

Imports System.Windows.Forms

Public Class effacer
Inherits System.Windows.Forms.Form

Dim MonWd, MonDocwd As Word.Application



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MonWd = CreateObject("Word.Application")
MonDocwd = MonWd.Documents.Add("C:\Documents and Settings \Administrateur\ Bureau\rachida.dot", False)

MonWd.ActiveDocument.Bookmarks("civilité").Select()
MonWd.Selection.InsertAfter(Me.cmbCivilité.Text

MonWd.ActiveDocument.Bookmarks("Nom_prénom").Select()
MonWd.Selection.InsertAfter(Me.txtnom.Text & " " & Me.txtpre.Text)

MonWd.ActiveDocument.SaveAs("C:\Documents and Settings\Administrateur\Bureau" & txtNRef.Text & ".doc")

End Sub
End Class

merci d'avance
Messages postés
1
Date d'inscription
mercredi 23 juillet 2003
Statut
Membre
Dernière intervention
28 novembre 2007

il faut modifier la fonction "IsAppPresent" pour qu'elle accepte tous les nouvelles versions (2003, 2007)


Private Function IsAppPresent(strSubKey$, strValueName$) As Boolean
Dim mstrKey$
mstrKey = GetRegString(HKEY_CLASSES_ROOT, strSubKey, strValueName)
If Right(mstrKey, 1) < 8 Then
'XP ou plus !!!
If Left(Right(mstrKey, 2), 1) "." Then mstrKey ""
End If
IsAppPresent = CBool(Len(mstrKey))
End Function
Afficher les 15 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.