Discussion :

[dev81]

J'ai un problème pour mettre à jour un signet dans word depuis VBA excel.(office2002)
Je met mon texte dans le signet mais le signet s'efface ensuite!!
Pourtant, je crée un nouveau signet (meme nom)au meme endroit avec "range" mais ca ne marche pas!!

aidez moi...Merci

[ouskel'n'or]

Ton code siouplé

[dev81]

le voila...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub IntroVersSignet()
    Dim RA As String
    Dim Txtintro As String
    Dim ObjWord As Word.Application
    Dim LeDocWord As Word.Document
    Dim Rngintro As Range
 
    On Error Resume Next
 
    RA = ThisWorkbook.Path & "\RA1.doc"
    Set ObjWord = CreateObject("Word.Application")
    ObjWord.Visible = True
    Set LeDocWord = ObjWord.Documents.Open(RA)
    Txtintro = Feuil1.TextBox_intro.Text
 
    Set Rngintro = LeDocWord.Bookmarks("intro").Range
 
    With LeDocWord
    'Le nom du signet dans le document word est ici "intro"
    .Bookmarks("intro").Range.Text = Txtintro
    .Bookmarks.Add "intro", Rngintro
    End With
 
    'LeDocWord.Bookmarks.Add "intro", Rngintro
 
    'Pour enregistrer le document et quitter Word
    LeDocWord.Save
    ObjWord.Quit
 
    'Set ObjWord = Nothing
End Sub

[ouskel'n'or]

Tu ne peux pas faire ça. Si tu ajoutes un signet, tu effaces l'ancien (pas le texte, mais le signet).
Pour affecter un signet à du text, tu dois sélectionner ton texte, puis, lui affecter le signet.

Code :

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

1
2
3
4
5
6
7
    Txtintro = Feuil1.TextBox_intro.Text
    Selection.GoTo What:=wdGoToBookmark, Name:="Intro"
    Selection.TypeText Text:=Txtintro
    Selection.Find.ClearFormatting
    Selection.Find.Text = Txtintro
    Selection.Find.Execute
    ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="Intro"

Ceci dit, si le texte est très long, j'ignore si ça fonctionne
Tu dis

Edit
Je n'ai pas utilisé l'instance de l'appli, n'oublie pas de la rajouter

[dev81]

ca ne marche pas, je créee mon signet à la fin de la macro, ca c'est bon!! mais mon texte dans le signet n'est pas mis à jour.

je renvoie le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub IntroVersSignet()
    Dim RA As String
    Dim Txtintro As String
    Dim ObjWord As Word.Application
    Dim LeDocWord As Word.Document
    Dim Rngintro As Range
 
    On Error Resume Next
 
    RA = ThisWorkbook.Path & "\RA1.doc"
    Set ObjWord = CreateObject("Word.Application")
    ObjWord.Visible = True
    Set LeDocWord = ObjWord.Documents.Open(RA)
    Txtintro = Feuil1.TextBox_intro.Text
 
    Selection.GoTo What:=wdGoToBookmark, Name:="intro"
    Selection.TypeText Text:=Txtintro
    Selection.Find.ClearFormatting
    Selection.Find.Text = Txtintro
    Selection.Find.Execute
    ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="intro"
 
 
    'Pour enregistrer le document et quitter Word
    LeDocWord.Save
    ObjWord.Quit
 
    'Set ObjWord = Nothing
End Sub

[ouskel'n'or]

Autant pour moi, mon code testé hier ne fonctionne plus aujourd'hui
J'ai corrigé pour qu'il fonctionne mais là, j'ai du mal à comprendre.
Tel qu'il fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Selection.HomeKey Unit:=wdStory
    'Txtintro = Feuil1.TextBox_intro.Text
    Txtintro = "répertoriées sont nouvelles"
    Selection.GoTo What:=wdGoToBookmark, Name:="Intro"
    Selection.TypeText Text:=Txtintro
    Selection.HomeKey Unit:=wdStory '***** Ajouté
    Selection.Find.ClearFormatting
    With Selection '***** modifié mais qui ne devrait rien changer
        .Find.Text = Txtintro
    End With
    Selection.Find.Execute
    With Selection
        .Bookmarks.Add Name:="Intro" '**** modifié
    End With

Tu dis