Я унаследовал код для платформы, которой никогда не пользовался до сегодняшнего дня.
У нас есть текстовый документ с информацией, и нам нужна эта информация для go в наших таблицах Excel. Одна из вещей, которые мы просим, - это регистрационный номер LI. Регистрационный номер LI - цифра c.
Sub workDocument(objDoc As Document, labDatabase As Excel.Workbook, wrongPatient As Boolean, providerName As String)
Dim ExcelApp As New Excel.Application
Dim PatientName As String
Dim registryNum As Integer
Dim registryNumString As String
Dim nameCC As ContentControls
Dim regCC As ContentControls
Dim embedTable As InlineShape
Dim oWb As Excel.Workbook
Dim sheet1 As Worksheet
Dim entry1 As Excel.Range
Dim usedRows As Integer
Dim usedColumns As Integer
Set ExcelApp = CreateObject("Excel.Application")
'obtain patient name and LI registry number by accessing content control set
Set nameCC = ActiveDocument.SelectContentControlsByTitle("Patient Name")
Set regCC = ActiveDocument.SelectContentControlsByTitle("LI Registry number")
PatientName = nameCC(1).Range.Text
registryNumString = regCC(1).Range.Text
Последняя строка возвращается с ошибкой «Ожидаемая функция переменной», но когда я смотрю на функции, я думаю, что работает только «текст».