<div dir="ltr"><br><div class="gmail_extra"><br><div class="gmail_quote">On Sat, Nov 4, 2017 at 9:57 AM, Jambunathan K <span dir="ltr"><<a href="mailto:kjambunathan@gmail.com" target="_blank">kjambunathan@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr"><div><div>Hello<br><br></div>Could someone help me with a Basic Macro that does  <br><br>   "Writer Menu->Edit->Links->[Select All]->Break Link"<span class="gmail-HOEnZb"><font color="#888888"><br><br></font></span></div><span class="gmail-HOEnZb"><font color="#888888">Jambunathan K.<br></font></span></div></blockquote><div><br><br></div><div>The following macro does the job.<br><br>Sub BreakLinks()<br>   Dim section, sectionNames<br>   Dim sectionFileLink as new com.sun.star.text.SectionFileLink<br><br>   sectionFileLink.FileURL=""<br><br>   sSectionNames = ThisComponent.getTextSections().getElementNames()<br><br>   For i = 0 To UBound(sSectionNames)<br>      section = ThisComponent.getTextSections().getByName(sSectionNames(i))<br>      section.setPropertyValue("FileLink",sectionFileLInk)<br>   Next<br>End Sub<br><br> <br></div></div><br></div></div>