Classe FileConverter - convertisseur de fichier (Word VBA)

La classe FileConverter représente un convertisseur de fichier qui est utilisé pour ouvrir ou enregistrer des fichiers. Pour utiliser une variable de classe FileConverter, elle doit d'abord être instanciée, par exemple

Dim fcr as FileConverter
Set fcr = FileConverters(Index:=1)

For Each

Voici un exemple de traitement des éléments FileConverter dans une collection

Dim fcr As FileConverter
For Each fcr In FileConverters
	 If fcr.CanOpen = True Then MsgBox fcr.OpenFormat & vbCr & fcr.FormatName
Next fcr

CanOpen

True si le convertisseur de fichier spécifié est conçu pour ouvrir des fichiers.

La propriété CanSave renvoie la valeur True si le convertisseur de fichier spécifié peut être utilisé pour enregistrer (exporter) des fichiers.

If FileConverters(1).CanOpen = True Then 
 MsgBox FileConverters(1).FormatName & " can open files" 
End If

CanSave

True si le convertisseur de fichier spécifié est conçu pour enregistrer des fichiers.

La propriété CanOpen renvoie la valeur True si le convertisseur de fichier spécifié peut être utilisé pour ouvrir (importer) des fichiers.

Dim lngSaveFormat As Long 
 
If Application.FileConverters("WordPerfect6x").CanSave = _ 
 True Then 
 lngSaveFormat = _ 
 Application.FileConverters("WordPerfect6x").SaveFormat 
 ActiveDocument.SaveAs FileName:="C:\Document.wp", _ 
 FileFormat:=lngSaveFormat 
End If

ClassName

Renvoie un nom unique qui identifie le convertisseur de fichier.

MsgBox "ClassName= " & FileConverters(1).ClassName & vbCr _ 
 & "FormatName= " & FileConverters(1).FormatName

Extensions

Renvoie les extensions de nom de fichier associées à l’objet FileConverter spécifié.

Dim fcTemp As FileConverter 
 
Set fcTemp = FileConverters(1) 
MsgBox "The file name extensions for " & fcTemp.FormatName _ 
 & " files are: " & fcTemp.Extensions

FormatName

Renvoie le nom du convertisseur de fichier spécifié.

Les noms de format sont affichés dans la zone Type de fichier de la boîte de dialogue Enregistrer sous (menu Fichier).

MsgBox FileConverters(1).FormatName

Name

Retourne le nom de l'objet spécifié.

Dim strName As String
strName = FileConverters(1).Name

OpenFormat

Renvoie le format de fichier du convertisseur de fichier spécifié.

Cette propriété peut être n'importe quelle constante WdOpenFormat valide ou un nombre unique qui représente un convertisseur de fichier externe.

For Each fc In FileConverters 
 If fc.CanOpen = True Then _ 
 MsgBox fc.OpenFormat & vbCr & fc.FormatName 
Next fc

Path

Renvoie le disque ou le chemin d'accès au Web à l'objet spécifié.

Le chemin d'accès n'inclut pas un caractère de fin — par exemple, « C:\MSOffice » ou « https://MyServer ».

Dim strPath As String
strPath = FileConverters(1).Path

SaveFormat

Renvoie le format de fichier du convertisseur de fichier ou de document spécifié.

Cette propriété renvoie un numéro unique qui spécifie un convertisseur de fichier externe ou une constante WdSaveFormat .

Sub FileConverterList() 
 Dim cnvFile As FileConverter 
 Dim docNew As Document 
 
 'Create a new document and set a tab stop 
 Set docNew = Documents.Add 
 docNew.Paragraphs.Format.TabStops.Add _ 
 Position:=InchesToPoints(3) 
 
 'List all the converters in the FileConverters collection 
 With docNew.Content 
 .InsertAfter "Name" & vbTab & "Number" 
 .InsertParagraphAfter 
 For Each cnvFile In FileConverters 
 If cnvFile.CanSave = True Then 
 .InsertAfter cnvFile.FormatName & vbTab & _ 
 cnvFile.SaveFormat 
 .InsertParagraphAfter 
 End If 
 Next 
 .ConvertToTable 
 End With 
 
End Sub