... попроб1уте поставить перед именем скрипта команду, которая его выполняет: для работы в консоли используйте cscript.exe (есть ещё wscript.exe, с работой в окне)
Sub Macro1()
Dim doc As Document
Dim pg As Page
Dim lr As Layer
Dim shp As Shape
Set doc = Application.ActiveDocument
For k = 1 To doc.Pages.Count
Set pg = doc.Pages(k)
For i = 1 To pg.Layers.Count
Set lr = pg.Layers(i)
For j = 1 To lr.Shapes.Count
Set shp = lr.Shapes(j)
If shp.Type = cdrTextShape Then
MsgBox shp.Text.Story.Text
End If
Next j
Next i
Next k
End SubЯ точно помню что раньше ещё на win7 и меньше, можно было устанавливать всё только от админа, а если юзер не админ, запрашивало учётку админа.Поэтому всё дерьмо, начиная с Хрома и его клонов, заканчивая Майл-Агентом и прочей вируснёй, спокойно, без всяких запросов, устанавливалось в Application Data. )))