|
Login
  • Page:
  • 1

TOPIC: Codice di VBA da EXCEL in Word

Codice di VBA da EXCEL in Word 5 years 7 months ago #10566

  • Mauro80
  • Mauro80's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 8
  • Karma: 0
Buonasera,

Sono impantanato su un pezzo di codice, se lo faccio partire dal VBA di Word funziona, ma da Excel no. Il pezzo di codice è quello dove ho commentato, QUI MI IMPANTANO.
Qualcuno sa darmi una spiegazione. Grazie in anticipo
Private Sub cmdValutazioneChimico_Click()
Set WordApp = CreateObject("Word.Application")
Cartella = ThisWorkbook.Path
sFilename = Cartella & "\ValCHI.docm"
MsgBox sFilename, Title:="Apri il documento"
WordApp.Visible = True
If sFilename = "False" Then Exit Sub
Workbooks("DBS").Activate
With WordApp.Documents.Open(sFilename)
Nsez = .Sections.Count
'MsgBox Nsez
Set Sezioni_Da_Cancellare = .Range(Start:=.Sections(2).Range.End, End:=.Sections(Nsez).Range.End)
    Sezioni_Da_Cancellare.Delete 'SI CANCELLA DALLA FINE DELLA SEZIONE 2 FINO ALLA FINE DEL DOCUMENTO
    .Sections.Add
    .Sections.Add
    .Sections.Add
    
    .Range(Start:=.Sections(3).Range.Start, End:=.Sections(3).Range.Start).InsertParagraphAfter
    .Range(Start:=.Sections(3).Range.Start, End:=.Sections(3).Range.Start).InsertParagraphAfter
    .Range(Start:=.Sections(3).Range.Start, End:=.Sections(3).Range.Start).InsertParagraphAfter
    .Range(Start:=.Sections(3).Range.Start).InsertBefore _
     Text:="Elenco agenti chimici"
    
    Sheets("DBASECHIM").Activate
    Columns("A:B").Select                  'Colonne INTESTAZIONI
    Selection.EntireColumn.Hidden = False
    Columns("C:G").Select                  'Colonne PROPRIETA'1
    Selection.EntireColumn.Hidden = False
    Columns("H:AA").Select                 'Colonne DELLE FRASI RISCHIO AGENTI CHIMICI
    Selection.EntireColumn.Hidden = True
    Columns("AB:AC").Select                 'Colonne DELLE FRASI RISCHIO SOSTANZE MISCELE
    Selection.EntireColumn.Hidden = True
    Columns("AD:AF").Select                 'Colonne CANCEROGENO MUTAGENO
    Selection.EntireColumn.Hidden = True
    Columns("AG:AI").Select                 'Colonne PROPRIETA' 2
    Selection.EntireColumn.Hidden = False
    Columns("AJ:AZ").Select                 'Colonne CALCOLI APPOGGI
    Selection.EntireColumn.Hidden = True
    Application.CutCopyMode = False
    Range("A1:AI1").Select
    ActiveWindow.Zoom = True
    Range("B1").CurrentRegion.CopyPicture
    With WordApp.Documents.Open(sFilename)
    .Range(Start:=.Sections(3).Range.Start, End:=.Sections(3).Range.Start).Select
    Selection.MoveDown Unit:=wdLine, Count:=1 'QUI MI IMPANTANO
    Selection.Paste
    End With
    

    
End With



            
Application.CutCopyMode = False
Set Titolo = Nothing
Set Sezioni_Da_Cancellare = Nothing
Set ImmaginiCancellate1 = Nothing
Set WordApp = Nothing
Sheets("Calcolo Chimico").Activate
Sheets("Calcolo Chimico").Visible = True
End Sub
Attachments:
The administrator has disabled public write access.
  • Page:
  • 1
Time to create page: 0.320 seconds