Déplacement dans doc word??
cs_Florian29
Messages postés
52
Date d'inscription
samedi 8 juin 2002
Statut
Membre
Dernière intervention
12 avril 2006
-
16 juil. 2002 à 19:28
cs_Florian29 Messages postés 52 Date d'inscription samedi 8 juin 2002 Statut Membre Dernière intervention 12 avril 2006 - 13 janv. 2003 à 15:59
cs_Florian29 Messages postés 52 Date d'inscription samedi 8 juin 2002 Statut Membre Dernière intervention 12 avril 2006 - 13 janv. 2003 à 15:59
A voir également:
- Déplacement dans doc word??
- Java doc - Conseils pratiques -Java
- C++ word - Forum C / C++ / C++.NET
- Automatiser publipostage word excel - Forum Visual Basic 6
- Blob word - Forum Delphi / Pascal
- Php word - Conseils pratiques -PHP
3 réponses
besttiti
Messages postés
10
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
14 janvier 2003
13 janv. 2003 à 14:54
13 janv. 2003 à 14:54
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.
Si tu as la solution fais moi signe car moi aussi je cherche la même chose.
Merci d'avance.
besttiti
Messages postés
10
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
14 janvier 2003
13 janv. 2003 à 14:55
13 janv. 2003 à 14:55
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.
Si tu as la solution fais moi signe car moi aussi je cherche la même chose.
Merci d'avance.
cs_Florian29
Messages postés
52
Date d'inscription
samedi 8 juin 2002
Statut
Membre
Dernière intervention
12 avril 2006
13 janv. 2003 à 15:59
13 janv. 2003 à 15:59
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
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
