Hirdetés

Keresés

Új hozzászólás Aktív témák

  • Fferi50

    Topikgazda

    válasz Pikkolo^^ #32160 üzenetére

    Szia!

    Igen, meg kell nyitnod hozzá a Word alkalmazást az Excel makróban, abba kreálni egy új dokumentumot és az Excel tartalmat belemásolod.

    Sub wordos()
    Dim wrd As Object, wd As Document
    Set wrd = CreateObject("word.application") 'Word nyit
    wrd.Visible = True
    Set wd = wrd.documents.Add 'új dokumentumot nyit
    ActiveSheet.UsedRange.Copy 'kijelölöd a másolandó területet (pl. Range("A1:F25")
    wrd.Selection.Paste 'ha képként szeretnéd beilleszteni, akkor PasteSpecial, paraméterekkel HELP segít
    wrd.Activate
    wd.Save 'itt meg kell adnod, hogy milyen néven mented
    wrd.Quit ' Word bezár
    End Sub

    Figyelem! A makró futtatása előtt a VBA ablak Tools Menüjében a References menüpontban be kell jelölnöd a megfelelő Microsoft Word könyvtárat!!! (pl. 2016-os nál Microsoft Word 16.0 Object Library).

    Üdv.

Új hozzászólás Aktív témák