Take existing Q&A Text And Convert to alternating Question and Answer Styles

[choward]

We have a text file that has questions and answers from an interview. The format is below:



Speaker 0: Hello

Speaker 1: Hello.

Speaker 0: Question

Speaker 1: Answer

From that text file in that format, we would want to convert that text into an alternating Question Style and Answer Style that we have already created within a word doc template.

A picture of the final version is attached.

Thank you!

[gmayor]

If there are only alternate questions and answers in the text and each answer has only one paragraph then the following macro will do the job. Create a new blank document from your template and paste the text into it, then run the macro. If the text does not fit these criteria then it gets a lot more complicated:

Sub Macro1()
Dim oRng As Range
Dim oPara As Paragraph
Dim i As Long
    For Each oPara In ActiveDocument.Paragraphs
        Set oRng = oPara.Range
        oRng.End = oRng.End - 1
        If Len(oRng) = 0 Then oPara.Range.Delete
    Next oPara
    For i = 1 To ActiveDocument.Paragraphs.Count
        Set oRng = ActiveDocument.Paragraphs(i).Range
        oRng.Text = Trim(Split(oRng.Text, ":")(1))
        If i Mod 2 = 0 Then
            oRng.Style = "Answer"
        Else
            oRng.Style = "Question"
        End If
    Next i
    Set oRng = Nothing
    Set oPara = Nothing
End Sub