VLA91MIRKL (XL), спасибо за ответ, но у меня выскакивает такое сообщение:
Compile error: User-defined type not defined
В начале кода есть комментарий: ссылка на Microsoft Excel #.# Object Library, т.е. вам нужно установить ссылку на соответствующую библиотеку в Редаторе VBE в меню Сервис>Ссылки...
Но вообще должен предупредить о том, что впоследствии будет как минимум 3 проблемы:
1. в VBA длч Word, похоже, нет метода для выхода из режима редактирования OLEObjects, т.ч. вероятно придется использовать SendKeys по окончании кода, а "сие не есть хорошо"
2. все редактирование будет происходить на глазах у пользователя со скаканием изображения по той же причине
3. у меня метод AddOLEObject создает скрытую инстанцию Excel, и процесс не завершается по окончании исполнения кода, а "сие есть просто дизастр" :-)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
'Reference to Microsoft Excel #.# Object Library
Sub test()
Dim XLWb As Excel.Workbook
Application.ScreenUpdating = False
Set XLWb = ActiveDocument.InlineShapes.AddOLEObject( _
ClassType:="Excel.Sheet.8").OLEFormat.Object
With XLWb
.Application.ScreenUpdating = False
With .Sheets( 1 )
.Name = "Test2"
.Range("A1") = 1
End With
With .Sheets.Add(After:=.Sheets(.Sheets.Count))
.Name = "Test3"
.Range("A1") = 2
End With
With .Sheets.Add(After:=.Sheets(.Sheets.Count))
.Name = "Main"
.Range("A1").Formula = "=SUM('Test2:Test3'!A1)"
End With
.Application.ScreenUpdating = True
End With
SendKeys "{ESC}", True
Selection.MoveRight
Set XLWb = Nothing
Application.ScreenUpdating = True
End Sub
