CS1.5下载

Posted by 风中客 @ 11:06 am, 12月 2nd, 2007

CS很久没玩过了,今天整理电脑发现了,大家分享一下吧。

http://www.fs2you.com/zh-cn/files/719c440f-9bb5-11dc-ad39-0014221f3995/

ppt 解决幻灯片打印讲义从页码1开始的方法

Posted by 风中客 @ 1:49 pm, 11月 26th, 2007

相信很多朋友在打印ppt时都遇到过,打印讲义只能从页码1开始,有时有好几个幻灯片打印,希望页码顺序能够相连;或者打印一套幻灯片的时候,中间卡纸了,在重新打印的时候,出来的页面还是页码1。
找遍了网上相关的解决方法,很多人都提出这个问题,但是真正解决的还没有。
下面就列出一个利用VBA宏的方法来搞定他吧

1. 在 工具 菜单上, 指向 宏 , 然后单击 " VisualBasic 编辑器 。
2. 在 插入 菜单上, 单击 模块 。
3. 模块中键入如下代码:
Sub HandoutNumber()   Dim i As Long   Dim lStart As Long   Dim lStop As Long   Dim lHandoutKind As Long   Dim lSlide As Long   Dim lSlideEnd As Long   Dim ppHandoutKind As PpPrintOutputType   Dim vbConfirm As VbMsgBoxResult   '   ' Ask the user which slide to start printing handouts from.   '   lSlide = InputBox("Start handouts at what slide number?", _         "Starting Slide", "1")   '   ' Ask the user which page number to start at.   '   lStart = InputBox("Start the page number for handouts at: ", _         "Restart Handout Page Numbers", "1")   '   ' Ask the user how many slides per page they want to print.   '   lHandoutKind = InputBox("How many slides per handout page?" & _         vbNewLine & "2, 3, 4, 6, 9?", "Handout Type", "4")   '   ' Use a case statement to set the handout type and the number of   ' slides per page. If the user types in a number other than 2,3,   ' 4,6, or 9, round up to the nearest handout layout size. If the   ' number is greater than 9, make it the 9-up layout and set   ' the slides per page to 9.   '   Select Case lHandoutKind      Case 1, 2         ppHandoutKind = ppPrintOutputTwoSlideHandouts         lHandoutKind = 2      Case 3         ppHandoutKind = ppPrintOutputThreeSlideHandouts         lHandoutKind = 3      Case 4         ppHandoutKind = ppPrintOutputFourSlideHandouts         lHandoutKind = 4      Case 5, 6         ppHandoutKind = ppPrintOutputSixSlideHandouts         lHandoutKind = 6      Case Else         ppHandoutKind = ppPrintOutputNineSlideHandouts         lHandoutKind = 9   End Select   '   ' Confirm the settings.   '   vbConfirm = MsgBox("You have chosen to print " & lHandoutKind & _         "-up handouts, starting at page " & lStart & vbNewLine & _         " and slide number " & lSlide & ".", vbOKCancel)   '   ' If the result is OK, print the range.   '   If vbConfirm = vbOK Then   '   ' Calculate the number of pages that have to be printed. Then, test to   ' make sure that number of pages are correct. The Round function rounds   ' to the nearest whole number, therefore if you have 10 slides to print on a   ' 9-up handout, lStop first is set to 1, because 10/9 = 1.1111 rounded   ' to 1.   ' The MOD operator returns a remainder if there are not enough slides   ' to fill a page. If the remainder is less than or equal to one half of   ' the layout size.   '      lStop = Round((ActivePresentation.Slides.Count - (lSlide - 1)) _            / lHandoutKind)      If Round((ActivePresentation.Slides.Count - (lSlide - 1)) Mod _            lHandoutKind) <= (lHandoutKind / 2) Then         lStop = lStop + 1      End If   '   ' From 1 to the number of pages, loop until all the pages are printed.   '      For i = 1 To lStop   '   ' On the notes master, set the automatic page numbers to False; then   ' insert the starting page number that the user wants. Increment the   ' page number by one.   ' This code assumes that object 4 on the handouts master is the page   ' number footer on the handouts master page.   '         ActivePresentation.NotesMaster.HeadersFooters.SlideNumber _               .Visible = msoFalse         ActivePresentation.HandoutMaster.Shapes(4).TextFrame _               .TextRange.Text = lStart         lStart = lStart + 1   '   ' Set the printer options and print the handouts.   '         With ActivePresentation.PrintOptions   '   ' Set the print range type to a slide range.   '            .RangeType = ppPrintSlideRange            With .Ranges   '   ' Clear any previous ranges that were set.   '               .ClearAll   '   ' Set the slide range to print based on the number of slides per page.   '               lSlideEnd = lSlide + lHandoutKind - 1   '   ' If the starting slide is greater than the number of slides in the   ' presentation, set the value equal to that number.   ' Perform the same test for lSlideEnd, to make sure the slide range   ' does not exceed the number of slides in the presentation.   '               If lSlide > ActivePresentation.Slides.Count Then                  lSlide = ActivePresentation.Slides.Count               End If               If lSlideEnd > ActivePresentation.Slides.Count Then                  lSlideEnd = ActivePresentation.Slides.Count               End If               .Add Start:=lSlide, End:=lSlideEnd               lSlide = lSlide + lHandoutKind            End With   '   ' Set number of copies to 1.   '            .NumberOfCopies = 1   '   ' Set the page output to the handout layout the user has chosen.   '            .OutputType = ppHandoutKind   '   ' Set the slide positioning to columns. You can also use   ' ppPrintHandoutHorizontalFirst to set the slides in rows.   '            .HandoutOrder = ppPrintHandoutVerticalFirst         End With   '   ' Print the single page by using the chosen settings.   '         ActivePresentation.PrintOut      Next i   End If   '   ' Reset the handout master page to use automatic page numbers,   ' and clear any text from the frame.   '   ActivePresentation.HandoutMaster.Shapes(4).TextFrame _         .TextRange.Text = ""   ActivePresentation.NotesMaster.HeadersFooters.SlideNumber _         .Visible = msoTrueEnd Sub

