Meta Data

Hvis VBA:
summ = ActiveDocument.CustomDocumentProperties("Summary")
cust = ActiveDocument.CustomDocumentProperties("Custom")

jeg kan da ikke bare udskrive hele dokument properties sådan kan man ?

Jo:
Sub visMetadata()
Dim prop, antalBrugerDef, f
Rem ENTEN:
    antalBrugerDef = ActiveDocument.CustomDocumentProperties.Count
   
    For f = 1 To antalBrugerDef
        With ActiveDocument.CustomDocumentProperties(f)
            MsgBox (.Name + " " + .Value)
        End With
    Next f

Rem Eller:

Rem Vis brugerdef.
    For Each prop In ActiveDocument.CustomDocumentProperties
        navn = prop.Name
        værdi = prop.Value
    Next prop

Rem Vis indbyggede
    For Each prop In ActiveDocument.BuiltInDocumentProperties
        MsgBox (prop.Name + " " + prop.Value)
    Next prop
End Sub

nu spørger jeg dumt men hvordan sætter jeg så ActiveDocument ?

og jeg kan ikke se mig ud af hvad det lige er dit kode eksempel gør ?

Det relevante word-dokument er åbent.
Tryk på Alt+F11 - VBA-vinduet åbnes - Aktiver "ThisDocument" - og indsæt koden.
Koden kan eksekveres v/tryk på F5 - eller step gennem koden m/F8

Sub visMetadata()
Dim prop, antalBrugerDef, f
Rem ENTEN:
HER HENTES ANTALLET AF BRUGERDEFINEREDE EGENSKABER - D.V.S. EGENSKABER, SOM BRUGEREN SELV HAR OPRETTET OG GIVET VÆRDI.

    antalBrugerDef = ActiveDocument.CustomDocumentProperties.Count
   
HER GENNEMLØBES DISSE - DER VISES EN MEDDELELSESBOKS - PR. STK
    For f = 1 To antalBrugerDef
        With ActiveDocument.CustomDocumentProperties(f)
            MsgBox (.Name + " " + .Value)
        End With
    Next f

Rem Eller:

DETTE ER BLOT EN ANDEN MÅDE FOR DET SAMME

Rem Vis brugerdef.
    For Each prop In ActiveDocument.CustomDocumentProperties
        navn = prop.Name
        værdi = prop.Value
    Next prop

Rem Vis indbyggede
    For Each prop In ActiveDocument.BuiltInDocumentProperties
        MsgBox (prop.Name + " " + prop.Value)
    Next prop
End Sub

Håber det hjalp? - ellers giv signal.

skulle gerne bruge det i VB i stedet ?

Så må vi håbe, at andre kan hjælpe..

okai men tak for hjælpen .. :-D

slet ikke nogle der kan hjælpe mig ?

Jeg får "Mothed 'Value' of object 'DocumentProperty' Faild ?? hvad kan denne fejl skyldes .. supertekst ?

Kender ikke denne melding - kommer den fra VB ellers VBA?

vb :(