user_mobilelogo

Word 365

Vous saurez tout !

 

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

 

En savoir plus.

Voici un code pour un module Excel :

 

Sub wordsignet()
'Macro écrite par Pierre CFI
Dim wrd As Object
Dim i As Integer, aBookmark
Set wrd = CreateObject("Word.Application")
wrd.Documents.Open FileName:="d:\\commun\signet.doc"
'wrd.Visible = True
If wrd.ActiveDocument.Bookmarks.Count >= 1 Then
For Each aBookmark In wrd.ActiveDocument.Bookmarks
Worksheets("Feuil1").Range("a1").Offset(i, 0= aBookmark.Name
Worksheets("Feuil1").Range("a1").Offset(i, 1=
aBookmark.Range
= i + 1
Next aBookmark
End If
wrd.Quit
Set wrd = Nothing
End Sub

Statistiques

Aujourd'hui2879
Hier3263
Cette semaine9427
Ce mois68768
Total depuis 200412747213

18
visiteurs actuellement en ligne

27 janvier 2021