.doc in .odt konvertieren

Mit dem Plug-in "StarOffice 8 Conversion Technology Preview" können in Word 2003 Dateien   

 im OpenDocument-Format (ODF) geöffnet und bearbeitet werden. 

 
Nach der Installation dieser Vorabversion des "StarOffice 8 Conversion Technology Preview"    
ist es möglich, Dateien im StarOffice- bzw. OpenOffice-Format (ODF) in Microsoft Word zu 
öffnen, zu bearbeiten und zu speichern. Zusätzlich kann ODF als Standard-Format 
eingestellt werden.


Hinweis: Die Preview-Version funktioniert bisher nur mit Microsoft Office Word 2003. Da 
es sich um eine Beta-Version handelt, können derzeit noch vereinzelt Fehler auftreten.

sub Save_as
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")  

rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"  
<b> args1(0).Value = "file:///E:/Files/neu.odt" </b>  
args1(1).Name = "FilterName"  
args1(1).Value = "writer8"  
args1(2).Name = "SelectionOnly"  
args1(2).Value = true

dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())  


end sub

Option Explicit

Sub autoopen()

'Dieses Makro liest den Dateinamen des aktuellen Dokumentes aus und speichert ihn an einem beliebigen Ort im Format .txt wieder ab.  



' Variable für das aktive Worddokument  
Dim objdoc As Word.Document

' Variablen zum Auslesen des Dateinamens  
Dim docname As String
Dim get_char As String
Dim output As String
Dim i As Integer


Set objdoc = ActiveDocument

docname = objdoc.name

    If Right(docname, 4) = ".doc" Then  


        ' Die For-Schleife sucht den Dateinamen heraus;  
        ' Der Dateiname darf keine "." enthalten, sonst wird vorzeitig abgebrochen.  
        
        For i = 1 To Len(docname)
        
            get_char = Mid(docname, i, 1)
            
            If get_char = "." Then  
            
                output = output
            
                Exit For
            
            Else
            
                output = output & get_char
            
            End If
            
        Next i
        ' Der Ordner zum Speichern ist das Laufwerk E:  
        ' Um die Datei im Ursprungspfad zu speichern, muss die Zeile  
        ' ChangeFileOpenDirectory "E:\" auskommentiert bzw. gelöscht werden.  
        ' Der Dateiname setzt sich aus dem Dateinamen (output) und der Dateiendung .txt zusammmen  
        ' Der gewählte Dateityp ist ein einfaches Textformat.  
        ' die übrigen Angaben sind optional und haben mit dem Projekt wenig zu tun.  
        
'        ChangeFileOpenDirectory "E:\"  
        ActiveDocument.SaveAs FileName:=output & ".txt", FileFormat:=wdFormatText, _  
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _  
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _  
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
    
    
    Else
    
        
    End If





End Sub