OpenOffice.info

Code: Alles auswählen

Function GetDateAsString as string
  Dim sdatum as String
  Dim szeit as String
  Dim snew1 as String
  Dim snew2 as String
   GlobalScope.BasicLibraries.LoadLibrary("Tools")
  sDatum=date
  sNew1=DeleteStr(sdatum,".")   
  szeit=time
  sNew2=DeleteStr(szeit,":") 
  GetDateAsString="_vom"+sNew1+"_Uhrzeit"+sNew2
end Function

Code: Alles auswählen

  com.sun.star.text.MailMergeType.FILE 
        .OutputUrl = "file:///C:/"      
        .FileNamePrefix = "serienbrief"+erstellungsdatum                'hier speicher ich das dokument mit dem datum und uhrzeit
        .SaveAsSingleFile=True
        .execute(Array())
        .dispose()
        msgbox "Serienbrief erstellt"

Code: Alles auswählen

 Dim sURL$                        
    Dim oSvc as object

    oSvc = createUnoService("com.sun.star.system.SystemShellExecute")           
    sURL = "file:////C:/serienbrief.odt"               'hier möchte ich das gespeicherte dokument mit datum und uhrzeit öffnen
    oSvc.execute(sURL, "", 0)

Code: Alles auswählen

Sub killAltenBrief
    sUrl = "C:\serienbrief0.odt"
    If FileExists(sUrl) Then
        Kill sUrl
    else
        MsgBox "Datei nicht gefunden",48,"Fehler"
    End If
end sub

Code: Alles auswählen

Sub merge
   Dim mm as Object
   mm = CreateUnoService("com.sun.star.text.MailMerge")
   
   With mm
      .DocumentURL = "file:///C:/document.odt"
      .DataSourceName = "datenbankname"     'name der Datenbank 
      .CommandType = 0    
      .Command = "tabellenname"                   'Name der Tabelle, nicht Datenbankname
      
      .OutputType = 2
       com.sun.star.text.MailMergeType.FILE 
      .OutputUrl = "file:///C:/testordner/"      '
      .FileNamePrefix = "serienbrief" 
      .SaveAsSingleFile=True
      .execute(Array())
      .dispose()
      'msgbox "Serienbrief erstellt"
   End With
'end sub 

Code: Alles auswählen

Sub killAltenBrief
 Kill "C:\serienbrief0.odt"
end sub