Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Garette
Bonjour,
Le code ci-dessous récupére les noms et contenus des signets situés dans le document C:toto.doc. Les noms de signets sont ventilés dans la colonne A de la feuille active et les contenus des signets dans la colonne B.
Sub Signets() i = 0 Set WordApp = CreateObject("word.application") 'WordApp.Visible = True 'Si activer, l'ouverture de Word est visible à l'écran WordApp.Documents.Open Filename:="c:toto.doc" For Each X In WordApp.ActiveDocument.Bookmarks ActiveSheet.Range("A1").Offset(i, 0).Value = X.Name ActiveSheet.Range("A1").Offset(i, 1).Value = X.Range i = i + 1 Next WordApp.Quit Set WordApp = Nothing End Sub
Bonjour,
Le code ci-dessous récupére les noms et contenus des signets situés dans le
document C:toto.doc.
Les noms de signets sont ventilés dans la colonne A de la feuille active et
les contenus des signets dans la colonne B.
Sub Signets()
i = 0
Set WordApp = CreateObject("word.application")
'WordApp.Visible = True 'Si activer, l'ouverture de Word est visible à
l'écran
WordApp.Documents.Open Filename:="c:toto.doc"
For Each X In WordApp.ActiveDocument.Bookmarks
ActiveSheet.Range("A1").Offset(i, 0).Value = X.Name
ActiveSheet.Range("A1").Offset(i, 1).Value = X.Range
i = i + 1
Next
WordApp.Quit
Set WordApp = Nothing
End Sub
Le code ci-dessous récupére les noms et contenus des signets situés dans le document C:toto.doc. Les noms de signets sont ventilés dans la colonne A de la feuille active et les contenus des signets dans la colonne B.
Sub Signets() i = 0 Set WordApp = CreateObject("word.application") 'WordApp.Visible = True 'Si activer, l'ouverture de Word est visible à l'écran WordApp.Documents.Open Filename:="c:toto.doc" For Each X In WordApp.ActiveDocument.Bookmarks ActiveSheet.Range("A1").Offset(i, 0).Value = X.Name ActiveSheet.Range("A1").Offset(i, 1).Value = X.Range i = i + 1 Next WordApp.Quit Set WordApp = Nothing End Sub
Jed
Ô grand merci Garette.
Je ne voyais pas comment m'y prendre. C'est exactement ce qu'il me fallait. Merci encore
Cdlt Jed
Bonjour,
Le code ci-dessous récupére les noms et contenus des signets situés dans le document C:toto.doc. Les noms de signets sont ventilés dans la colonne A de la feuille active et les contenus des signets dans la colonne B.
Sub Signets() i = 0 Set WordApp = CreateObject("word.application") 'WordApp.Visible = True 'Si activer, l'ouverture de Word est visible à l'écran WordApp.Documents.Open Filename:="c:toto.doc" For Each X In WordApp.ActiveDocument.Bookmarks ActiveSheet.Range("A1").Offset(i, 0).Value = X.Name ActiveSheet.Range("A1").Offset(i, 1).Value = X.Range i = i + 1 Next WordApp.Quit Set WordApp = Nothing End Sub
Ô grand merci Garette.
Je ne voyais pas comment m'y prendre.
C'est exactement ce qu'il me fallait.
Merci encore
Cdlt
Jed
Bonjour,
Le code ci-dessous récupére les noms et contenus des signets situés dans le
document C:toto.doc.
Les noms de signets sont ventilés dans la colonne A de la feuille active et
les contenus des signets dans la colonne B.
Sub Signets()
i = 0
Set WordApp = CreateObject("word.application")
'WordApp.Visible = True 'Si activer, l'ouverture de Word est visible à
l'écran
WordApp.Documents.Open Filename:="c:toto.doc"
For Each X In WordApp.ActiveDocument.Bookmarks
ActiveSheet.Range("A1").Offset(i, 0).Value = X.Name
ActiveSheet.Range("A1").Offset(i, 1).Value = X.Range
i = i + 1
Next
WordApp.Quit
Set WordApp = Nothing
End Sub
Je ne voyais pas comment m'y prendre. C'est exactement ce qu'il me fallait. Merci encore
Cdlt Jed
Bonjour,
Le code ci-dessous récupére les noms et contenus des signets situés dans le document C:toto.doc. Les noms de signets sont ventilés dans la colonne A de la feuille active et les contenus des signets dans la colonne B.
Sub Signets() i = 0 Set WordApp = CreateObject("word.application") 'WordApp.Visible = True 'Si activer, l'ouverture de Word est visible à l'écran WordApp.Documents.Open Filename:="c:toto.doc" For Each X In WordApp.ActiveDocument.Bookmarks ActiveSheet.Range("A1").Offset(i, 0).Value = X.Name ActiveSheet.Range("A1").Offset(i, 1).Value = X.Range i = i + 1 Next WordApp.Quit Set WordApp = Nothing End Sub