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

• #90999040 törölt tag

  #1473

  #1472 vilag

  2011-10-03 11:50:15

  Új Válasz

  Ú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

  

  #90999040

  törölt tag

  #1472 vilag

  #1472 vilag

  Hali!

  Megoldódott a probléma!

  A kód (ezt kell a kívánt Word doksiba, vagyis a célfájlba írni):

  ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
  ActiveDocument.MailMerge.OpenDataSource _
  Name:="xyz", _ 'forrásfájl helye
  LinkToSource:=True, _
  Format:=wdOpenFormatAuto, _
  Connection:="Munka1$", _
  SQLStatement:="SELECT * FROM `Munka1$`"
  
  With ActiveDocument.MailMerge
  .Destination = wdSendToPrinter
  .SuppressBlankLines = False
  With .DataSource
  .FirstRecord = 14
  .LastRecord = ig2 'saját változó
  End With
  .Execute Pause:=False
  End With

  Neház szülés volt, de meglett!!!

  ezt kell a kívánt Word doksiba, vagyis a célfájlba írni

  Ha a Word konstansait definiálod az Excelben, akkor Excelben is használható.
  Az Excel ugyanis alapból nem tudja a Word konstansait. Pl.:

  Const wdSendToPrinter = 1

  Ezeket az értékeket meg tudod nézni Wordben úgy, hogy kiiratod őket. Pl.:

  Debug.Print wdSendToPrinter

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