Code Snippet "VBA Word"

Gibt für markierte russische Textstelle in Unicode die Zeichen für die Schrift "Times Glas" zurück

Function funChangeToCyrillic(ByVal strChange)
' gibt für eine markierte russische Textstelle in Unicode die Zeichen für
' die Schrift "Times Glas" zurück!

  Const STR_TEMPFILE = "F:\dateienmitkopie\dateien\learning\russisch\Texte\temp.txt"
  Dim strTemp
  
  'erzeugt neues leeres Dokument
  Documents.Add DocumentType:=wdNewBlankDocument
  Selection.Range.InsertBefore strChange
  
  With ActiveDocument
    .SaveEncoding = msoEncodingCyrillic
    .SaveAs FileName:=STR_TEMPFILE, _
      FileFormat:=wdFormatUnicodeText
  End With
  ActiveDocument.Close
  
  Documents.Open FileName:=STR_TEMPFILE, ConfirmConversions:=False, ReadOnly:= _
    False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
    "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
    Format:=wdOpenFormatAuto
  Selection.WholeStory
  Selection.End = Selection.End - 1
  strTemp = Selection.Range.Text
  
  ActiveDocument.Close
  
  funChangeToCyrillic = strTemp
  
End Function