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

• #48249 ReSeTer senior tag

  Új Válasz 2022-01-14 10:25:11 #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