Ссылка слово форма, чтобы преуспеть

Question

Я ИТ-персонал в тренерском институте. Я давно разработал форму для слов, через которую мы будем вводить детали тех, кто придет на прием. Впоследствии, когда количество студентов в партии хорошо превысило предел, где мы могли легко их отслеживать, я разработал базу данных Excel. Теперь единственной оставшейся проблемой является разработка способа, с помощью которого я могу скопировать содержимое поля формы и связать его с базой данных. Надеюсь, я что-нибудь получу, проще бы и с VBA

Answer 1

Вы можете сделать это с помощью VBA с таким кодом (используйте его из базы данных Excel для загрузки документов Word):

Sub DataFrom()

'Remember: this code requires a reference to the Word object model

Dim wdApp As New Word.Application
Dim wdDoc As Word.Document
Dim fName As String
Dim i As Long, Rw As Long

ChDir ActiveWorkbook.Path

With Application.FileDialog(msoFileDialogOpen)
  .AllowMultiSelect = False
  .Filters.Add "Word", "*.doc", 1
  .Show
  On Error GoTo Exits
  fName = .SelectedItems(1)
End With

Set wdDoc = wdApp.Documents.Open(fName)

Rw = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(Rw, 1) = Cells(Rw - 1, 1) + 1
i = 1
For Each f In wdDoc.FormFields
  i = i + 1
  On Error Resume Next
  Cells(Rw, i) = f.Result
Next
Exits:
End Sub