В виртуальной машине нету nvidia и intel там свой видеадаптер.
по поводу VBA ничего не скажу, но причём здесь nvidia, указанная заголовке вопроса. Это чисто проблема в wine.
dmesg | grep -i "error\|warn\|fail"
[ 597.275393] WARNING: ***: 3 PID: 69 at drivers/gpu/drm/nouveau/nvkm/engine/fifo/gk104.c:447 gk104_fifo_recover_engn+0x20a/0x220 [nouveau]
[ 597.275445] ghash_clmulni_intel drm_kms_helper virtio_net virtio_scsi net_failover failover ahci cec libahci aesni_intel libaes crypto_simd drm xhci_pci cryptd xhci_hcd glue_helper uhci_hcd ehci_pci ehci_hcd psmouse i2c_i801 libata i2c_smbus scsi_mod usbcore virtio_pci virtio_ring virtio lpc_ich usb_common button
Dim Wd As Object, Wapp As Object
Application.DisplayAlerts = False ' Отключаем сообщения Excel
Dim wb As Workbook
On Error Resume Next
Set wb = ActiveWorkbook
Let Shablon = ThisWorkbook.Path + "\" + "doc.docm"
Let ИмяФайла = "d:\test2.docm"
Set Wapp = CreateObject("Word.Application"): AppWord.Visible = False
Set Wd = Wapp.Documents.Open(Shablon, ReadOnly:=True)
Wd.SaveAs Filename:=ИмяФайла, FileFormat:=wdFormatXMLDocument
Wd.Close False: Set Wd = Nothing
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 Sub
Let Shablon = ThisWorkbook.Path + WorldShablonFileName
поставил, ставил 510 и 470 драйвера, в обоих случаях черный экран после установки и мигающий курсор в левом-верхнем углу.