video

Posted by 风中客 @ 3:27 pm, 10月 12th, 2006

Gmail邀请若干

Posted by 风中客 @ 7:20 pm, 09月 11th, 2006

我也不知道,现在过没过时,好像身边的人都有Gmail了

呵呵

谁还没有的跟我说阿

又气着我了

Posted by 风中客 @ 5:06 pm, 09月 11th, 2006

今天陪着我们主任去了趟车管所,以前没去过。到了那之后,不愧是车管所阿,院子里面就立着马路上才能看见的指示牌,让人感觉很搞笑!

刚刚到一个办事窗口,只见三五成群的人围了上来,原来他们是帮助你办理手续的。我想这的服务还真不错,在细一打听,原来他们是要收取一定劳务费的。

为什么会出现这些人呢?为什么我们自己不能办,而需要这些人呢?为什么他们会有市场呢?

一大堆的问题,看来还是我们的办事效率有问题啊。试想要是能够很容易办下来,就不会有他们的生存空间啊。

我们拒绝了每一个上来搭讪的“办事员”,打算用自己的能力办下来。排了很长时间的队,终于有官方人士接待我们了,不料只给了我们两张表格。在普通不过的表格了,甩了一句,回去填好,盖好章,拿回来。

晕。就为了这两张表,我们千里迢迢来这排队领?

现在网络如此发达,为什么不在车管所的网上提供让大家下载?

为什么我们的政府办事效率如此~~~

不说了,越说越气

[2006.9.10]EBSCO直接入口*1

Posted by 风中客 @ 2:07 pm, 09月 10th, 2006

NEW YORK CHIROPRACTIC COLLEGE
直接入口:
由于链接字符很长,为了不影响界面,请点击此处,或右键复制快捷方式

EBSCOhost graphic EBSCOhost Web
EBSCOhost Text Only graphic EBSCOhost Text Only
EBSCOhost graphic Main Databases
DynaMed
Searchasaurus graphic Searchasaurus

[ZT]2秒内看出问题的是色狼

Posted by 风中客 @ 12:20 pm, 09月 10th, 2006

感恩——又到教师节

Posted by 风中客 @ 11:55 am, 09月 10th, 2006

9月10日,一年一度的教师节到了

思来想去,都已经工作的我,细细数来在我学习的17年中,遇到了不少影响我一生的好老师

人这一辈子,遇到一位负责任的老师就很不容易了。老师这个职业有其特殊性,她跟园丁还是有一定区别的,她所教育的是活生生的人,人是复杂的、高级的。

我的小学、高中、大学都遇到了伯乐,他们都在不同方面给过我很大的帮助。相比而言,我是幸运的。

