ایران شهرساز را در تلگرام دنبال کنید

[-]
[-]

پشتیبانی 09120592515 ایمیل: iranshahrsaz@yahoo.com

[-]
[-]
امتیاز موضوع:
  • 44 رأی - میانگین امتیازات: 3.16
  • 1
  • 2
  • 3
  • 4
  • 5
1
تبدیل فایل word به پاورپوینت با زدن چند دکمه*به همین راحتی*
سلام اینم آموزش این ترفند که خوب میتونید با یه سرچ در دنیای نت بیابید ولی شاید افرادی مثل من هنوز ندونند



فایل 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 کلیک کنید.

از این لحظه عملیات تبدیل ورد به پاورپوینت بطور اتوماتیک آغاز می شود. شما باید منتظر بمانید تا اسلاید ها ساخته شوند. (چند دقیقه زمان می برد)

پس از اینکه تمام اسلایدها ساخته شد، آنها را مشاهده کرده و افکت گذاری نمائید.
آخرین ارسال های من :

2
RE: تبدیل فایل word به پاورپوینت با زدن چند دکمه*به همین راحتی*
مرسي مهندس از توضيحاتتون..........خيلي ممنون
آخرین ارسال های من :

[تصویر:  7t5vft1gcxenjxsyw7b6.png]
 سپاس شده توسط: محروم
3
RE: تبدیل فایل word به پاورپوینت با زدن چند دکمه*به همین راحتی*
(1390-10-2، 11:45 عصر)AliReza نوشته است:  سلام اینم آموزش این ترفند که خوب میتونید با یه سرچ در دنیای نت بیابید ولی شاید افرادی مثل من هنوز ندونند



فایل 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 کلیک کنید.

از این لحظه عملیات تبدیل ورد به پاورپوینت بطور اتوماتیک آغاز می شود. شما باید منتظر بمانید تا اسلاید ها ساخته شوند. (چند دقیقه زمان می برد)

پس از اینکه تمام اسلایدها ساخته شد، آنها را مشاهده کرده و افکت گذاری نمائید.

سلام
ممنون از توضیحاتتون .همین حالا نیاز داشتم
آخرین ارسال های من :

 
 
 
مهم نیست که قفلها دست کیست ،مهم اینست که کلید ها دست خداست
 سپاس شده توسط: محروم
4
RE: تبدیل فایل word به پاورپوینت با زدن چند دکمه*به همین راحتی*
مهندس نکته ای که باید خوب رعایت بشه اینه که هر اسلایدی که میخواید ساخته بشه باید متن به همون مقدار در صفحات ورد باشه

مثلا اگه 20 صفحه ورد داشتید و خواستید هر پاراگرافی یک صفحه باشه به راحتی هر پاراگرافی را در یک صفحه در ورد قرار دهید که خوب با زدن چند اینتر این کار انجام میشه

این ترفند صفحات ورد را به اسلاید تبدیل میکنه و تصویر را نمیبره

 سپاس شده توسط: lofra ، محروم ، 0RKIDEH ، shahryar ، mahsa.aezzi ، dely_sh
5
RE: تبدیل فایل word به پاورپوینت با زدن چند دکمه*به همین راحتی*
مهندس خیلی جالب و عالی بود، فقط یه مشکل کوچیک داشت، اونم این که تصاویر رو داخل پاور پوینت نمی آورد، فقط متون رو میاورد.
آخرین ارسال های من :

شهر خوب یافتنی نیست...........
ساختنی است.
 سپاس شده توسط: محروم
6
RE: تبدیل فایل word به پاورپوینت با زدن چند دکمه*به همین راحتی*
(1390-10-3، 12:35 صبح)parasto_gh نوشته است:  مهندس خیلی جالب و عالی بود، فقط یه مشکل کوچیک داشت، اونم این که تصاویر رو داخل پاور پوینت نمی آورد، فقط متون رو میاورد.

درسته اینو اشاره کردم

شاید برنامه اش باشه ولی من نمیدونم اگه کسی میدونه بزاره تا بقیه استفاده کنند چون بعضی وقت ها خیلی لازمه و در وقت صرفه جویی میشه

 سپاس شده توسط: محروم ، parasto_gh
