Friendpaste

--- Revision 656331373462
+++ Revision 353338353339
@@ -11,20 +11,21 @@
 			Next
 	End Select
 End Sub
-2
+
 Sub RangeReplaceHyperlink(ByVal address)
 	sheet = ThisComponent.Sheets(address.Sheet)
-	For y = address.StartRow To address.EndRow
-		For x = address.StartColumn To address.EndColumn
-			ReplaceHyperlink(sheet.getCellByPosition(x, y))
+	For x = address.StartColumn To address.EndColumn
+		For y = address.StartRow To address.EndRow
+			cell = sheet.getCellByPosition(x, y)
+			If (cell.String = "") Then
+				Exit For
+			End If
+			ReplaceHyperlink(cell)
 		Next
 	Next
 End Sub
 
 Sub ReplaceHyperlink(ByVal cell)
-	If (cell.String = "") Then
-		Exit Sub
-	End If
 	hyperlink = ThisComponent.createInstance("com.sun.star.text.TextField.URL")
 	hyperlink.Representation = cell.String
 	hyperlink.URL = cell.String
a	b
10	10		Next
11	11		End Select
12	12		End Sub
...
13		-	2
	13	+
...
14	14		Sub RangeReplaceHyperlink(ByVal address)
15	15		sheet = ThisComponent.Sheets(address.Sheet)
...
16		-	For y = address.StartRow To address.EndRow
16		-	For x = address.StartColumn To address.EndColumn
16		-	ReplaceHyperlink(sheet.getCellByPosition(x, y))
	16	+	For x = address.StartColumn To address.EndColumn
	16	+	For y = address.StartRow To address.EndRow
	16	+	cell = sheet.getCellByPosition(x, y)
	16	+	If (cell.String = "") Then
	16	+	Exit For
	16	+	End If
	16	+	ReplaceHyperlink(cell)
...
19	19		Next
20	20		Next
21	21		End Sub
22	22
23	23		Sub ReplaceHyperlink(ByVal cell)
...
24		-	If (cell.String = "") Then
24		-	Exit Sub
24		-	End If
...
27	27		hyperlink = ThisComponent.createInstance("com.sun.star.text.TextField.URL")
28	28		hyperlink.Representation = cell.String
29	29		hyperlink.URL = cell.String
...