Microsoft Office Forums - View Single Post - Selecting and moving text boxes identified by specific text.

macropod · 02-21-2016, 05:58 PM

It's a good thing you provided the attachment; they're not textboxes but frames. As per my previous advice, you could move one such frame into the page header and delete the rest, but the following code just changes the alignment:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim i As Long, sngPos As Single
With ActiveDocument
  For i = 1 To .Frames.Count
    With .Frames(i)
      If .Range.Text Like "*(??? ## - ??? ##)" Then
        sngPos = .HorizontalPosition
        Exit For
      End If
    End With
  Next
  For i = 1 To .Frames.Count
    With .Frames(i)
      If InStr(.Range.Text, "Main Accounts Group :") > 0 Then
        .HorizontalPosition = sngPos
      End If
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub