Déplacement dans doc word??

Signaler
Messages postés
52
Date d'inscription
samedi 8 juin 2002
Statut
Membre
Dernière intervention
12 avril 2006
-
Messages postés
52
Date d'inscription
samedi 8 juin 2002
Statut
Membre
Dernière intervention
12 avril 2006
-
Salut !
J'arrive a ouvrir un document word,y écrire du texte et tout..Mais je voudrai écrire mon texte a un endroit précis, par exemple après un mot ou dans une case d'un tableau... COMMENT FAIRE???
Merci !

3 réponses

Messages postés
10
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
14 janvier 2003

Salut d'un développeur corse

Si tu as la solution fais moi signe car moi aussi je cherche la même chose.
Merci d'avance.
0
Messages postés
10
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
14 janvier 2003

Salut d'un développeur corse

Si tu as la solution fais moi signe car moi aussi je cherche la même chose.
Merci d'avance.
0
Messages postés
52
Date d'inscription
samedi 8 juin 2002
Statut
Membre
Dernière intervention
12 avril 2006

Et oui depuis j'ai trouvé comment faire...
Ouvre le document word que tu veux éditer puis place le curseur à l'endroit ou tu as l'intention d'inserer du texte avec vb. Fais "Insertion/Signet...". Donne un nom au signet que tu viens de créer et enregistre ton document.
Apres dans VB:

Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set AppWord = CreateObject("Word.Application")
Err.Clear
Else
erreur = MsgBox("Un document Word est ouvert."vbInformation)
GoTo fin
End If

AppWord.ShowMe
AppWord.Visible = True

On Error GoTo erreur_ouv
AppWord.Documents.Open FileName:=App.Path & "xxx.doc"

On Error GoTo 0
AppWord.Application.WindowState = wdWindowStateMaximize
Set DocWord = AppWord.ActiveDocument

DocWord.Bookmarks("NomDuSignet").Select
AppWord.Selection.TypeText Text:="TexteAEcrire"

Voila j'espère que tu capteras sinon n'hésite pas...
valerossi46@free.fr
0