title image


Smiley Dateikonverter bestimmen
HalloWer kennt sich dabei aus und kann mir weiterhelfen?Ausgangssituation:Unter Word speichere ich das Dokument im Ascii-Format.MS-DOS Text mit Layout (*.asc) fügt nach jeder Bildschirmzeile ein Return ein.MS-DOS-Text (*.txt) belässt die Absätze zusammen.Problem:VBA Wd97: Ich versuche den Konverter 'MS-DOS-Text (*.txt)' für das Speichern zu verwenden, kann diesen aber mit meinem Makro nicht feststellen. Der Konverter 'MS-DOS Text mit Layout' hingegen taucht in 'FileConverters' auf und lässt sich problemlos im Makro anwenden.Frage:Wenn ich die Sub Konverterliste ausführe, erhalte ich doch alle Konverter, die aktuell zur Verfügung stehen? Welcher Eintrag entspricht denn dem Dateityp 'MS-DOS-Text (*.txt)' im Dialog 'Speichern unter...' von Word?Im Folgenden lauffähige Makro-Beispiele.Grüsse und vielen Dank für AntwortenMartin___________________________________Sub Konverterliste()Liste = ""For Each DateiKonverter In FileConverters Liste = Liste + Chr$(13) + DateiKonverterNext DateiKonverterMsgBox ListeEnd Sub______________________________________________________________________Sub KonverterAuswahl ()'KonverterName="MS-DOS Text mit Layout"'KonverterName="MS-DOS-Text (*.txt)"KonverterName="MS-DOS-Text"DF = -1For Each DateiKonverter In FileConverters If DateiKonverter.FormatName = KonverterName Then DF = DateiKonverter.SaveFormat Exit For End IfNext DateiKonverterIf DF >= 0 then MsgBox (KonverterName + " besitzt Format-Nummer: " + Str(DF)) Set DlgSpeichernUnter = Dialogs(wdDialogFileSaveAs) With DlgSpeichernUnter .Name = "xxx" .Format = DF ' ausw = .Show ausw = .Display End WithElse MsgBox "Konverter nicht gefunden."End ifEnd Sub___________________________________

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: