Effacer des signets dans un document word depuis excel
Bonsoir a tous,
j'ai un fichier excel depuis lequel je recupère des données remplies dans un formulaire word
tous cela marche bien sauf que j'ai besoin après cette récupération d'éffacer le contenue des signets ,sans détruire les signets tout cela depuis excel
voici une partie de mon code:
Code:
1
2
3
4
5
6
7
8
9
10
| Set wordApp = CreateObject("word.application")
wordApp.Visible = False 'Word reste masqué pendant l'opéraion
Set wordDoc = wordApp.Documents.Open(ThisWorkbook.Path & "\test.doc") 'ouvre le document Word
' copie les valeurs de tableau de test.doc dans la feuille archiver de nouveau.xls
With Feuil1
.Range("C11").Value = wordDoc.Bookmarks(6).Range
.Range("C11").Value = Replace(Feuil1.Range("C11").Value, Chr(13), Chr(10))
End With
wordDoc.Close 'fermeture document Word
wordApp.Quit |
quelqu'un a une solution a me proposer ?
merci par avance
