Перевод слова формы в Excel

Question

Я ищу код макроса для перевода формы слова в Excel. Я попробовал ниже код, который работает нормально один раз. Однако я хочу, чтобы в моем текстовом документе было несколько записей формы, поэтому он должен повторяться и снова помещать данные в одну строку и столбец в Excel.

Например:

если в моем слове несколько раз есть формы "Тест 1" и "Тест 2", тогда они должны быть снова помещены в одну строку и столбец. в настоящее время он ставится рядом со строкой.

спасибо.

Sub getWordFormData()
Dim wdApp As New Word.Application
Dim myDoc As Word.Document
Dim CCtl As Word.ContentControl
Dim myFolder As String, strFile As String
Dim myWkSht As Worksheet, i As Long, j As Long

myFolder = "enter folder path" '<< enter you folder path for the word document

If Dir(myFolder & "\" & "*.*") = "" Then
    Application.ScreenUpdating = True
    MsgBox "The folder is empty."
    Exit Sub
End If

Set myWkSht = ActiveSheet
ActiveSheet.Cells.Clear
Range("A1") = "Test 1"
Range("B1") = "Test 2"
Range("A1:B1").Font.Bold = True

i = myWkSht.Cells(myWkSht.Rows.Count, 1).End(xlUp).Row
strFile = Dir(myFolder & "\*.docx", vbNormal)

While strFile <> ""
    i = i + 1

    Set myDoc = wdApp.Documents.Open(Filename:=myFolder & "\" & strFile, AddToRecentFiles:=False, Visible:=False)

    With myDoc
        j = 0
        For Each CCtl In .ContentControls
            j = j + 1
            myWkSht.Cells(i, j) = CCtl.Range.Text
        Next
        myWkSht.Columns.AutoFit
    End With

    myDoc.Close SaveChanges:=False
    strFile = Dir()
Wend

wdApp.Quit
Set myDoc = Nothing: Set wdApp = Nothing: Set myWkSht = Nothing
Application.ScreenUpdating = True

End Sub