Hier nochmal der entsprechende Ausschnitt komplett auf deinen Code angepasst:

With wdApp.Selection
   .TypeText Text:=Einleitungstext
   .TypeParagraph
   .TypeParagraph
   .TypeText Text:="Text1:"
   .TypeParagraph
   .TypeText Text:=Text1
   .TypeParagraph
   .TypeParagraph
   .TypeText Text:="Text2:"
   .TypeParagraph
   .TypeText Text:=Text2
   .TypeParagraph
   .TypeParagraph
   .TypeText Text:="Text3:"
   .TypeParagraph
   .TypeText Text:=Text3
End With

rStart = wdoc.Paragraphs(wdoc.Paragraphs.Count).Range.start
rEnd = wdoc.Paragraphs(wdoc.Paragraphs.Count).Range.End

With wdoc.Range(rStart, rEnd).Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = ";"
    .Replacement.Text = ","
    .Forward = True
    .Wrap = 0
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=2
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = ", "
    .Replacement.Text = "^p"
    .Forward = True
    .Wrap = wdFindAsk
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=2
End With
 
rEnd = wdoc.Paragraphs(wdoc.Paragraphs.Count).Range.End
wdoc.Range(rStart, rEnd).ConvertToTable Separator:=0
 
With wdoc.Tables(1)
    .Style = "Tabellenraster"
    .ApplyStyleHeadingRows = True
    .ApplyStyleLastRow = False
    .ApplyStyleFirstColumn = True
    .ApplyStyleLastColumn = False
    .Borders(-1).LineStyle = 0
    .Borders(-2).LineStyle = 0
    .Borders(-3).LineStyle = 0
    .Borders(-4).LineStyle = 0
    .Borders(-5).LineStyle = 0
    .Borders(-6).LineStyle = 0
    .Borders(-7).LineStyle = 0
End With

Gruß Mr. K.