Buongiorno a tutti.
Nell'ultimo periodo mi sono dedicato assai alla programmazione VBA, sono abbastanza soddisfatto dei progressi avuti.
Vi riporto un codice che ho realizzato e funziona benone, dico benone perchè, mi sono dovuto accontentare di copiare delle tabelle da Excel a Word come immagini perchè non sono ancora in grado di gestire bene le tabelle, ma questo è il male minore.
In realtà il problema maggiore che vorrei risolvere è quello di poter cancellare le immagini che inserisco dopo il Bookmark, ogni volta che faccio eseguire la macro da Excel. In pratica mi si accodano le immagini. Ho provato diverse soluzioni, ma non vanno. Qualcuno ha suggerimenti in merito?
Ringrazio anticipatamente.
Sub CopiaSchedeVIB() ' Con questa macro tutte le schede VIB in formato immagine vengono copiate nella sezione 2 del file MMC.docx
Set WordApp = CreateObject("Word.Application")
sFilename = "C:\Users\Mauro\Desktop\Progetto Sicurezza\RelVIB.docx"
WordApp.Visible = True
If sFilename = "False" Then Exit Sub
Workbooks("DBS").Activate
With WordApp.Documents.Open(sFilename)
End With
For i = 1 To Sheets.Count
Suff = Left(Sheets(i).Name, 4)
If Suff = "Vib." Then
Sheets(i).Activate
Sheets(i).Visible = True
Range("A2:AV20").CopyPicture
With WordApp.Documents.Open(sFilename)
.Bookmarks("SchedeVibrazioni").Range.Paste
End With
End If
Next
Application.CutCopyMode = False
Set WordApp = Nothing
Sheets("Calcolo Vibrazioni").Activate
Sheets("Calcolo Vibrazioni").Visible = True
End Sub
