Added previous/next text buttons

Modules/Buttons.bas

@@ -20,6 +20,20 @@ Private Sub AddButtons()
             .Style = msoButtonCaption
         End With
 
+        ' Add previous text
+        With .Add(msoControlButton)
+            .Caption = "&Previous Text"
+            .OnAction = "PreviousText"
+            .Style = msoButtonCaption
+        End With
+
+        ' Add next text
+        With .Add(msoControlButton)
+            .Caption = "&Next Text"
+            .OnAction = "NextText"
+            .Style = msoButtonCaption
+        End With
+
         ' Add regex search
         ' With .Add(msoControlButton)
         '     .Caption = "&Regex Search"

Modules/ChangeText.bas

@@ -31,10 +31,12 @@ Public Sub NextText(Optional ByVal UseNext As Boolean = True)
         ' Set that we've found a shape
         If shp.Id = CurrentShapeId Then Found = True
 
+        ' If using previous shape, we should have already found it
         If Not UseNext Then
             If Found Then
                 ' Select last text shape if it's available
-                If LastTextShape Is Not Nothing Then LastTextShape.Select
+                On Error Resume Next
+                LastTextShape.Select
                 Exit Sub
             ElseIf HasText(shp) Then
                 ' Set last text shape
@@ -45,5 +47,5 @@ Public Sub NextText(Optional ByVal UseNext As Boolean = True)
 End Sub
 
 Public Sub PreviousText()
-    IncText False
+    NextText False
 End Sub