Поиск
...
Dim wordApp As Word.Application
Dim tbl As Word.Table
Dim i As ... Long, j As Long
Set wordApp = New Word ... "
Set tbl = wordApp.ActiveDocument.Tables(2)
ReDim tableArray(1 To ...
Изменен: 09.02.2023
Читать сообщение на форуме или сайте.Автор: Samyrro054. Здравствуйте! Существует таблица Word, в которой каждая новая строка ... код для подключения к документу Word:
Sub OpenWord()
Dim objWrdApp As ...
avFiles = Application.GetOpenFilename _
("Word files(*.doc*),*.do*", 1 ... If
Set objWrdApp = CreateObject("Word.Application")
objWrdApp.Visible = False ... .Open(avFiles)
Set tbl = objWrdDoc.Tables(1)
ActiveSheet.Cells(1, 1 ...
Изменен: 14.11.2019
Читать сообщение на форуме или сайте.