title: Shift text in Power Point 2007 text box using VBA
body: <p>I need to shift the position of text in all textboxes (1 textbox per slide). The subtitles' first language is in white and there's English in yellow. Now I'd like yellow to be on top, white below. So first I'd like to select white, copy, erase, go to the end of yellow and paste (with line break between white/yellow). Can it be done?</p>
  
  <p>Maybe some change to such script would help?</p>
  
  <pre><code>Sub RemoveWhiteText()
  
      Dim oSl As Slide
      Dim oSh As Shape
  
  
      With ActivePresentation
  
  For Each oSl In .Slides
      For Each oSh In oSl.Shapes
          With oSh
              If .HasTextFrame Then
                  If .TextFrame.HasText Then
                      If TextRange.Font.Color = vbWhite Then
                          oSh.TextFrame.Text
                      End If
                  End If
              End If
          End With
      Next
  Next
  
      End With
  End Sub
  </code></pre>