[MeteorOmega]

Hi, all!

I am producing a Powerpoint presentation using blocks of text from a Word document. The text is currently in the following format:

[Spanish question]
[Spanish response]
[English translation]

[Spanish question]
[Spanish response]
[English translation], etc.

My goal is to import this Word document as an a Powerpoint outline. I've been using two macros to prepare the document:

Macro 1: Moving English to the middle
I need the English translation to directly follow the Spanish question. Here's the macro that I've been using:

Sub MoveEnglish()
  '
  ' MoveEnglish Macro
  '
  '
  Do
      Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
      Selection.Cut
      Selection.MoveUp Unit:=wdLine, Count:=1
      Selection.PasteAndFormat (wdPasteDefault)
      Selection.MoveDown Unit:=wdLine, Count:=4
  Loop Until (Selection.End = ActiveDocument.Content.End - 1)
  End Sub

Macro 2: Adding tabs
Based on what I've read, Powerpoint uses tabs to translate a text outline into a presentation. A single tab designates a main bullet, while two tabs designate a secondary bullet. I'm using tabs to set the Spanish question as the title, the English translation as the main bullet, and the Spanish response as the secondary bullet. In other words:

Slide title
[Tab]Main bullet
[Tab][Tab]Secondary bullet

I've been using the following macro to add tabs to the text:

Sub AddTabs()
  '
  ' AddTabs Macro
  '
  '
  Do
      Selection.TypeText Text:=vbTab
      Selection.MoveLeft Unit:=wdCharacter, Count:=1
      Selection.MoveDown Unit:=wdLine, Count:=1
      Selection.TypeText Text:=vbTab
      Selection.TypeText Text:=vbTab
      Selection.MoveLeft Unit:=wdCharacter, Count:=1
      Selection.MoveDown Unit:=wdLine, Count:=1
      Selection.Delete Unit:=wdCharacter, Count:=1
      Selection.MoveDown Unit:=wdLine, Count:=1
  Loop Until (Selection.End = ActiveDocument.Content.End - 1)
  End Sub

Powerpoint
I'm displaying the question/translation/response set on a single slide in Powerpoint. I've created three different shapes to hold the three sentences. I've made each shape a content placeholder. Here's what I want:

[First shape: Question]
[Second shape: Translation]
[Third shape: Response]

However, when I import my text outline, all 3 sentences end up as main bullets in the first shape. The second two shapes are left empty. Here's what I get:

[First shape: Question
                  Translation
                  Response]
[Second shape]
[Third shape]

So, here are my 2 questions:

1. Both macros keep skipping lines and getting hung up. I have a hunch that it has to do with the loop that I used. Is there a better/more "standard" way to loop until the end of the document?
2. Is there a way to force Powerpoint to distribute the 3 sentences to 3 different shapes when I import my outline?

Thanks a ton.