[Writer] Macro for "Edit->Links->[Select All]->Break Link
Jambunathan K
kjambunathan at gmail.com
Wed Nov 15 08:18:09 UTC 2017
On Sat, Nov 4, 2017 at 9:57 AM, Jambunathan K <kjambunathan at 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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.freedesktop.org/archives/libreoffice/attachments/20171115/e629f9de/attachment.html>
More information about the LibreOffice
mailing list