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

PS : j'ai ouvert un post dans la section Access ici :
http://www.developpez.net/forums/d14...ouve-doc-word/

[Heureux-oli]

Salut,



Ton erreur est probablement liée au fait que tu ne déclare pas ton objet avant de l'utiliser.

Dans les dernières versions de Word, ne pas déclarer un objet génère une erreur.
Soit tu le déclares avec le bon type de données, soit tu le laisses en variant.

Maintenant, avec le message d'erreur, c'est souvent plus facile de donner une réponse.

[Razmote]

Salut Heureux au lit

La déclaration c'est :
Dim wordapp As word.Application
Set wordapp = New word.Application

En fait l'erreur est ici -> myStoryRange.find.Execute

Il y a bien un problème car find est écrit en minuscule alors qu'il devrait être écrit Find.

Mon problème est un peu compliqué, je vais résumer vite fait.

Je migre une db Access 97 lié à office 97 vers Access 2010.

A l'heure actuelle j'ai 97% de migration réussis (les 3% de problème ne sont pas encore apparus ), je bute sur un seul modèle (j'en ai une 30taine) Word 97 qui a une zone de texte avec du texte écrit à la verticale, c'est donc pas catastrophique non plus.
Ce qui fonctionne dans des zones qui ne sont pas des zones de texte :

Code :

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

1
2
3
4
5
6
7
8
 
         Dim worddoc As word.document
         Set worddoc = wordapp.Documents.Open(chemin_document & nomlettre)
        .....
        For i = 1 To ind
            recherche = "{" & table_champ(i, 1) & "}"
            worddoc.Content.find.Execute FindText:=recherche, replacewith:=RTrim$(table_champ(i, 2)), format:=False, Replace:=wdReplaceAll
        Next

Comme mon parc de PC fonctionne encore sous Windows XP et avec Office 97, j'étais tout content de voir que ma nouvelle application Access 2010 faisait bien les liaisons avec Office 97 ou Office 2010 et donc je ne suis pas encore obligé de migrer tous les PC vers Windows 8 et Office 2013.

Pour que cela marche j'ai donc mis en référence, Excel8 et Word8, mais le soucis c'est qu'a cause du Ruban je n'ai pas pu mettre la librairie Office8 (sinon erreur du ruban), j'ai donc mis Office14.

Et je pense que le problème est la...

Merci pour ta réponse.

[Heureux-oli]

Salut,

C'est myStoryRange qui n'est pas déclaré.

[Razmote]

Salut Oli,

Oui c'est bien ce que j'ai fait : Dim myStoryRange As Range
Comme j 'ai une centaine le lignes de code, j'ai oublié de le mettre...

J'ai une erreur lors de la compilationde :
myStoryRange.find.Execute findtext:=recherche, replacewith:=RTrim$(table_champ(i, 2)), format:=False, Replace:=wdReplaceAll

Erreur : Argument non facultatif, avec le .find surligné.

Penses tu que ça vient pas plutot de la librairie Office8 au lieu d Office 14 ?

Truc curieux, si je fais clic droit sur Range (sur la ligne citée au dessus), puis Définition, j'ai un message d'erreur : Impossible d'aller à Range qui est caché...

Merci pour ton aide.

[Heureux-oli]

Salut,

En utilisant la même structure, ton code fonctionne sans erreur chez moi, mais j'en étais certain avant d'essayer.

Ce qui me déroute un peu c'est que ton aide donne Range comme étant un objet caché, c'est pas le cas, Range est toujours un objet Actif, même avec 2013.

Petit mot pour les "objets cachés" ce sont des objets ou autres qui ne sont plus directement accessibles, ils le reste par soucis de compatibilité.
Disons que c'est une étape avant la disparition.

Pour rechercher dans des zones de texte, si ce sont de simples zones situées dans le document, on peut les adresser soit avec un Shape soit avec un InLineShape selon que c'est un objet aligné sur le texte ou non.

Mais, si cette zone de texte se trouve dans une zone de dessin, il faut l'adresser autrement.
Si ce n'est pas le cas.

Code :

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

1
2
3
4
5
6
7
8
9
Dim mySh as Shape
 
For each mySh in ActiveDocument.Shapes
mySh.Select
 
Selection.find ...
 
Next mySh
....

Si tu connais l'index des boîtes, on peut même se passer de boucle.

Code :

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

ActiveDocument.Shapes()

[Razmote]

Bonjour Oliver,

En fait j'ai qu'une seule zone de texte dans ce modèle Word, mais c'est un fichier crée avec Word 97 (vu que tous les postes ont office 97).

Cette zone de texte, a du texte écrit en vertical et c'est la seule raison qui m'obligeait à avoir une zone de texte, car dans mes 30 autres modèles Word 97, je n'ai aucun soucis pour faire des remplacements.

Le code que j'utilise avec Access 97 fonctionne très bien pour ce modèle avec cette zone de texte.

Mais comme je te le disais, avec Access 97 j'utilisais les librairies Office8, Word8 et Excel8.

Maintenant que je suis avec Access2010 et pour garder la compatibilité avec Office 97, j'utilise aussi les librairies Word8, Excel8 mais pas Office8, car sinon je ne peux pas utiliser le Ruban d'Office14, je suis donc obligé d'utiliser la librairie Office14 au lieu de Office8.

Je pense que le problème vient de la, ou alors c'est que j'ai loupé un truc...

Merci pour ta réponse et passe un bon dimanche

[Heureux-oli]

Salut,

Ton code devrait fonctionner.

Essaie avec une sélection de l'objet.

C'est soit Shape(1) ou InlineShape(1).

Mais je pense ce sera Shape.

[Razmote]

Salut Oliver,

Effectivement ça marche !!!

Code :

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

1
2
3
4
5
6
7
8
9
 
        ' remplacement dans les zones de texte
            For j = 1 To worddoc.Shapes.Count
                For i = 1 To ind
                    worddoc.Activate
                    recherche = "{" & table_champ(i, 1) & "}"
                    worddoc.Shapes(j).TextFrame.TextRange.Text = Replace(worddoc.Shapes(j).TextFrame.TextRange.Text, recherche, RTrim$(table_champ(i, 2)))
                Next i
            Next j

En fait mon erreur venait du fait que comme c'était le week end, j'étais connecté sur le serveur de ma boite, qui est un Windows 2003 et non sur mon poste de travail (XP).

Il doit y avoir des différences entre les 2 OS (d'ailleurs j'ai un soucis aussi avec Windows 2003 et le COMCTL32.ocx non reconnu, mais bon...).

En tout cas merci pour ton aide.

Bonne journée.

[Heureux-oli]

Salut,

Les ocx posent problèmes, beaucoup n'ont pas suivi les migrations.

[Razmote]

Oui c'est pour ça que j'en utilise trés peu mais le COMCTL32 est trés interessant pour plein de chose...

J'espère que, quand je vais migrer de XP à Windows 7 ou 8 ça va suivre...

Encore merci à toi.