WD2002: Récupérer le sujet d'un document via une macro VBA

Symptômes



Comment récupérer le nom et le sujet d'un fichier Microsoft Word via une
Macro VBA ?

Résolution



Le nom du document se récupère assez facilement. En ce qui concerne le
sujet d'un document, défini dans Fichier\Propriétés, il faut utiliser la
propriété "BuiltInDocumentProperties(wdPropertySubject)".

ATTENTION : pour utiliser cette propriété, il faut référencer la DLL
"Microsoft Scripting Runtime" (scrrun.dll) dans le menu Outils\Références
de Visual Basic Editor.


EXEMPLE :
==========

La macro VBA ci-dessous, recherche dans un répertoire défini (exemple
dans la macro ci-dessous: monChemin), tous les fichiers *.doc et
enregistre dans un fichier temp.txt (dans l'exemple le fichier temp.txt
est placé dans le répertoire C:\) le nom et le sujet de tous les fichiers
Microsoft Word trouvés dans ce répertoire.

Sub RecupererSujetDocumentWord()
On Error Resume Next

'Recherche des fichiers Microsoft Word à la racine du disque dur c:
'Ne pas oublier l'anti-Slash!
FichiersWord ("C:\Dossiers\")

End Sub


Public Sub FichiersWord(monChemin As String)

Set monScript = New Scripting.FileSystemObject
Set monFolder = monScript.GetFolder(monChemin)


Dim myStream As TextStream
'Définir l'emplacement et le nom du fichier dans lequel les données
(nom et sujet des documents) récupérées vont être affichées.
Set myStream = monScript.CreateTextFile("C:\temp.txt", True, True)

Application.DisplayAlerts = wdAlertsNone

For Each monFile In monFolder.Files
If Right(monFile.Name, 4) = ".doc" Then
Application.Documents.Open monChemin & monFile.Name

'Permet d'écrire le nom du fichier doc, dans temp.txt
myStream.WriteLine ("Nom : " & monFile.Name)
'Permet d'écrire le sujet du fichier doc, dans temp.txt
myStream.WriteLine ("Sujet : " & _

Application.Documents(monFile.Name).BuiltInDocumentProperties(wdPropertyS
ubject))
myStream.WriteLine ("")
myStream.WriteLine ("")
Application.Documents(monFile.Name).Close
End If

Next

Application.DisplayAlerts = wdAlertsAll
myStream.Close
End Sub



MOTS-CLES :
La liste de(s) mot(s) suivant(s) permet une recherche plus efficace de
cette fiche technique :

Word, wdPropertySubject, VBA, Macro, Sujet, Microsoft Scripting
Runtime,scrrun.dll, Visual Basic pour Applications, document, Propriétés

kbkeyword kbmacro kbother kbprb kbprg kbusage
Propriétés

ID d'article : 19905 - Dernière mise à jour : 6 févr. 2003 - Révision : 1

Commentaires