Transfer Word specific form data to Excel worksheet

[onesky]

Hello
i have two documents, word and excel, with many double informations. What i need is to transfer only some specific form data from the Word document into specific cells into Excel document.

I have searched a VBA macro but i have found only macros that copy ALL the data from the Word document. I need only some of them with a specific bookmark.

Someone can help? thanks

this is the code that i have found and it copy ALL the forms from the Word file, and it is not useful in my case because i need only some of them...

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 = "C:\Users\Manuele\Desktop\lavoro\test"
Application.ScreenUpdating = False
If myFolder = "" Then Exit Sub
Set myWkSht = ActiveSheet
ActiveSheet.Cells.Clear
Range("A2") = "cognome"
Range("a2").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