OpenOffice.info

Code: Alles auswählen

REM  *****  BASIC  *****
'Entfernt alle Bereiche eines Writerdokuments,
'wenn das dokument nicht als Vorlage(*.*.ott) abgespeichert ist. 
'Dabei bleibt der Inhalt der Bereiche  erhalten, 
'aber er ist somit nicht mehr in den Bereiche, 
'und die Verknüpfungen sind auch gelöscht.
Sub bereiche_entfernen
dim oDoc as Object
dim oBereiche as Object
dim i As Integer
Dim sExtension As String
dim aNames() As String
'die Bibliothek "Tools" wird für die Funktion " GetFileNameExtension(oDoc.Title)" benötigt
GlobalScope.BasicLibraries.LoadLibrary("Tools")'Bibliothek "Tools" ladem
  oDoc=thisComponent 'Aktuelles Dokument
  If oDoc.haslocation()Then 'ünerprüfen, ob es schon abgespeichert wurde
  sExtension = GetFileNameExtension( oDoc.Title) 'Endung herausfinden
    if sExtension <> "ott" Then 'Wenn es die Vorlagen-Eendung ist abbrechen
      oBereiche =oDoc.getLinks().getByName("Bereiche") 'alle Bereiche
      aNames()= obereiche.getElementNames 'Namen aller Bereiche
      for i=0 To UBound(aNames()) 'Schleife über alle Bereiche
        oBereiche.getByName(aNames(i)).dispose 'Alle Bereiche löschen.
        ' Dabei wird der Inhalt der Bereiche nicht gelöscht.
      Next
    end if 
  end if
End Sub

Code: Alles auswählen

REM  *****  BASIC  *****
' Dises Makro entfernt alle Verknüpfungen in einem Dokument, 
'sofern das Dokument schon einmahl gespeichert wurde,
'und es keine Calc-Vorlage (ots) ist.
Sub remove_AreaLinks
dim oDoc as Object
dim oLinks as Object
Dim sExtension As String
'die Bibliothek "Tools" wird für die Funktion " GetFileNameExtension(oDoc.Title)" benötigt
GlobalScope.BasicLibraries.LoadLibrary("Tools")'Bibliothek "Tools" ladem
  oDoc=thisComponent 'Aktuelles Dokument
  If oDoc.haslocation()Then 'ünerprüfen, ob es schon abgespeichert wurde
  sExtension = GetFileNameExtension( oDoc.Title) 'Endung herausfinden
    if sExtension <> "ots" Then 'Wenn es die Vorlagen-Eendung ist abbrechen
      oLinks = oDoc.AreaLinks 'verknüpfte Bereiche 
      for n = 0 To oLinks.getcount-1 'Schleife über alle verknüpften Bereiche
        oLinks.removeByIndex(0) 'Verknüpfung löschen
      Next 'ende der Schleife
    end if 
  end if
End Sub