7
RE: تبدیل فایل word به پاورپوینت با زدن چند دکمه*به همین راحتی*
جالب بود ممنون
آخرین ارسال های من :

بزرگ فکر کن...
 سپاس شده توسط: محروم
8
RE: تبدیل فایل word به پاورپوینت با زدن چند دکمه*به همین راحتی*
چه جالب بود [تصویر:  hi5.gif]

آخرین ارسال های من :
9
RE: تبدیل فایل word به پاورپوینت با زدن چند دکمه*به همین راحتی*
بسیار عالی

آخرین ارسال های من :
10
RE: تبدیل فایل word به پاورپوینت با زدن چند دکمه*به همین راحتی*
سلام ممنون عالی بود
آخرین ارسال های من :

زندگی باید کرد ؛ گاه با یک گل سرخ گاه با یک دل تنگ ، گاه باید روئید در پس این باران ، گاه باید خندید بر غمی بی پایان . . .
کاربرانِ درحال بازدید از این موضوع: 1 مهمان
آمار انجمن
آخرين ارسال ها
موضوع تاريخ, زمان  نويسنده آخرين ارسال کننده انجمن
  مصاحبه اختصاصی سایت ایران شهرساز با رتبه 10 کشور در گرایش طراحی شهری 96 4-3 alireza shivashf تالار گفتمان طراحی شهری
  100 نکته درک عمومی معماری 3-25 MHAKBARI wallflore تحقیقات و جزوات
  مصاحبه اختصاصی سایت ایران شهرساز با رتبه 2 کشور در گرایش طراحی شهری 96 3-20 alireza udesigner تالار گفتمان طراحی شهری
  درخواست رایگان  نقشه منطقه بندی شهر شیراز 3-20 haydariyan haydariyan درخواست نقشه
  مصاحبه اختصاصی سایت ایران شهرساز با رتبه 2 کشور در گرایش برنامه ریزی شهری 9... 3-20 alireza gholamirayan تالار گفتمان برنامه ریزی شهری
  مصاحبه اختصاصی سایت ایران شهرساز با رتبه 15 کشور در گرایش طراحی شهری 96 3-19 alireza payam_km تالار گفتمان طراحی شهری
  مصاحبه اختصاصی سایت ایران شهرساز با رتبه 3 کشور در گرایش طراحی شهری 96 3-18 alireza rikhtehgaran تالار گفتمان طراحی شهری
  نتایج کنکور ارشد 96 آمد.... کارنامه های رتبه های 1 تا 4 رقمی 3-17 alireza nassi تالار گفتمان برنامه ریزی شهری
  مصاحبه اختصاصی سایت ایران شهرساز با رتبه 17 کشور در گرایش طراحی شهری 96 3-17 alireza فرانک پورامین تالار گفتمان طراحی شهری
  دانلود دفترچه راهنمای انتخاب رشته کنکور ارشد ۹6 3-17 alireza alireza تالار گفتمان برنامه ریزی شهری
  مصاحبه اختصاصی سایت ایران شهرساز با رتبه 26 کشور در گرایش برنامه ریزی شهری ... 3-16 alireza alireza تالار گفتمان برنامه ریزی شهری
  مصاحبه اختصاصی سایت ایران شهرساز با رتبه 20 کشور در گرایش طراحی شهری 96 3-16 alireza alireza تالار گفتمان برنامه ریزی شهری
  مصاحبه اختصاصی سایت ایران شهرساز با رتبه 7 کشور در گرایش طراحی شهری 96 3-16 alireza alireza تالار گفتمان طراحی شهری
  الزام اصلاح مغایرت معدل برای داوطلبان مجاز در کنکور کارشناسی ارشد 96 3-14 Sahab Sahab اخبار دانشگاه
  مهم:دانلود فیلم اموزش جامع تری دی مکس3dmax به زبان فارسی 3-14 rezahuman9 alireza عکس ، فیلم و mp3
با ارسال فایل و شرکت در موضوعات ایجاد شده و پاسخ به آنها ما را همراهی کنید.

[-]
جستجو
جستجوی گوگل