Code Snippet "VBA Word"

Speichert ein Dokument als Textfile im Unicode-Format

Sub SaveWithEncoding()
  With ActiveDocument
    .SaveEncoding = msoEncodingCyrillic
    .SaveAs FileName:="vr_01_NurRussischeTexte.txt", _
      FileFormat:=wdFormatUnicodeText
  End With
End Sub