VBA - Liens hypertextes dans document word
test_2be
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
test_2be Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
test_2be Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai un petit soucis pour la création de ma macro en vba.
En fait, je voudrais pouvoir lister tous les fichiers *doc d'un répertoire et pour chaque fichier .*doc trouvé, vérifier si les liens hypertextes qui s'y trouvent fonctionnent correctement.
Je suis débutant en vba et je bloque.
Je sais lister les fichiers doc d'un répertoire, je sais vérifier les liens hypertextes d'un document mais uniquement d'un document que j'ouvre moi-même (ActiveDocument)
Je n'arrive pas à récupérer le résultat de ma recherche pour m'en servir ensuite.
Si qqun a une idée...
Voici mon code.....qui ne fonctionne pas très bien pour l'instant :-)
Merci
Sub test_listetcheck()
'
Dim message As String
Dim hlien As Hyperlink
Dim NomFichier As String
With Application.FileSearch
.LookIn = "C\Temp")
.FileName = "*.doc"
If .Execute > 0 Then
For i = 1 To .Foundfiles.Count
For Each hlien In Foundfiles(i)
With hlien
message = message & .TextToDisplay & ", " & .Address & vbCrLf
End With
Next
MsgBox message
'MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub
J'ai un petit soucis pour la création de ma macro en vba.
En fait, je voudrais pouvoir lister tous les fichiers *doc d'un répertoire et pour chaque fichier .*doc trouvé, vérifier si les liens hypertextes qui s'y trouvent fonctionnent correctement.
Je suis débutant en vba et je bloque.
Je sais lister les fichiers doc d'un répertoire, je sais vérifier les liens hypertextes d'un document mais uniquement d'un document que j'ouvre moi-même (ActiveDocument)
Je n'arrive pas à récupérer le résultat de ma recherche pour m'en servir ensuite.
Si qqun a une idée...
Voici mon code.....qui ne fonctionne pas très bien pour l'instant :-)
Merci
Sub test_listetcheck()
'
Dim message As String
Dim hlien As Hyperlink
Dim NomFichier As String
With Application.FileSearch
.LookIn = "C\Temp")
.FileName = "*.doc"
If .Execute > 0 Then
For i = 1 To .Foundfiles.Count
For Each hlien In Foundfiles(i)
With hlien
message = message & .TextToDisplay & ", " & .Address & vbCrLf
End With
Next
MsgBox message
'MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub
A voir également:
- VBA - Liens hypertextes dans document word
- Word 2013 - Télécharger - Traitement de texte
- Comment supprimer une page dans un document word - Guide
- Tableau word - Guide
- Signer un document word - Guide
- Espace insécable word - Guide