Public Sub FieldsAnalise()
'Анализирует характеристики полей активного документа
	Dim MyField As Field
	With ActiveDocument
		Debug.Print "Число полей - ", .Fields.Count
		For Each MyField In .Fields
			With MyField
				Debug.Print "Код поля - ", .Code, _
				"Вид поля - ", .Kind, _
				"Тип поля - ", .Type, _
				"Результат поля - ", .Result
			End With
		Next MyField
	End With
End Sub