OpenOffice.info

def remove_hyperlinks(*_):
    doc = XSCRIPTCONTEXT.getDocument()
    sel = doc.CurrentSelection    
    links = sel.queryContentCells(512)
    if links:
        for cell in links.Cells:
            for field in cell.TextFields:
                field.URL = ""
                field.Representation = ""

Hallo

Achtung python
[code]def remove_hyperlinks(*_):
doc = XSCRIPTCONTEXT.getDocument()
sel = doc.CurrentSelection
links = sel.queryContentCells(512)
if links:
for cell in links.Cells:
for field in cell.TextFields:
field.URL = ""
field.Representation = ""[/code]
Als VBA-profi bist du sicher in der Lage, vorher die Tastaturkombi [b][size=150]strg+shift+↓[/size][/b] zu drücken

Hallo zusammen,
ich nutze LibreOffice Calc erst seid kurzem, habe bis jetzt Excel mit VBA genutzt und möchte auf Calc umsteigen.


In einer Tabelle „Termine.xlsm“ habe ich eine Schleife mit der ich alte Hyperlinks lösche, unter Calc erfolgt leider eine Fehlermeldung.

Hier die Schleife wie sie unter Excel funktioniert hat. Was muss ich änder damit sie in Calc auch klappt?

Do Until ActiveCell.Value = ""[img][/img]
' Selection.Hyperlinks.Delete
ActiveCell.Hyperlinks.Delete
ActiveCell.Offset(1, 0).Select
Loop ' Ende Schleife Hyperlink löschen

Fehlermeldung:

[attachment=0]ActiveCell.Hyperlinks.Delete.jpg[/attachment]

Lieben Gruß CPP