Sub CleanProp()
	Dim oProp As DocumentProperty
	On Error Resume Next
	For Each oProp In 					ActiveDocument.BuiltInDocumentProperties
	oProp.Value = ""
	Next oProp
End Sub