Get CustomDocumentProperties

macropod · #1 05-12-2016, 12:59 AM

Quote:

Originally Posted by vince692

I kept the Exit Sub and added Else afterwards.

The reason I suggested replacing 'Exit Sub' is that it's redundant. The code will perform just as you require with 'Else' instead. Delete your modified code's 'Exit Sub' and you'll see that is so.

vince692 · #2 05-12-2016, 01:21 AM

If i don't find custumdocument propreties , the code i have after this following code mustn't execute ; (no need to launch an executable without all its arguments)

Code:

'Lit les propriétés personnalisées du document Word
Dim cp As DocumentProperty
Dim strSVSPath

'Vérifie qu'il y a des propriétés personnalisée
If ActiveDocument.CustomDocumentProperties.Count = 0 Then
    MsgBox "Custum properties de document non trouvé !"
    Exit Sub
Else
    For Each cp In ActiveDocument.CustomDocumentProperties
        If cp.Name = "SVS" Then
            strSVSPath = cp.Value
        Else
            'MsgBox cp.Name & vbLf & cp.Value
        End If
    Next cp
End If
'MsgBox strSVSPath

Everything is working fine. Thanks a lot

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Document Variables vs CustomDocumentProperties	Cosmo	Word VBA	2	08-11-2014 01:35 PM