Копирование строк в MS Word

Sub Макрос1()
Dim i As Integer
    Selection.HomeKey unit:=wdStory 'встали на начало документа
    
    With Selection.Find
            .Text = "(^13)(В*ролях*)(^13Оператор)"
            .Replacement.Text = "\1[\2]\3" 'взяли в [] абзац(ы) "В... ролях..."
            .Forward = True
            .MatchWildcards = True  'Подстановочные знаки (в окне по CTRL-h)
            .Wrap = wdFindContinue
            .Execute Replace:=wdReplaceAll
            
    Selection.HomeKey unit:=wdStory 'вернулись в начало документа
            .Replacement.Text = ""  'очистили поле "Заменить на:"
            
        Do
            .Text = "\[*\]"
            .Wrap = wdFindStop
            .Execute                'выделили очередную порцию текста, которая в []
            i = i + 1
            ActiveDocument.Bookmarks.Add Name:="Actors_" & Format(i, "000")
                                    'поставили закладку на актёров i-го фильма
        Loop Until Not .Found
        
            .MatchWildcards = False 'Подстановочные знаки отменили
    End With
End Sub

Sub Transposing()
Range("b2").PasteSpecial Transpose:=True 'b3, b4, b5, b6 и т. д.
End Sub

Sub Макрос4()
'Нет, я не знаю, что все параметры значат; numcolumns:=13, numrows:=1 - очевидные
' Макрос4 Макрос
'
    WordBasic.TextToTable ConvertFrom:=0, numcolumns:=13, numrows:=1, _
        InitialColWidth:=wdAutoPosition, Format:=0, Apply:=1184, AutoFit:=0, _
        SetDefault:=0, Word8:=0, Style:="Сетка таблицы"
End Sub

Sub toText()
Selection.Tables.Item(1).ConvertToText Separator:=wdSeparateByParagraphs ', nestedtables:=False
End Sub