|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
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
کامنت