Hirdetés

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

  • #90999040
    törölt tag

    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!!! :D

    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