Klasse FileConverter (Word VBA)

Die Klasse FileConverter stellt einen Dateikonverter dar, der zum Öffnen oder Speichern von Dateien verwendet wird.

Set

Um eine FileConverter -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

Die folgenden Prozeduren können zum Festlegen der FileConverter Klassenvariablen verwendet werden : FileConverters.Item und Application.FileConverters

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

Themas

Die folgenden Prozeduren in dieser Klasse wurden zusammengefasst und auf eine separate Themenseite beschrieben

Name with its procedures ClassName, FormatName und Name

Eigenschaften

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

Dim booCanOpen As Boolean
booCanOpen = FileConverters(1).CanOpen

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

Dim booCanSave As Boolean
booCanSave = FileConverters(1).CanSave

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

Dim strExtensions As String
strExtensions = FileConverters(1).Extensions

OpenFormat Gibt das Dateiformat des angegebenen Dateikonvertierungsprogramms zurück.

Dim lngOpenFormat As Long
lngOpenFormat = FileConverters(1).OpenFormat

Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen FileConverter-Objekts darstellt.

Dim objParent As Object
Set objParent = FileConverters(1).Parent

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

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

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

Dim lngSaveFormat As Long
lngSaveFormat = FileConverters(1).SaveFormat

FileConverters.ConvertMacWordChevrons Steuert, ob Text, der in Chevron-Zeichen («») eingeschlossen ist, in Seriendruckfelder konvertiert wird.

FileConverters.ConvertMacWordChevrons = wdAlwaysConvert

FileConverters.Count Gibt einen Wert vom Typ Long zurück, der die Anzahl der Dateikonverter in der Auflistung darstellt.

Dim lngCount As Long
lngCount = FileConverters.Count

FileConverters.Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen FileConverters-Objekts darstellt.

Dim objParent As Object
Set objParent = FileConverters.Parent