[Writer] Macro for "Edit->Links->[Select All]->Break Link

[Jambunathan K]

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>