LibreOffice custom “Set numbering”/“Restart numbering from” macro

20 May 2018 | guide libreoffice openoffice basic opendocument numbering | Comment

Sub RestartNumbering
	Dim cursor   As Object
	cursor = ThisComponent.CurrentController.ViewCursor
	
	Dim startFrom As Integer
	startFrom = CInt(InputBox("Restart numbering from:"))
	
	cursor.NumberingStartValue = startFrom
End Sub