title: Word VBA: Add textboxes with in-line text wrapping to end of document
body: <p>I'm trying to write a macro which will insert textboxes in a Word document, and format them with in-line-with-text text wrapping.</p>
  
  <p>Here's my code so far:</p>
  
  <pre><code>Sub Example()
      Dim newTextbox As Shape
      For I = 1 To 10
          Set newTextbox = ActiveDocument.Shapes.AddTextbox _
          (Orientation:=msoTextOrientationHorizontal, _
          Left:=0, Top:=0, Width:=100, Height:=50)
          newTextbox.WrapFormat.Type = wdWrapInline
          newTextbox.TextFrame.TextRange = I
      Next
  End Sub
  </code></pre>
  
  <p>The issue I'm having is that instead of each textbox being added to the start of document, as is currently happening, I need it to be added to the end. I understand that in the example I've given, I could simply use <code>For I = 10 To 1 Step -1</code>. However, due to my use of the textboxes in the actual project I'm working on, this is not possible.</p>
  
  <p>I have spent a few hours playing with the code but just haven't been able to figure it out. Thanks in advance for any help.</p>
  
  <p>Josh.</p>