sort custom document properties

macropod · #2 03-17-2021, 12:36 AM

Your code could be greatly simplified. For example, to produce an alpha-sorted Custom Document Property list:

Code:

Sub Sort_Custom_Document_Properties()
Dim DocProp As DocumentProperty, CustPropArr() As String
ReDim Preserve CustPropArr(0): CustPropArr(0) = ""
' Add Custom Document Properties to Array
For Each DocProp In ActiveDocument.CustomDocumentProperties
  With DocProp
    If InStr(1, .Name, "contenttype", vbTextCompare) = 0 Then
      ReDim Preserve CustPropArr(UBound(CustPropArr) + 1)
      CustPropArr(UBound(CustPropArr)) = .Name & "|" & .Type & "|" & .Value
    End If
  End With
Next DocProp
WordBasic.SortArray CustPropArr
MsgBox Join(CustPropArr, vbCr)
End Sub

Note that the above code also explicitly captures the property type.

I'm not convinced there's much to be gained by reinserting them in the sorted order, though.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Phantom fields (custom document properties)- where do they come from - and how can they be stopped?!	andiekit	Word	13	03-18-2021 07:02 AM
Adding Custom Document Properties	NicoleJones	Word VBA	3	03-10-2021 08:43 PM
Create Custom Document Properties with Content Control	kschmidt	Word VBA	7	02-04-2019 03:09 PM
Updating Document Properties without using advanced properties dialogue	thedr9wningman	Word VBA	3	01-20-2014 05:56 PM
Add custom document properties into document	NicBodkin	Word	8	05-05-2011 09:09 AM