Sub Demo2()
Dim oTable As Table
    Application.ScreenUpdating = False
    With ActiveDocument.Range
        With .Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = "£"
            .Forward = True
            .Wrap = wdFindStop
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute
        End With
        Do While .Find.Found
            Set oTable = .Paragraphs.First.Range.ConvertToTable _
                         (Separator:="£", AutoFit:=True, _
                          Format:=wdTableFormatList3, _
                          AutoFitBehavior:=wdAutoFitContent)
            oTable.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
            .Collapse wdCollapseEnd
            .Find.Execute
        Loop
    End With
    Application.ScreenUpdating = True
End Sub