ub WorkBook_open()
Dim Wd As Object, Wapp As Object
Let Shablon = "d:\temp\test1.docx" ' копируемый файл
Let doc = "d:\temp\test2.docx" ' куда и под каким именем копируем.
Rem
Set Wapp = CreateObject("Word.Application"): AppWord.Visible = False
Set Wd = Wapp.Documents.Open(Shablon, ReadOnly:=True)
Wd.SaveAs FileName:=doc , FileFormat:=wdFormatXMLDocument
Wd.Close False: Set Wd = Nothing
End SubLet Shablon = ThisWorkbook.Path + WorldShablonFileName
При включенном компоненте классно работает среда разработки Visual Studio, но вообще не работает virtualbox. Появляются софт блоки CPU и SSD. В общем производительность падает до нуля.Значит Вы доросли до перехода на гипервизор первого типа KVM/Xen, ESXi. Если хочется интересного, то можно посмотреть в сторону Hyper-V, но не того что идет на десктопной системе, а того что поставляется с консолью и без десктопа как такового (Microsoft Hyper-V Server). После установки и настройки все распихиваете по разным виртуалкам и дальше админите либо с другого ПК, либо, если железо поддерживает проброс ВК в ВМ, тут же из-под виртуалки.