Opgelost Tekstbox voor iedere cell.

[edmoor]

Maak een nieuw werkblad met de naam Waarde en voer dan deze macro uit:

Sub PropertyValue()
    Dim p As Object
    Dim rw As Integer
    rw = 1
    With Sheets("Waarde")
        For Each p In ActiveWorkbook.CustomDocumentProperties
            .Cells(rw, 1).Value = p.Name
            .Cells(rw, 2).Value = p.Value
            .Cells(rw, 1).VerticalAlignment = xlTop
            .Cells(rw, 2).VerticalAlignment = xlTop
            rw = rw + 1
        Next
        .Columns.AutoFit
    End With
End Sub

 

[AHulpje]

Button "Exporteer" toegevoegd aan formulier, maakt bestand CustomProperties.txt.
Edmoor was me voor, nou ja, toch maar plaatsen.

 

[edmoor]

Wel netjes zo

 

[Dokman]

Dank je dit is wat ik zocht. Lekker, simpel en goed.

Bedankt Edmoor

 

[Dokman]

AHulpje.

Heb de oplossing van jou er ook tussen gezet. Kunnen ze zelf kiezen wat ze willen. In het Excel-bestand zetten. of naar en TXT bedankt.

 

[AHulpje]

Oeps, er zit een foutje in mijn versie, exportbestand wordt geopend "for append", moet zijn "for output".
In bijgaande versie verbeterd.
Ik zag dat er veel "ongebruikte" customproperties zijn, properties gekoppeld aan een lege cel.
Op het formulier een knop "Verwijder opgebruikte customproperties" toegevoegd. Zie export voor- en na gebruik van deze knop.

 

[Dokman]

Heb even gekeken maar kan geen verschil zien in het bestand voor of na de export.
of het ligt aan mijn txt verwerken.

 

[AHulpje]

Bijlages:
Export vóór het verwijderen van "ongebruikte" customproperties.
Export ná het verwijderen van "ongebruikte" customproperties.