1vJ7IguEWBfVakYkVCE5n3 changeset

Changeset336637613362 (b)
Parent323664646231 (a)
ab
11        selection = ThisComponent.CurrentSelection
22        Select Case (selection.ImplementationName)
33                Case "ScCellObj"
...
4+                        If (selection.String = "") Then
4+                                Exit Sub
4+                        End If
...
44                        ReplaceHyperlink(selection)
55                Case "ScCellRangeObj"
66                        RangeReplaceHyperlink(selection.RangeAddress)
...
1
2
3
4
5
6
7
8
9
10
11
12
--- Revision 323664646231
+++ Revision 336637613362
@@ -2,6 +2,9 @@
 	selection = ThisComponent.CurrentSelection
 	Select Case (selection.ImplementationName)
 		Case "ScCellObj"
+			If (selection.String = "") Then
+				Exit Sub
+			End If
 			ReplaceHyperlink(selection)
 		Case "ScCellRangeObj"
 			RangeReplaceHyperlink(selection.RangeAddress)