TPE

https://bayanbox.ir/view/263405954590585756/2mobile.png

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


آدرس وب‌سایت‌های طراحی شده:
scol

پروژه‌های منتشر شده برای عموم (Published):

نمایش و چاپ فارسی DOS

نمایش، ویرایش و چاپ متون فارسی تحت DOS در ویندوز

تبدیل متون Windows به DOS

تبدیل متن فارسی داس به ویندوز اکسلTXLSx

نرم افزار ویرایش DSKKAR00 و DSKWOR00 لیست بیمه

حذف کاراکتر های جدولی از گزارش های تحت DOS

تبدیل متن و جداول گزارش های تحت DOS به Excel

چاپ فرم های ارزشیابی 100 امتیازی کارمندان

حضور و غیاب و موارد انضباطی (ماهناز)

کارنامه ماهانه توصیفی (ماهتوس)

کارنامه ماهانه(ماهکار2)

حفاظت از برنامه نویسی در DOS تحت Windows با قفل‌گذاری روی Flash USB

حفاظت از پروژه‌های Autoplay Media Studio

حفاظت از پروژه‌های SetupFactory

حفاظت از پروژه‌های Multimedia Builder

حفاظت از فیلم ها

حفاظت از فایل‌های PDF ، بر اساس صدور کد فعالسازی برای هر فایل بر اساس شماره سریال سخت افزاری هر رایانه

تولید فایل‌های EXE از فایل های PDF بدون امکان چاپ و ذخیره PDF to EXE (pdf2exe)

حفاظت از فایل های پاورپوینت

حفاظت از کدهاي برنامه نويسي شده در محيط VBA-Access

تغيير تصوير بک گراند صفحه ورود به Windows 7

بروزآوري آيکن هاي ويندوز Refresh Desktop Icons

فلوچارت و الگوریتم Flowgorithm

تکنیک‌های ماکرونویسی در Powerpoint

نرم افزار نمایش محتوای فایل vcf به خصوص فایل های vcf موبایل

تغییر وضوح اسلاید پاورپوینت در استخراج با فرمت تصویر PNG و JPG

ماشین حساب جبری

ماشین حساب گرافیکی

ماشین حساب هندسی

سامانه نمایش آنلاین کارنامه

دانلود کد PHP نمایش آنلاین کارنامه های PDF

مرجع دانلود فایل‌های CorelDraw

قفل کردن Google Chrome (chromeblocker)

نرم‌افزار تبدیل فایل‌های WEBP به PNG تنها با یک راست کلیک


tavvafi@gmail.com

SMS Panel smspanel


ارتباط با ما در شبکه‌های اجتماعی داخلی:

scrolltop
scrolltop