zamanmakinesi Posted March 18, 2012 Share Posted March 18, 2012 (edited) luacom ile ppt ve pps dosyalarını açmak için böyle bir kod buldum anlayan bir arkadaş bu kodu izah edebilir mi ben pps sunumlarımı amsye embed ederek açmak istiyorum acaba bu kod bunu yaparmı [code] -- -- PowerPoint LuaCOM control -- -- Mark Stroetzel Glasberg -- 28/10/2002 -- PPT = {} function PPT:Open() local process = create_process{cmd="C:\\Program Files\\Microsoft Office\\Office10\\POWERPNT.EXE /AUTOMATION"} sleep(3) self.ppt = luacom_GetObject("Powerpoint.Application") end function PPT:GetObject() self.ppt = luacom_GetObject("Powerpoint.Application") local prs = self.ppt.Presentations self.pr = prs:Item(1) -- Filename is also valid. Ex: "D:\\mark\\test.ppt" self.view = self.pr.SlideShowWindow.View end function PPT:Close() self.ppt:Quit() end function PPT:ListFiles(dir) local fs = self.ppt.FileSearch fs.LookIn = dir fs.FileName = "*.ppt" fs.FileType = 5 fs.SearchSubFolders = 1 local n = fs:Execute() local files = fs.FoundFiles local i = 1 while n >= i do print("<option value='"..files.Item(i).."'><br>") print(files.Item(i)) i = i + 1 end end function PPT:Filename(filename) self.ppt.Visible = 1 self.pr = self.ppt.Presentations:Open(filename) end function PPT:Start() local pr = self.pr if pr == nil then print("Cannot Start presentation without a filename") return end pr.SlideShowSettings.StartingSlide = 1 pr.SlideShowSettings.EndingSlide = pr.Slides.Count local cur = pr.SlideShowSettings:Run() self.view = cur.View end function PPT:First() self.view:First() end function PPT:Last() self.view:Last() end function PPT:Next() self.view:Next() end function PPT:Previous() self.view:Previous() end [/code] Edited March 18, 2012 by zamanmakinesi Quote Link to comment Share on other sites More sharing options...
HalilYanar Posted March 18, 2012 Share Posted March 18, 2012 Onları Global Fuctions a yapıştırcaksın galiba Quote Link to comment Share on other sites More sharing options...
KintaRo Posted March 19, 2012 Share Posted March 19, 2012 office belgeleri direk ams içinde gösterilemez ama içindeki verileri alıp/verebilirsin Quote Link to comment Share on other sites More sharing options...
zamanmakinesi Posted March 19, 2012 Author Share Posted March 19, 2012 [quote name='KintaRo' date='19 March 2012 - 08:30 ' timestamp='1332138633' post='1171889'] office belgeleri direk ams içinde gösterilemez ama içindeki verileri alıp/verebilirsin [/quote] ozaman ofice belgelerini veri tabanı gibi kullanma mantığı var Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.