Schwaches w als neues Word.Application
Schwaches Doc. als Word.Document
filePath = „c:\. \ test.doc“
filePathTxt = „c:\. \ test.txt“
Einstellen Doc. = w.Documents.Open (filePath)
doc.SaveAs Dateiname: =filePathTxt, FileFormat: =wdFormatText, _
LockComments: =False, Kennwort: = "", AddToRecentFiles: =True, WritePassword _
: = "", ReadOnlyRecommended: =False, EmbedTrueTypeFonts: =False, _
SaveNativePictureFormat: =False, SaveFormsData: =False, SaveAsAOCELetter: = _
Falsch, verschlüsselnd: =1252, InsertLineBreaks: =False, AllowSubstitutions: =False _
, LineEnding: =wdCRLF
|