mell01
Messages postés72Date d'inscriptionlundi 6 juin 2005StatutMembreDernière intervention15 mai 2006
-
25 août 2005 à 15:00
Doro81079
Messages postés380Date d'inscriptionvendredi 22 avril 2005StatutMembreDernière intervention24 février 2015
-
27 août 2005 à 05:22
bonjour,j'aurai besoin d'un peu d'aide:
à l'ouverture d'un doc word je dois le parcourir pour trouver les signets et les remplacer par des valeurs externe.Donc pour chaques signets il faut recommencer la recherche du début du doc .
J utilise Selection.HomeKey Unit:=wdStory,
mais j'ai une erreure qui dit que le serveur est introuvable lors de l'ouverture de mon deuxième doc.
Je ne sais pas comment le libérer(si toute fois l'erreure viens de la)
voilà mon code si ça parle à qql...
MERCI D'AVANCE
Dim doc As Word.Application
Set doc = CreateObject("Word.Application")
doc.DisplayAlerts = False
doc.Documents.Open chemin
doc.Visible = True
doc.Selection.Find.ClearFormatting
With doc.Selection.Find
Selection.HomeKey Unit:=wdStory
.Text = "#nom#"
While doc.Selection.Find.Execute
doc.Selection.TypeText Text:=nom
Wend
Selection.HomeKey Unit:=wdStory
.Text = "#ad#"
While doc.Selection.Find.Execute
doc.Selection.TypeText Text:=ad
Wend
.......
End With
Set doc = Nothing