Discussion :

[stef33150]

Bonjour,

j'aurais besoin d'aide pour un projet que je développe.
En gros, il faudrait que le texte des textbox d'un WindowsForm, soit transféré sous Word, dans un modèle que j'ai créé au préalable.

Bien sur, chaque résultat des textbox doit apparaître à un endroit précis de la page Word...

Pouvez-vous m'aider en m'expliquant la technique à utiliser?

En vous remerciant par avance...

[Samuel Blanchard]

Bonjour,

Quelle est la version de Word à utiliser ?

[stef33150]

Pour tout te dire: j'utilise Visual Studio 2008 en VB, et Microsoft Word 2007.

[Graffito]

Bonjour,

Mets dans le texte de ton modèle des variables identifiées par un caractère spécial:

par exemple:

Téléphone : £TEL
e-mail : £EMAIL

et utilise la fonction de remplacement avec un Range correspondant à tout le document.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
string FindText= "£TEL"
string ReplaceText ="99.88.77.66.55" ;
object FindTextObject =  FindText ;
object ReplaceTextObject = ReplaceText ;
object MissingObject = System.Reflection.Missing.Value ;
object ReplaceObject = 2 ; // 2=ReplaceAll
Word.Range DocRange=MyWordDocument.Range(ref MissingObject,ref MissingObject) ;
DocRange.Select() ;
DocRange.Find.Execute( 
 ref FindTextObject   , ref MissingObject, ref TrueObject    , // FindText       , Matchcase      , WholeWord
 ref MissingObject    , ref MissingObject, ref MissingObject , // WildCard       , MatchSoundsLike, MatchAllWordsForm
 ref TrueObject       , ref MissingObject, ref MissingObject , // Forward        , Wrap           , Format
 ref ReplaceTextObject, ref ReplaceObject, ref MissingObject , // ReplaceWith    , Replace        , MatchKasida    
 ref TrueObject       , ref MissingObject, ref MissingObject); // MatchDiacritics,MatchAlefHamza  , MatchControl

[Samuel Blanchard]

Ou sinon comme tu utilises Word 2007, tu peux gérer ton document via les API OpenXML (le format docX est un format OpenXML)

Cela se gère comme un ensemble de fichier XML, ce n'est donc pas trop compliqué.

http://msdn.microsoft.com/fr-fr/office/bb409619.aspx

[stef33150]

Ta solution est très bien Samoteph, mais le souci c'est que cette application
sera utilisée par des professionnels qui eux sont sur Word 2000 (vive la préhistoire) ...

Donc il faut que je m'adapte à ce qu'ils ont déjà...
Donc le docx à oublier.

Je vais essayer la solution de Graffito...
Et je vous tiens au courant...

[Samuel Blanchard]

C'est pour cela que je t'avais demandé la version de Word en début du post
En attendant la solution de Graffito est parfaite pour ce que tu veux faire.

[stef33150]

Par contre, perso, j'ai l'habitude de commenté mon code.
Alors que là, pour moi, ça ressemble plus à une usine à gaz plutôt
qu'autre chose (même si cela à l'air de fonctionné)... Je n'ai pas compris la moitié de lignes...
J'aurais aimé si possible, avoir quelques explications...

Merci d'avance,

[Graffito]

ça

ressemble plus à une usine à gaz plutôt

il n'y a 3 que instructions :

• La création d'un "Range" : partie de texte comprise entre un point de début et un point de fin (ici tout le doc),
• La sélection du texte compris entre début et fin du "Range" (donc "Selectionner tout le doc"),
• L'instruction de Rechercher/remplacer avec tous ses paramètres.

[Samuel Blanchard]

Graffito,

Je pense qu'il serait intéressant de préciser pour stef33150 d'ou provient ta variable myWordDocument (comment tu lances ton ActiveX Word en somme).

[stef33150]

Pour lancer Word et ouvrir mon document, je n'ai aucun problème de ce coté
là (référence mise en place et le imports au début de la classe)

C'est plus les paramètres à la fin que je ne comprends pas:
- A quoi sert le missingobject?
- d'où sort l'objet TrueObject et le ReplaceObject?

[stef33150]

J'ai essayé ta solution Graffito, mais je n'ai pas accès à la méthode Select du DocRange ni à Find...

Saurais tu d'où cela peut-il venir?
Et si possible j'aurais aimé avoir quelques précisions sur les paramètres de Find.Execute(...)

Merci d'avance.

[stef33150]

Voilà ce que j'ai trouvé pour le moment...

Code :

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

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
    Private Sub OpenDoc()
        Dim FindText As String = "$Civilité"
        Dim ReplaceText As String = txtCivilite.Text
        ' Objet Application Word
        Dim objWord As Word.Application = New Word.Application
        ' Objet Document Word
        Dim objDoc As Word.Document
        ' Chemin du fichier
        Dim Fichier As String = "C:\Users\Mélany\Documents\Civilite.dot"
 
 
        Dim test As Boolean = False
 
        ' On ajoute à la liste des documents de l'application le document issue du fichier
        objDoc = objWord.Documents.Add(Fichier)
 
        With objDoc.MailMerge
            With .Fields
                If objWord.Selection.Text = FindText Then
                    objWord.Selection.Text = ReplaceText
                End If
            End With
        End With
        ' On rend visible l'application
        objWord.Visible = True
    End Sub

Avec ça j'arrive à insérer du texte dans mon document Word mais pas à le remplacer.

Pouvez vous m'aider?

[Graffito]

Code :

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

objword.Selection.Find...

??

[stef33150]

Ok pour la solution de Graffito.

Avec pas mal de recherche, j'ai réussi à trouver à quoi servaient les paramètres de la méthode Execute.

Et après ça, j'ai de suite réussi à faire fonctionner le code.

Merci Graffito.

Problème résolu.