[Libreoffice-bugs] [Bug 151710] Toolbar button for enclosing text in () brackets

[bugzilla-daemon]

https://bugs.documentfoundation.org/show_bug.cgi?id=151710

--- Comment #6 from Jim Raykowski <rayk...@gmail.com> ---
I just today discovered that macros can be assigned shortcuts :-)

Menu > Tools > Customize > Keyboard
Category -> Application Macros

FWIW here is a Basic macro that will place () around selected text.
Disclaimer: I'm no basic macro expert so YMMV.

Sub Parenthesize
  Dim oCurrentSelection as Object
  oCurrentSelection = thisComponent.getCurrentSelection()
  if oCurrentSelection.supportsService("com.sun.star.text.TextRanges") then
    nCount = oCurrentSelection.Count
    if nCount = 1 then
      oTextRange = oCurrentSelection.getByIndex(0)
      oTextRange.String = "(" + oTextRange.String + ")"
    else
      for i = 1 to nCount - 1
        oTextRange = oCurrentSelection.getByIndex(i)
        oTextRange.String = "(" + oTextRange.String + ")"
      next
    end if
  end if
End Sub

-- 
You are receiving this mail because:
You are the assignee for the bug.