On Sat, Nov 4, 2017 at 9:57 AM, Jambunathan K <kjambunat...@gmail.com>
wrote:
> Hello
>
> Could someone help me with a Basic Macro that does
>
> "Writer Menu->Edit->Links->[Select All]->Break Link"
>
> Jambunathan K.
>
The following macro does the job.
Sub BreakLinks()
Dim section, sectionNames
Dim sectionFileLink as new com.sun.star.text.SectionFileLink
sectionFileLink.FileURL=""
sSectionNames = ThisComponent.getTextSections().getElementNames()
For i = 0 To UBound(sSectionNames)
section = ThisComponent.getTextSections().getByName(sSectionNames(i))
section.setPropertyValue("FileLink",sectionFileLInk)
Next
End Sub
_______________________________________________
LibreOffice mailing list
LibreOffice@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice
