'#Language "WWB-COM"
' Transfer a named Topic Property to Topic Cost and delete the property

Option Explicit
Const T_CostPropertyName = "General Cost"

Sub Main
	Dim m_Topic As Topic
	Dim m_Property As CustomProperty

	If Not (ActiveDocument Is Nothing) Then
		For Each m_Topic In ActiveDocument.Range(mmRangeAllTopics, True)
			With m_Topic
				If .DataContainer.DataContainerType = mmDataContainerTypeCustomProperties Then
					For Each m_Property In .DataContainer.CustomProperties.CustomPropertyCollection
						If UCase(m_Property.CustomPropertyName) = UCase(T_CostPropertyName) Then
							If IsNumeric(CStr(m_Property.Value)) Then
								.Task.GeneralCost = CDbl(m_Property.Value)
								.DataContainer.CustomProperties.CustomPropertyCollection.RemoveCustomProperty(m_Property.Uri)
							End If
							Exit For
						End If
					Next
				End If
			End With
		Next
	End If

End Sub