|
Login
  • Page:
  • 1

TOPIC: Inserimento tabelle da Excel a Word

Inserimento tabelle da Excel a Word 3 years 5 months ago #10529

  • Mauro80
  • Mauro80's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 8
  • Karma: 0
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
The administrator has disabled public write access.
  • Page:
  • 1
Time to create page: 0.440 seconds