Klasse FileConverter - Dateikonverter (Word VBA)

Die Klasse FileConverter stellt einen Dateikonverter dar, der zum Öffnen oder Speichern von Dateien verwendet wird. Um eine FileConverter -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

For Each

Hier ist ein Beispiel für die Verarbeitung der FileConverter -Elemente in einer Sammlung

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

CanOpen

True, Wenn der angegebene Dateikonverter zum Öffnen von Dateien konzipiert ist.

Die CanSave -Eigenschaft gibt True zurück, wenn der angegebene Dateikonverter zum Speichern (exportieren) von Dateien verwendet werden kann.

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

CanSave

True, Wenn der angegebene Dateikonverter zum Speichern von Dateien konzipiert ist.

Die CanOpen -Eigenschaft gibt True zurück, wenn der angegebene Dateikonverter zum Öffnen (importieren) von Dateien verwendet werden kann.

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

Gibt einen eindeutigen Namen, der den Dateikonverter identifiziert.

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

Extensions

Gibt die Dateinamenerweiterungen zurück, die dem angegebenen FileConverter-Objekt zugeordnet sind.

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

FormatName

Gibt den Namen des angegebenen Dateikonvertierungsprogramms zurück.

Die Formatnamen erscheinen im Feld Dateityp, Dialogfeld Speichern unter im Menü Datei.

MsgBox FileConverters(1).FormatName

Name

Gibt den Namen des angegebenen Objekts zurück.

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

OpenFormat

Gibt das Dateiformat des angegebenen Dateikonvertierungsprogramms zurück.

Diese Eigenschaft kann eine beliebige gültige WdOpenFormat -Konstante oder eine eindeutige Zahl sein, die einen externen Dateikonverter darstellt.

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

Path

Gibt den Datenträger oder Webpfad zu dem angegebenen Objekt zurück.

Der Pfad enthält kein nachstehendes Zeichen, z. B. "C:\MSOffice" oder "https://MyServer".

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

SaveFormat

Gibt das Dateiformat des angegebenen Dokuments oder Dateikonverters zurück.

Mit dieser Eigenschaft wird eine eindeutige Zahl zurückgegeben, die einen externen Dateikonverter oder eine WdSaveFormat-Konstante angibt.

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