Discussion :

[axelmeunier]

bonjour,
débutant
voila je suis sur un projet avec du vb.net, et je dois rendre des données dans un document word ....
comment ca marche...
(je cherche à utiliser des signets)
j'ai cherché et trouvé que des exemples en C#...
Si qlq peut m'aider..
merci.

[Ditch]

http://jab.developpez.com/CSharp/Word/

Ceci peut peut etre t'aider...

[axelmeunier]

carrément , merci mais c du c# comme toujours...
vé y jeter un coup d'yeux....
merci...

[Pete]

Et comme toujours pour les conversions
http://www.developerfusion.com/utili...sharptovb.aspx

[Raduris]

Je bosse aussi sur un projet VB.net / word actuellement, et pour lire ou remplir un paragraphe avec des signets j'utilise ces deux méthodes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Sub atteindreSignet(ByVal nomSignet As String)
        'positionne le curseur au début du paragraphe
        'défini par le signet
        monDoc.Application.Selection.GoTo(what:=Word.WdGoToItem.wdGoToBookmark, Name:=nomSignet)
    End Sub
 
    Public Sub ecrireTexte(ByVal texte As String)
        'écrit le texte au niveau du curseur
        monDoc.Application.Selection.TypeText(texte)
    End Sub

Par contre, après divers essais j'en suis arrivé à utiliser des champs de formulaires dans word, et c'est beaucoup plus simple :p

lecture :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Public Function selectionChampFormulaire(ByVal nomchamp As String) As String
        'Atteind le champ de formulaire et retourne son texte
        Dim field As Object
 
        field = nomchamp
        Return monDoc.FormFields.Item(field).Result()
    End Function

Ecriture :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Public Sub modifierTexteChampFormulaire(ByVal nomchamp As String, ByVal texte As String)
        'atteind le champ 'nomchamp' et remplace le texte par 'texte'
        Dim field As Object
 
        field = nomchamp
        monDoc.FormFields.Item(field).Result = texte
    End Sub

[axelmeunier]

C cool et bien débloqué avec de nouvelles pistes...
bon y retourne
Pour le formulaire: bonne idée..

Merci encore et longue vie à ce forum

[Ditch]

Cool.

Essayes de modifier tes tags dans le sujet et également de noter comme Résolu si c'est le cas.