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