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

Soyez le premier à donner votre avis sur cette source.

Vue 38 410 fois - Téléchargée 6 190 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
SpideyCodeWarrior Messages postés 8 Date d'inscription dimanche 13 février 2005 Statut Membre Dernière intervention 4 mars 2022
11 déc. 2011 à 11:10
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+
zeunz Messages postés 200 Date d'inscription jeudi 26 février 2004 Statut Membre Dernière intervention 30 juin 2008
8 déc. 2011 à 10:55
Bonne source utile ;-)
cs_herve06 Messages postés 17 Date d'inscription jeudi 17 novembre 2011 Statut Membre Dernière intervention 28 novembre 2011
20 nov. 2011 à 10:40
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.
chidalife Messages postés 1 Date d'inscription mardi 8 avril 2008 Statut Membre Dernière intervention 9 avril 2008
9 avril 2008 à 13:33
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
cs_abdou19 Messages postés 1 Date d'inscription mercredi 23 juillet 2003 Statut Membre Dernière intervention 28 novembre 2007
28 nov. 2007 à 09:38
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

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.