%
% function ms_word()
%    Zugriff auf MS-Word
%
function ms_word()
   % Word starten
   h = actxserver ( 'Word.Application' )
   
   hInt = h.interfaces
   
   % Daten und zusätzliche Interfaces,
   h.get
   % sichtbar machen
   h.Visible = 1;

   % Word-Dokumente
   docs = h.Documents
   
   docs.get
   % Methoden
   docs.invoke
   
   % neues Dokument erzeugen
   doc = docs.Add
   
   
   % Inhalt des Dokuments
   c = doc.Content
   c.invoke
   % Text einfügen
   c.InsertAfter( 'hello, Word' )
   
   % aktuelles Verzeichnis bestimmen
   path = pwd
   % Datei im aktuellen Verzeichnis
   filename = [path,'\ms_word.doc']
   
   % Word-Datei speichern
   doc.SaveAs2( filename )
   
   % 2 Sekunden warten
   pause( 2 )
   
   % Schließen und Beenden
   doc.Close
   h.Quit
   h.delete
end