TPE
Tavvafi@gmail.com |
≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
فرض کنید فولدری مملو از فایل های با ورژن های قدیمی پاورپوینت دارید، و می خواهید آنها را به نگارش جدید پاورپوینت تبدیل کنید. ماکروی زیر اینکار را انجام می دهد؛ در هر ماکرو نکات بیشماری وجود دارد که با کلیت یک عنوان تقدیم گردیده، اما بررسی دقیق هر ماکرو می تواند نکات جدید را به شما آموزش دهد.
Sub BatchSave() ' Opens each PPT in the target folder and saves as PPT97-2003 format Dim sFolder As String Dim sPresentationName As String Dim oPresentation As Presentation ' Get the foldername: sFolder = InputBox("Folder containing PPT files to process", "Folder") If sFolder = "" Then Exit Sub End If ' Make sure the folder name has a trailing backslash If Right$(sFolder, 1) <> "\" Then sFolder = sFolder & "\" End If ' Are there PPT files there? If Len(Dir$(sFolder & "*.PPT")) = 0 Then MsgBox "Bad folder name or no PPT files in folder." Exit Sub End If ' Open and save the presentations sPresentationName = Dir$(sFolder & "*.PPT") While sPresentationName <> "" Set oPresentation = Presentations.Open(sFolder & sPresentationName, , , False) Call oPresentation.SaveAs(sFolder & "N_" & sPresentationName, ppSaveAsPresentation) oPresentation.Close ' New presentation is now saved as N_originalname.ppt ' Now let's rename them - comment out the next couple lines ' if you don't want to do this ' Original.PPT to Original.PPT.OLD Name sFolder & sPresentationName As sFolder & sPresentationName & ".OLD" ' N_Original.PPT to Original.PPT Name sFolder & "N_" & sPresentationName As sFolder & sPresentationName sPresentationName = Dir$() Wend MsgBox "DONE" End Sub
پروژههای منتشر شده برای عموم (Published):
نمایش، ویرایش و چاپ متون فارسی تحت DOS در ویندوز
تبدیل متن فارسی داس به ویندوز اکسلTXLSx
نرم افزار ویرایش DSKKAR00 و DSKWOR00 لیست بیمه
حذف کاراکتر های جدولی از گزارش های تحت DOS
تبدیل متن و جداول گزارش های تحت DOS به Excel
چاپ فرم های ارزشیابی 100 امتیازی کارمندان
حضور و غیاب و موارد انضباطی (ماهناز)
کارنامه ماهانه توصیفی (ماهتوس)
حفاظت از برنامه نویسی در DOS تحت Windows با قفلگذاری روی Flash USB
حفاظت از پروژههای Autoplay Media Studio
حفاظت از پروژههای SetupFactory
حفاظت از پروژههای Multimedia Builder
تولید فایلهای EXE از فایل های PDF بدون امکان چاپ و ذخیره PDF to EXE (pdf2exe)
حفاظت از کدهاي برنامه نويسي شده در محيط VBA-Access
تغيير تصوير بک گراند صفحه ورود به Windows 7
بروزآوري آيکن هاي ويندوز Refresh Desktop Icons
فلوچارت و الگوریتم Flowgorithm
تکنیکهای ماکرونویسی در Powerpoint
نرم افزار نمایش محتوای فایل vcf به خصوص فایل های vcf موبایل
تغییر وضوح اسلاید پاورپوینت در استخراج با فرمت تصویر PNG و JPG
دانلود کد PHP نمایش آنلاین کارنامه های PDF
مرجع دانلود فایلهای CorelDraw
tavvafi@gmail.com |
SMS Panel |