I'd approach the task rather differently:
Code:
Sub Demo()
Application.ScreenUpdating = False
Dim Tbl As Table, Rng As Range, r As Long
With ActiveDocument
Do While .Tables.Count > 0
.Tables(1).Delete
Loop
Set Tbl = .Range.ConvertToTable
With Tbl
.Columns.Add
.PreferredWidthType = wdPreferredWidthPercent
.PreferredWidth = 100
For r = 1 To .Rows.Count
Set Rng = .Cell(r, 1).Range
Rng.End = Rng.End - 1
With .Cell(r, 2).Range
.FormattedText = Rng.FormattedText
.LanguageID = wdEnglishAUS 'set your target language
.Editors.Add wdEditorEveryone
End With
Next
End With
.Protect Type:=wdAllowOnlyReading
End With
Application.ScreenUpdating = True
End Sub
The above code deletes all existing tables, then converts what remains to a two-column table, with the same content in both columns, the second of which remains unprotected. This gives you a document in which you'll have the original content on the left and your translation text on the right, with rows aligned at the paragraph level.