Johan,
This is not a free macro writing service. To get you started, you could try something like this:
Code:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Range
Dim oRngConvert As Range
Set oRng = ActiveDocument.Range
With oRng.Find
.Text = "Question [0-9]{1,}"
.MatchWildcards = True
While .Execute
oRng.MoveEnd wdParagraph, 7
Set oRngConvert = oRng.Duplicate
oRngConvert.ConvertToTable
oRngConvert.End = oRngConvert.Tables(1).Range.End
oRngConvert.Collapse wdCollapseEnd
oRngConvert.InsertBefore vbCr
oRng.Collapse wdCollapseEnd
Wend
End With
lbl_Exit:
Exit Sub
End Sub