我感谢他们,小学老师对于我的成长,对于的的性格,对于的发展给了不可磨灭的影响。

高中老师则给了我更多接触科研的机会,是我成长的启蒙。

大学是我收获的阶段,遇到了各个方面的优秀教师。我感谢她们,为我提供了发展的机会。

谢谢,由衷地感谢。

 

PPT2DOC 幻灯片文字提取程序

Posted by 风中客 @ 11:21 pm, 09月 9th, 2006

 PPT2DOC 幻灯片文字提取程序

       最近在网上发现这么一个小工具,可以把PPT中的文字、也包括部分表格、图片统统提取到一个Word文档中,但是还是需要人工修改一下下。速度蛮快!

       大家搜索一下吧!Google上可以找到。我就不发了 

[2006.9.9]Ezproxy*1 Marshall University Libraries

Posted by 风中客 @ 4:02 pm, 09月 9th, 2006
Remote Access to MU Libraries Resources

http://ezproxy.marshall.edu:2048/login

MUID: 901079848 Birth Date: 0725

Database Menu

MetaFind
Abc-clio: America: History & Life
CSA – Biological Sciences
EBSCOhost
EBSCOhost
PsycCRITIQUES
Bigchalk
CSA – Internet database Service
CSA Illumina
Catchword
African American Biographical Database
Emerald
International Index to Music Periodicals
ChoiceReviews.online
Com Abstracts
Com Index
Dissertation Abstracts(FirstSearch)
EBSCOHost Databases
Library, Information Science & Technology Abstracts
ATLA Religion Database with ATLASerials
EBSCO Electronic Journals (EbscoOnline)
Ebsco LinkSource
ebrary
ERIC (EbscoHost)
FirstSearch
Grove Dictionary of Music and Musicians
Human Relations Area Files (HRAF)
Journals on EBSCO Online: Full Text MU journal subscriptions online
JSTOR
MIT Press
SpringerLink(Kluwer)
MARCIVE WEB DOCS for US Government Publications
EbscoHost ?PsycArticles
WebSpirs – Criminal Justice Abstracts
WebSpirs – Mental Measurements Yearbook
ProQuest ?CINAHL
ProQuest Direct
OmniFile Select ‘94-present?/a>
Physical Education Index
Project MUSE
EBSCOHost – Psychological and Behavioral Science Collection
EBSCOHost – PsycINFO
EbscoHost Academic Search Premier
EbscoHost Business Source Premier
Science Direct Web
Synergy
USGOVSearch
Wiley InterScience
WilsonWeb – Biographies Plus Fulltext /Index to Legal Periodicals /Essay & Literature Index
Journal of High Energy Physics
Journal of the American Medical Informatics Association
Journal of Pediatric Health Care
American Journal of Physics
Research-Technology Management
Journal of Turbulence
Mathematics of Computation
Archives of General Psychiatry
Clinical Chemistry
Annals of Internal Medicine
BLACK CONGRESSIONAL MONITOR
LANGUAGE ARTS
Duke Mathematical journal
Science & Society
Microbiology
American Journal of Clinical Nutrition (EBSCOHostEJS)
SAA BULLETIN and SAA ARCHAEOLOGICAL RECORD
Publisher
Westlaw Campus
COS funding opportunities
Electronic resource
Community of Science MEDLINE
Community of Science Funded Research.
Community of science the U.S. patent citation database.
GeoRef
AGRICOLA (Online : COS)
Dissertation Abstracts (ProQuest)
RILM database in EbscoHost
Government Periodicals Universe
Lexis Nexis Academic
Congressional Universe
Statistical Universe
MathSciNet
WV-BRIN: Current Protocols reference series
Mergent Online
Publisher – Sage
Publisher – Oxford UP
Publisher – Haworth Press
Ebsco – Metapress
Haworth Publishers
Sage Publishers
IEEE title
Nature Publishing Group
Current Anthropology
Journal Citation Reports – JCR Web Science Edition
PubMed
Journal of Park and Recreation Administration
International Journal of Pattern Recognition & Artificial Intelligence
HUNTINGTON LIBRARY QUARTERLY & Journal of the American Musicological Society
Oil & Gas Journa
Clinical Kinesiology
EZ-Borrow (PALCI)
Cabell County Public Library
MILES
Degruyter Titles
NCJRS
Duke Titles
Publishers
Current Digest of the Post Soviet Press
www.ingentaconnect.com
Artstor