۱۳۹۰-۱۰-۲، ۱۱:۴۵ عصر
سلام اینم آموزش این ترفند که خوب میتونید با یه سرچ در دنیای نت بیابید ولی شاید افرادی مثل من هنوز ندونند
فایل Word خود را باز کنید. کلیدهای ترکیبی Alt+F11 را بزنید تا پنجره ی vbe باز شود. از منوی insert ، گزینه ی module را انتخاب نمائید. کدهای زیر را بطور کامل کپی کرده و در پنجره ی باز شده Paste کنید.
Sub pptAsText()
Dim pApp As Object, pPres As Object
Dim pSlide As Object, pTxt As Object
Set pApp = CreateObject("Powerpoint.Application")
pApp.Visible = True: Set pPres = pApp.Presentations.Add
pPres.PageSetup.SlideOrientation = IIf(ActiveDocument.PageSetup.Orientation = wdOrientPortrait, 2, 1)
ActiveDocument.Words(1).Select
For i = 1 To Selection.Information(wdNumberOfPagesInDocument)
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i
Selection.GoTo What:=wdGoToBookmark, Name:="\page": Selection.Copy
Set pSlide = pPres.Slides.Add(pPres.Slides.Count + 1, 2)
Set pTxt = pSlide.Shapes(2)
pTxt.TextFrame.TextRange.ParagraphFormat.Bullet.Visible = False
pTxt.TextFrame.TextRange.Paste: pTxt.TextFrame.TextRange.Font.Size = 12
Next i
End Sub
اکنون پنجره ی اصلی vbe را ببندید (توجه کنید که اشتباها پنجره ای که کدها را داخلش پیست کردید، بسته نشود. فقط پنجره ی اصلی را ببندید تا خودش پنجره ی کدها را ببندد) کلیدهای ترکیبی Alt+F8 را بزنید.
در پنجره ی باز شده، pptastext را انتخاب نمائید. سپس روی Run کلیک کنید.
از این لحظه عملیات تبدیل ورد به پاورپوینت بطور اتوماتیک آغاز می شود. شما باید منتظر بمانید تا اسلاید ها ساخته شوند. (چند دقیقه زمان می برد)
پس از اینکه تمام اسلایدها ساخته شد، آنها را مشاهده کرده و افکت گذاری نمائید.
فایل Word خود را باز کنید. کلیدهای ترکیبی Alt+F11 را بزنید تا پنجره ی vbe باز شود. از منوی insert ، گزینه ی module را انتخاب نمائید. کدهای زیر را بطور کامل کپی کرده و در پنجره ی باز شده Paste کنید.
Sub pptAsText()
Dim pApp As Object, pPres As Object
Dim pSlide As Object, pTxt As Object
Set pApp = CreateObject("Powerpoint.Application")
pApp.Visible = True: Set pPres = pApp.Presentations.Add
pPres.PageSetup.SlideOrientation = IIf(ActiveDocument.PageSetup.Orientation = wdOrientPortrait, 2, 1)
ActiveDocument.Words(1).Select
For i = 1 To Selection.Information(wdNumberOfPagesInDocument)
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i
Selection.GoTo What:=wdGoToBookmark, Name:="\page": Selection.Copy
Set pSlide = pPres.Slides.Add(pPres.Slides.Count + 1, 2)
Set pTxt = pSlide.Shapes(2)
pTxt.TextFrame.TextRange.ParagraphFormat.Bullet.Visible = False
pTxt.TextFrame.TextRange.Paste: pTxt.TextFrame.TextRange.Font.Size = 12
Next i
End Sub
اکنون پنجره ی اصلی vbe را ببندید (توجه کنید که اشتباها پنجره ای که کدها را داخلش پیست کردید، بسته نشود. فقط پنجره ی اصلی را ببندید تا خودش پنجره ی کدها را ببندد) کلیدهای ترکیبی Alt+F8 را بزنید.
در پنجره ی باز شده، pptastext را انتخاب نمائید. سپس روی Run کلیک کنید.
از این لحظه عملیات تبدیل ورد به پاورپوینت بطور اتوماتیک آغاز می شود. شما باید منتظر بمانید تا اسلاید ها ساخته شوند. (چند دقیقه زمان می برد)
پس از اینکه تمام اسلایدها ساخته شد، آنها را مشاهده کرده و افکت گذاری نمائید.