Issue 8145

Recording a macro to perform the following actions does not create the expected
code:

 1. Create a bulleted list
 2. Select the bulleted list
 3. Select "Tools->Macros->Record Macro" to start recording
 4. Select "Format->Numbering/Bullets..."
 5. Select the "Options" tab
 6. Click on the "..." button (adjacent to "Character" label)
 7. Select the desired font/character from the "Special Characters" dialog
 8. Click "OK" to dismiss the "Special Characters" dialog
 9. Click "OK" to dismiss the "Numbering/Bullets" dialog
10. Click on the floating "Stop Recording" button

Highlighting another bulleted list and running the generated code does not
repeat the recorded action.  The generated code is shown below:

---cut here---
sub Issue
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
dim parser     as object
dim url        as new com.sun.star.util.URL
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
parser   = createUnoService("com.sun.star.util.URLTransformer")

rem ----------------------------------------------------------------------
rem dispatch
url.Complete = ".uno:BulletsAndNumberingDialog"
parser.parseStrict(url)
disp = document.queryDispatch(url,"",0)
disp.dispatch(url,noargs())


end sub
---cut here---