Discussion :

[Razmote]

Bonjour à tous,

Je voudrai modifier un document Word avec Access 2010.

J'ai des documents word qui ont des zones de texte et je n'arrive pas à modifier le contenu de ces zones.

Avec Access 97 ça marchait en faisant :

Code :

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

1
2
3
4
5
6
7
8
 
        ' remplacement dans les zones de texte
        For Each myStoryRange In wordapp.ActiveDocument.StoryRanges
            For i = 1 To ind
                recherche = "{" & table_champ(i, 1) & "}"
                myStoryRange.find.Execute findtext:=recherche, replacewith:=RTrim$(table_champ(i, 2)), format:=False, Replace:=wdReplaceAll
            Next
        Next myStoryRange

Mais avec Access 2010 j'ai une erreur sur le myStoryRange.find.Execute

Si quelqu'un sait comment modifier le contenu d'une zone de texte...

Merci

[2nis]

Sais pas si ca peut t'aider mais moi, pour interagir avec Word, j'utilise les signets et j'ai trouvé ca dans la FAQ de Developpez.com

[Razmote]

Salut,

Je pilote aussi Word avec Acces 2010 et je fais du remplacement de texte sans problème, sauf que ça me prend pas en compte le contenu des zones de texte, car c'est vraiment particulier.

Merci pour ta réponse.

[argyronet]

Bonjour,

Pour les zones de texte, il faut user d'objets de type Shape.

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub FillTextBox(ByRef Doc As Word.Document, ByVal TextboxName As String, ByVal TextToFill As String, ByVal KeepContent As Boolean)
Dim strText                                            As String
    With Doc
        With .Shapes(TextboxName)
            strText = .TextFrame.TextRange.Text
            If KeepContent Then
                TextToFill = strText & vbCrLf & TextToFill
            End If
            .TextFrame.TextRange.Text = TextToFill
        End With
    End With
End Sub

Argy

[Razmote]

Merci Argy

Effectivement c'est bien shape et ça fonctionne...

Bon We.