Здравствуйте! В книге Excel я имею такой код в отдельном модуле. Он открывает форму протокола в Word и наполняет его затем данными. Хочу поменять форму протокола. Как мне это сделать? Как открыть этот шаблон в книге Excel?
Собственно, код:
Public Const pass = "master"
Private wdapp, wddoc, ma, wdrng, line, stolb1
Sub hide_prot()
ActiveWorkbook.Sheets("План мероприятий"
.Shapes.Range(Array("Object 2"
).Visible = False
End Sub
Sub show_prot()
ActiveWorkbook.Sheets("План мероприятий"
.Shapes.Range(Array("Object 2"
).Visible = True
End Sub
Public Sub protokol()
Dim wdapp As Word.Application
Dim wddoc As Word.Document
Dim MyTime, path As String
Dim ma()
Dim wdrng As Word.Range
Dim line, stolb1 As Integer
Dim z, x As Integer
line = ActiveCell.Row ' запоминаем первую строку выбранную пользователем
path = ThisWorkbook.path ' записываем путь к книге
'MsgBox (line)
x = Selection.Rows.Count ' запоминаем количество выбранных строк
If x > 15 Then x = 15 ' уменьшаем количество строк до 15, если их больше
If line < 3 Or line > Range("F2"
.CurrentRegion.Rows.Count Then ' проверяем выбор строки, не должно быть меньше 3 строки, и не должно быть больше последней записи
MsgBox "Необходимо выделить запись в плане мероприятий (не более 15 записей)", vbCritical + vbOKOnly, "Ошибка выбора записей"
End
End If
MyTime = Date & " " & Format(Time, "HH.MM.SS"
'запоминаем время и дату, понадобится для имени файла
'Set wdapp = CreateObject("Word.Application"
'New Word.Application
If Cells(line, 3 + 1) = 0 Then Sheets("temp"
.Cells(2, 15) = Date Else Sheets("temp"
.Cells(2, 15) = Cells(line, 3 + 1) ' запоминаем дату для вставки в протокол
Application.ScreenUpdating = False
'Set wddoc = wdapp.Documents.Open(ThisWorkbook.activesheet)
'Set wddoc = wdapp.Documents.Open(ThisWorkboo.ActiveSheet.OLEObject(1))
' ActiveSheet.OLEObjects.Activate
ActiveSheet.Shapes.Range(Array("Object 2"
).Visible = True ' открываем сохраненный пустой протокол
ActiveSheet.Shapes.Range(Array("Object 2"
).Select
Selection.Verb Verb:=xlOpen
