摘要： 让OFFICE能识别文档中的文字如果要让此程序能运行，要添加EXCEL的引用，只有EXCEL才有此功能Sub SpeakIt() Set x = New Excel.Application x.Speech.Speak (ActiveWindow.Selection) Set x = NothingEnd Sub让PPT能随机出题。Slides 一个代表指定演示文稿中所有幻灯片的 Slides 集合。只读。Sub RandomlyPlay() Dim num As Integer Randomize Dim i As Integer n = ActivePresentation.Slides. 阅读全文

摘要： PublicFunctionGetCacheEntryInfo(ByValhWndAsLong,ByVallpszUrlAsString)AsBooleanDimdwEntrySizeAsLongDimlpCacheEntryAsINTERNET_CACHE_ENTRY_INFODimdwTempAsLongDimlErrAsLongIf(GetUrlCacheEntryInfo(lpszUrl,ByVal0&,dwEntrySize))=0ThenlErr=Err.LastDllErrorIf(lErr<>ERROR_INSUFFICIENT_BUFFER)Then’UR 阅读全文

摘要： PrivateSubForm_Load()IfIsConnected=TRUEThenMsgBox(“您已经连通了Internet!”)EndIfIfIsConnected=FALSEThenMsgBox(“您还没有连通Internet!”)EndIfEndSub　OptionExplicit/＊有关的API声明和定义＊/PublicDeclareFunctionRasEnumConnectionsLib“RasApi32.dll”Alias“RasEnumConnectionsA”(lpRasConAsAny,lpcbAsLong,lpcConnectionsAsLong)AsLong　Pu 阅读全文

摘要： 今天中午吃饭的时候，和几个同事聊天。一哥们早些时候在一间上了网的婚介公司做程序员(姑且称他为小A吧)，那间公司经常有那么些个20岁出头的漂亮MM来征友，做为公司的技术主力，他经常要做一些“接待”工作----搜索公司的数据库，"现场"配对什么的。有一天来了个20岁的小姑娘，生得这个还算是中人之姿，听说这间婚介还具有网络“背景”，具有庞大的“人才”数据库云云，一进门，刚填好表就往那小A那去了小A问：“小姐需要找什么样的啊？”小姐斩钉截铁，毫不犹豫的说“三十岁以上，有车有房(三室以上)，婚否不拘。”，在数据库好一阵搜索，结果只有3个符合条件的，小姐有见于此，失望之情溢于言表，小A 阅读全文

摘要： ----首先声明，我绝对不是色狼，也不是在偷看你！ 1、你明明知道我是近视眼，可你还坚持要穿——所以反对 2、因为你比我高，我只能望见珠穆朗玛峰，却不能俯视科罗拉多大峡谷——所以反对 3、在我骑自行车的时候，请你不要去拣地上的书，因为我已经和垃圾桶KISS两次了，修车费太贵——所以反对 4、而我在你面前故意扔了n次面值为5元、10元、20元的RMB，还有一次是吐血的50元，可你从不拣（到是便宜了你旁边的胖妹），害我吃了几月的白饭——所以反对5、我装着有问题来请教你，你为什么要有礼貌的站起来回答？——所以反对 6、我趴在阳台上“壁虎”般的盼望你经过，你竟然不顾我高空作业的危险，撑开... 阅读全文