Travailler dans un fichier Word

[Patrick MO]

Bonjour à tous,

A partir de VB pour Excel, j'ai créé un fichier Word grace au code suivant

Set wrd = CreateObject("Word.Application")
wrd.Visible = True
Set sel = wrd.Selection

wrd.DOCUMENTS.Add V_Path & "030520_FinalFormSection212Letter_Convertibles.doc"

je ne parviens pas à voyager dans ce fichier.
Je voudrais simplement déplacer le curseur/

pouvez-vous me donner la syntaxe à utiliser.

Merci à tous

 

[michel]

bonsoir Patrick

tu peux essayer d'ajouter Wrd.Selection.TypeParagraph pour aller à la ligne dans ton nouveau document word

Set wrd = CreateObject("Word.Application")
wrd.Visible = True
Set sel = wrd.Selection
wrd.DOCUMENTS.Add V_Path & "030520_FinalFormSection212Letter_Convertibles.doc"
Wrd.Selection.TypeParagraph

bonne soirée
michel

 

[Patrick MO]

Merci Michel pour ta réponse.

Ton code fonctionne effectivement très bien.
Cependant j'ai un autre message d'erreur.

Mon problème est que je crée un nouveau document en utilisant un template et je n'ai qu'à positionner mon curseur à certains endroits pour remplacer des variables par leur valeur effective.
j'avais donc utilisé le code
wrd.Selection.MoveDown Unit:=wdLine, Count:=7
par exemple pour descendre de 7 lignes
et je reçois le message d'erreur run-time erroe 4120 - Bad Parameter

As tu une idée?

En te remerciant

 

[michel]

bonsoir Patrick

qu'apelles tu un template ?
ce n'est pas evident de te répondre sans voir le reste de ta macro

chez moi "movedown" fonctionne bien .
par exemple
Sub SeDeplacerDansDocWordExistant()
Dim Wrd As Object
Dim AppWord As Object
Set Wrd = CreateObject("Word.Application")
Wrd.Visible = True
Set AppWord = Wrd.Documents.Open("c:\mes documents\taches à effectuer.doc")
With Wrd.Selection
.MoveDown Count:=7
End With
End Sub

bonne soirée
michel