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

On Sat, Nov 4, 2017 at 9:57 AM, Jambunathan K <kjambunathan@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