baoshanbo baoshanbo
关注数: 12 粉丝数: 221 发帖数: 18,931 关注贴吧数: 22
剃刀边缘全剧剧情最大漏洞 目前已更新到47集,快大结局了,后面也不会有大的故事了。全剧剧情最大漏洞就是观音庙一站,牺牲了刘闯、九儿两个比较重要的人物,3个叛徒死了,死了一些警察,游击队和宪兵队枪战也有不少死伤(正常来说游击队打巷战战斗力不如正规军,游击队人数又少,这样打恐怕会全军覆没,但抗战剧都是这样套路),许从良和关海丹配合演戏(关海丹骗刘闯、九儿到现场)使事情看起来都是合理的,所有人都接受了这个故事。 最大的漏洞在于5个故意放出逃犯,3个叛徒死了,2个逃犯逃脱了(这2个逃犯实际是刘闯、九儿换出来的),多了刘闯、九儿和两把手枪(逃犯没有枪)。许从良和关海丹的演戏能解释刘闯、九儿为什么在场,却解释不了为什么2个逃犯逃脱了,多了2把手枪。关海丹骗刘闯、九儿到现场也不必带枪,即使带枪,为何就会被当成共产党卷入战斗,为何2个不是叛徒的逃犯逃脱了,为何叛徒折磨九儿游击队就出来营救。这么多疑点,日本人居然都不追查。 另外,叛徒叛变后马上就表现得像伪军一样歹毒(前面孙奎叛变还没这么歹毒),甚至可以说超越伪军像日本人一样歹毒,而且对付剃刀时自己也面临极大危险,这么做没有明显好处,像是被洗脑了一样,但剧中没怎么介绍日本人使了什么手段,使得剧情显得突兀了。
将word文档按分页另存为多个word文件的VBA代码,不改变原文的格式 将word文档按分页另存为多个word文件的VBA代码,不改变原文的格式 有时候需要将一个word文档每一页另存为一个word文档,手工操作量大太繁琐。我们可以用VBA来实现批量自动处理。本文以word2010为例。查看宏(Alt+F8),创建宏“分页保存”,输入以下代码,然后执行宏“分页保存”即可。 本程序是每次删除多余的部分,因此不会改变原文的格式,页眉页脚也会保留完好。 注:开始时,需要处理的文档必须已经完全打开,页数显示正确之后开始执行宏。本程序分页的文档保存在源文档相同目录,请运行前把源文档单独放在一个目录下。 Sub 分页保存() **分页保存,WORD2010下运行正常 **开始时,需要处理的文档必须已经完全打开,页数显示正确之后开始执行程序 **本程序分页的文档保存在源文档相同目录,请运行前把源文档单独放在一个目录下 * Application.ScreenUpdating = False *关闭屏幕更新 *声明 Dim x As Integer Dim j As Integer Dim n As Integer Dim max As Integer Dim ErrChar() As Variant, oChar As Variant *文件自动命名时必须规避的字符,"/" ErrChar = Array("", ":", "*", "?", """", "<", ">", "|", vbTab, NullChar, vbCr, vbLf) *获取当前文档完整路径 ThisPath = ActiveDocument.Path ThisName = ActiveDocument.Name ThisName = ThisPath & "\" & ThisName * MsgBox ThisName *获取当前文档页数 max = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) MsgBox "页数:" & CInt(max) *对每一页循环 For j = 1 To max Dim str1 As String *在所需页尾插入特殊字符 If j < max Then x = j + 1 Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=x Selection.InsertAfter "卐卐" End If *在所需页首插入特殊字符 Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=j Selection.InsertAfter "卍" *删除所需页尾之后的部分 Selection.HomeKey unit:=wdStory If j < max Then With Selection.Find .Forward = True .Wrap = wdFindStop .Text = "卐卐" .Execute End With *Selection.Delete Selection.EndKey unit:=wdStory, Extend:=wdExtend Selection.Delete End If *删除所需页首之前的部分 Selection.HomeKey unit:=wdStory With Selection.Find .Forward = True .Wrap = wdFindStop .Text = "卍" .Execute End With Selection.Delete Selection.HomeKey unit:=wdStory, Extend:=wdExtend Selection.Delete *获取第一行的文本 Selection.HomeKey unit:=wdStory Selection.EndKey unit:=wdLine, Extend:=wdExtend str1 = Selection.Text str1 = Trim(str1) For Each oChar In ErrChar *进行一系列替换,即删除无效字符 str1 = Replace(str1, oChar, "") Next str1 = Replace(str1, " ", "") str1 = Replace(str1, "/", "╱") *生成文件名 str1 = ThisPath & "\" & CInt(j) & str1 & ".doc" *另存为 ActiveDocument.SaveAs FileName:=str1 *关闭并重新打开文档 ActiveDocument.Close Documents.Open FileName:=ThisName Next j ActiveDocument.Close Application.ScreenUpdating = True *恢复屏幕更新 End Sub
【骗子公布】QQ号[email protected](137333377),酒水托 她的个人说明: 错过,是一辈子的过错! 也许,生活就是这样的。最后相守到老的人, 不一定是那个曾经许下海誓山盟, 曾经承诺白头偕老, 曾经暗自发誓这辈子只爱他一个的人。 也许,他们能给彼此的最后的爱, 就是要过的幸福。 没有彼此,也要永远笑着,幸福下去。 ===================================================================== 这是我在征婚网站上的举报信。她在征婚网站上的账号已经被处理了。但我不知道她是否还在继续用这个QQ号骗人(在征婚网站注册新的骗人账号): ===================================================================== 我和她在征婚网站上通信不多,她就要了我的QQ。在QQ上也聊得很少,她5月18日下午6时前约我一起吃饭,我这回防范意识差就去了。约的地点是四公里,但后来见面地点在五公里轻轨站下面,她让我多走了1公里路。见面她却说她已经吃过饭了,我说有点尴尬。她说找个地方坐坐,我说可以,于是她带我去了附近一个**咖啡,进去的时候我没注意招牌,是出来的时候看的。我进了小房间就觉得她可能是骗我。菜单来了,灯光昏暗我看不大清楚,于是我要了橙汁,她要了咖啡、牛肉干、话梅、果盘。她滔滔不绝的讲话,说她有多好多有诚意交往,把自己说得是忠孝仁义。过了一会儿服务员来结账,要290,我怀疑乱要价,但没说,付了钱。又过了一会儿,她说想喝点别的,我说可以,于是她点了,我不清楚点的是什么。过了一会儿,送来的是兑了雪碧的红酒。我们喝了一会儿,又来要结账,这酒要728,我知道自己很可能被骗了,但还是付了钱。我们又喝了一会儿,我说有点醉了不喝了,杯子里还有不少酒没喝完。她说她还想喝怎么办,她说她喝得高兴还想喝,我说再好的东西也不要多喝了,该走了。我们于是就走了,她的杯子里剩的不少酒她也没喝掉。出来我们到路口就分开各自回家了。可以确定她是酒水托无疑。
【转载新闻】新型石墨烯材料薄如纸硬如钢 作者:Ali Ranjbartoreh 来源:《应用物理学期刊》 发布时间:2011-4-22 14:28:29 新型石墨烯材料薄如纸硬如钢 重量比钢轻6倍 抗拉强度比钢大10倍据美国物理学家组织网4月21日报道,澳大利亚悉尼科技大学的科学家日前宣布,他们开发出了一种厚度和纸相当、强度比钢还高的石墨烯复合材料,这种纳米结构的石墨烯材料复验性测试结果良好,有望在汽车制造、航空工业、电子以及光学等领域引发**性变革。相关论文发表在最新一期《应用物理学期刊》(Journal of Applied Physics)上。 由悉尼科技大学王国秀(音)教授带领的这个研究小组,通过合成法和热加工法对石墨进行提纯和过滤,进而将其制成像纸一样薄的薄片。这种石墨烯纸(GP)在微观上呈单层六角形碳素晶格结构,具有独特的热学、电学和机械性能。对比实验显示,与普通钢材相比,石墨烯纸在重量上要轻6倍,密度上小5到6倍,强度上大2倍,抗拉强度大10倍,抗弯刚度大13倍。 负责该项研究的阿里·利萨·兰迪巴托契说,此前还没有人用类似的方法制造出有如此性能的石墨烯纸,这种材料与钢相比不但更轻、更强、更灵活,而且还可回收和循环使用,是一种环境友好型产品,有望在汽车制造和航空工业领域首先获得应用。与传统的钢材和铝材相比,用新材料制成的汽车和飞机不但会更加省油,产生的排放也会更少,同时其运行成本也会更加低廉。 据了解,目前不少飞机和汽车制造商已经开始用碳纤维材料取代金属材料。空客A350碳纤维复合材料用量已占总重量的40%;波音787机翼和机身上使用的碳纤维复合材料超过50%。采用这种材料的客机油耗少,减排效果显著,维护方便,能够给航空公司节省燃料和维护费用,出现后立即引起了世界各国的关注。被喻为“公路上的F1”的梅赛德斯奔驰SLR迈凯轮跑车也采用了高强度碳复合材料,其最高时速可达334公里/小时,100公里内的加速仅需3.8秒。与碳纤维复合材料相比,石墨烯纸的性能无疑更为出色。 兰迪巴托契说,10年来越来越多的金属材料已经被碳基材料取代,以澳大利亚为例,在其采矿业、材料加工和制造业中,碳基材料的应用正日渐广泛。而澳大利亚具有丰富的石墨资源,为石墨烯材料的大规模生产和开发提供了便利。(来源:科技日报 王小龙) http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fnews.sciencenet.cn%2Fhtmlpaper%2F201142214282924116383.shtm&urlrefer=0d1c01449cc2bc8a0b32e810a77d2a5c
【转】警方:3名少年贪玩扔石块致丛飞遗孀遇害 警方:3名少年贪玩扔石块致丛飞遗孀遇害 2011-04-16 13:59:03   来源: 羊城晚报(广州)   有75693人参与 核心提示:13日晚,“感动中国”人物丛飞遗孀邢丹行车时被飞石击中殒命。邢丹所乘汽车挡风玻璃被路边不明身份人士扔出的石块击穿,邢丹被击中致伤,经抢救无效死亡。16日凌晨4时破获。三名疑犯被抓获,均为十多岁青少年。警方称,三人因贪玩向车上扔石块等硬物,以击中为乐。 最新消息 邢丹案今晨破案!三青少年贪玩酿惨剧 羊城晚报惠州讯 丛飞遗孀邢丹在高速公路被混凝土块击中致死案件,16日凌晨4时破获。三名疑犯被抓获,均为十多岁的青少年。16日上午,羊城晚报记者从惠州市公安部门获悉,三名疑犯均来自惠东一村庄,分别出生于1996年、1994年、1992年。据称,三人因贪玩向车上扔石块等硬物,以击中为乐。击中邢丹所乘车辆者1996年出生。 (黄礼琪 曾林) 砸中邢丹的是块混凝土 警方确认系人为,邢丹因颅脑损伤失血过多死亡 羊城晚报惠州讯本月15日,惠东县公安局确认砸中丛飞遗孀邢丹的物体为混凝土,系人为。据警方透露,邢丹当时乘坐的车辆时速在80至90公里。混凝土块从前挡风玻璃飞来,击中邢丹的左脸侧,邢丹因颅脑损伤失血过多死亡。 据警方调查,当晚邢丹所坐的车辆从海鲜饭店较多的海丰市鹅埠镇鲘门上深汕高速,然后转入深惠沿海高速。邢丹所坐的车辆行至深惠沿海高速惠东境内7.8公里处时,邢丹被约为拳头大小的混凝土击中。警方确认该混凝土块非飞石,而是为人为抛掷。 惠东警方介绍,本月13日23时45分左右,警方接到报警,司机报警同时询问最近的医院,警方告诉司机最近的医院是大亚湾霞涌医院。110指挥中心立即指挥距离事发地点最近的***干警赶赴现场,警方要求司机先救人。邢丹受伤之后,司机开车将她送至大亚湾霞涌医院。据该医院医生说,邢丹左脸受伤的地方有动脉经过,伤口未发现玻璃碴,医院对她抢救了半小时。公安干警赶到医院时,邢丹已经死亡。 据了解,深惠沿海高速公路开通没多久,车流量较少。据警方介绍,警方至今尚未接到该路段有车辆被抢劫和人为掷石头砸车的报案。是什么人掷混凝土击中邢丹?目前警方尚在调查当中。惠州市与惠东县两级公安已经成立人数超过十人的专案组侦破此案。 昨天,邢丹父亲赶赴惠东了解相关情况。 (黄礼琪 全良波) 邢丹遗体留在惠州超过了12小时 未捐眼角膜成永久遗憾 羊城晚报深圳讯记者全良波、沈婷婷报道:感动中国人物丛飞遗孀邢丹遭遇意外不幸去世后,邢丹的亲朋好友纷纷来到她家慰问邢丹父亲,远在辽东的丛飞父亲张万军也准备来深,打算把她和丛飞的小女儿小飞飞接到身边抚养。记者昨天获知,邢丹未能实现捐献眼角膜的遗愿。 据悉,丛飞在去世后捐赠了自己的眼角膜,深圳市眼科医院姚晓明博士成了邢丹的朋友。邢丹曾向姚晓明表示,她死亡后也会把眼角膜捐献出来。14日,姚晓明听闻邢丹遭遇不幸的消息后,一直在她家中等到凌晨零时左右,没有等到邢丹遗体送回深圳的消息,才离开邢丹家里。 据了解,眼球或角膜在死亡后12小时内必须捐献,不然无法再移植。姚晓明说,邢丹的母亲一直都支持邢丹这个决定,这成为邢丹最后的心愿。但遗憾的是事件涉及刑事案件,遗体一直留在惠州。从13日事发到14日凌晨已经超过了12小时,眼角膜已经不能再用了,邢丹捐赠的心愿已经成为永久的遗憾。 15日上午,记者从深圳殡仪馆了解到,14日晚上23时许,邢丹的遗体才被送回深圳。殡仪馆负责人林清泉说,邢丹的遗体按照正常程序进行处理。因为邢丹死亡涉及刑事案件,还需要进行尸检。 丛飞夫妇永远离开了他们的女儿小飞飞,如今小飞飞还是由外公外婆抚养着。昨日,记者电话联系了小飞飞的爷爷张万军,他称已经做好把小飞飞接到身边抚养的准备,打算前来深圳和其外公外婆商谈。 新闻回顾:感动中国人物丛飞遗孀罹难 疑遇砸车抢劫 13日晚,“感动中国”人物丛飞遗孀邢丹行车时被飞石击中殒命。惠州警方称邢丹所乘汽车挡风玻璃被路边不明身份人士扔出的石块击穿,邢丹被击中致伤,经抢救无效死亡。据悉,邢丹丈夫丛飞11年慈善资助178名贫困儿童,累计捐款捐物300多万元,被评为感动中国人物。 责任编辑:NN032(本文来源:金羊网-羊城晚报 作者:黄礼琪、曾林)
1 下一页