ConvertWord показывает список дополнительных конвертеров документов Word
For Each converter in Me.Word.FileConverters
Name = converter.FormatName & « (*.» & converter.Extensions & «)»
	If converter.CanOpen Then sdo(converter.OpenFormat) = Name
	If converter.CanSave Then
		sds(converter.SaveFormat) = Name
		sdx(converter.SaveFormat) = Split(converter.Extensions)(0)
	End If
Next

Поделитесь материалом с коллегами и друзьями