Public Sub ConvertDoc()
	'Работа с конвертором
	Dim conv As FileConverter
	Debug.Print Application.FileConverters.Count
	For Each conv In Application.FileConverters
		Debug.Print conv.Name, conv.FormatName, conv.ClassName
		If conv.CanOpen And conv.CanSave Then
			Debug.Print "Конвертор может открывать и сохранять файлы"
		End If
	Next conv
End Sub