'#Language "WWB-COM"
' Display or hide Topic Properties that are configured as hidden by default
' Copyright Harport Consulting 2022

Option Explicit

Sub Main
	Dim e_Response As VbMsgBoxResult
	Dim m_Topic As Topic

	e_Response = MsgBox("Display hidden Topic Properties?", vbQuestion + vbYesNoCancel)
	Select Case e_Response

		Case vbYes, vbNo
			For Each m_Topic In ActiveDocument.Range(mmRangeAllTopics, True)
				With m_Topic.DataContainer
					If .DataContainerType = mmDataContainerTypeCustomProperties Then
						.CustomProperties.CustomPropertiesViewMode = _
							IIf(e_Response = vbYes, mmCustomPropertiesViewModeAll, mmCustomPropertiesViewModeBasicOnly)
					End If
				End With
			Next
	End Select

End Sub