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

• #30897 the radish senior tag Fferi50 #30896

  Új Válasz 2016-03-06 21:46:31 #30897

  Ú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

  

  the radish

  senior tag

  válasz Fferi50 #30896 üzenetére

  

  

  Sub Macro1()
  
  Dim objWord
  Dim objDoc
  Set objWord = CreateObject("Word.Application")
  Set objDoc = objWord.Documents.Open("d:\xxx.docx")
  objWord.Visible = True
  objDoc.PrintOut _
  Range:=wdPrintFromTo, From:="1", To:="2"
  objWord.Quit
  
  End Sub

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