2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #48249 ReSeTer senior tag
    Új Válasz #48249
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    ReSeTer

    senior tag

    Helló!

    Van egy projektem ami excel táblázatból szed ki adatokat és illeszti be ezt egy word sablon dokumentumba.

    A gondom az, hogy kompatibilitási probléma akadt néhány kollégánál, mert a Microsoft Word Object Library 16.0-t használja a program.

    Át kellene alakítanom a kódot olyanra, hogy ne kelljen semmire se hivatkozni.

    Eddig ezt csináltam:
    Dim wordapp As Word.Application
    Dim wDoc As Word.Document

    Set wordapp = CreateObject("word.application")
    Set wDoc = wordapp.Documents.Add(sablonpath & sablonfilename)
    wordapp.Visible = True

    helyett ezt használom:

    Dim wordapp As Object
        Dim wDoc As Object
        
        Set wordapp = CreateObject("word.application")
        Set wDoc = wordapp.Documents.Add(sablonpath & sablonfilename)
        wordapp.Visible = True

    A word dokumentumot még létre is tudom hozni, de vannak olyan sorok amit hibára állnak:

    Ezek a sorok nem közvetlenül egymásután vannak, csak most kigyűjtöttem őket:

    wordapp.ActiveDocument.Sections.Item(1).Footers(wdHeaderFooterPrimary).Range.Text = Application.UserName & Chr(13) & Date
    wordapp.Selection.EndKey unit:=wdStory, Extend:=wdMove
    wordapp.Selection.InsertBreak Type:=wdSectionBreakNextPage
    wordapp.Selection.MoveDown unit:=wdScreen, Count:=1
    wordapp.Selection.PasteAndFormat (wdFormatOriginalFormatting)

    Mi lehet a probléma?

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