绑定 Microsoft Word 对象

模块 BindWord 后期绑定 Microsoft Word 对象,调用方法如下:

Dim sProg As String
sProg = “Word”
Dim oWord As Object
Call BindWord(True)

Public Sub BindWord(ByVal bVisible As Boolean)
If Not oWord Is Nothing Then Exit Sub
On Error Resume Next
Set oWord = GetObject(, sProg & “.Application”)
If Err.Number <> 0 Then ‘没有打开
Err.Clear
Set oWord = CreateObject(sProg & “.application”)
If Err.Number <> 0 Then ‘没有正确安装
Err.Clear
Exit Sub
End If
oWord.Visible = bVisible
End If
On Error GoTo 0
End Sub

绑定 Microsoft Excel 对象

模块 BindExcel 后期绑定 Microsoft Excel 对象,调用方法如下:

Dim sProg As String
sProg = “Excel”
Dim oExcel As Object
Call BindExcel(True)

Public Sub BindExcel(ByVal bVisible As Boolean)
If Not oExcel Is Nothing Then Exit Sub
On Error Resume Next
Set oExcel = GetObject(, sProg & “.Application”)
If Err.Number <> 0 Then ‘没有打开
Err.Clear
Set oExcel = CreateObject(sProg & “.application”)
If Err.Number <> 0 Then ‘没有正确安装
Err.Clear
Exit Sub
End If
oExcel.Visible = bVisible
End If
On Error GoTo 0
End Sub

鲍姑

  罗浮山是蓬莱仙岛中的一个小岛。据说,浮山随着风浪从东海漂浮到南海,最后停在罗山旁,两山合而为一,因此命名为罗浮山。罗浮山素有仙境的美誉,山上有一个冲虚道观,道观中有葛仙祠。与大殿内其他神像龛不同,葛仙祠中还供奉着一位女子的塑像。在中国历史上鲜有女性得到如此受尊重的地位,这个人是谁?她与葛洪有着怎样的关系呢?

  鹣鲽情深

  这位端庄秀美、神态安然的女子,就是东晋名医葛洪的发妻鲍姑。

  鲍姑(约309—363),名潜光,上党(今山西长治)人。她出生于一个官吏及道士之家,其父鲍靓(亦名静),字太玄,曾师从真人阴长生学习炼丹术,道学水平较高,且兼通天文地理、河图洛书。鲍靓曾多次被朝廷征召,官至黄门侍郎,后来出任南海太守。鲍姑从小深受父亲的影响,对道教、炼丹、医学都有着浓厚的兴趣。

  鲍靓在南海期间,结识了同样笃信道教的葛洪。他十分看重葛洪的才识和品性,便将鲍姑许配与他。葛洪是东晋时期著名的道教思想家、医学家、博物学家和炼丹术家。鲍姑与葛洪志同道合,夫唱妇随,这对神仙眷侣在罗浮山隐居清修,过着恬淡悠闲的逍遥日子。他们常常一起在山上辨药、采药,共同研习医术,为百姓治病,在中国古代医学史上留下了一段“医界伉俪,鹣鲽情深”的佳话。

  作为一名封建时代的女性,鲍姑并没有局限于厅室之间,广东南海、番禺、广州、惠阳、博罗等地的崇山峻岭、溪涧湖畔之间都留下了她采药的身影。清代王言在《西华仙箓》中记载:“萍花溪相传洪崖先生炼丹地,尝有老姥采萍其间,莫测所自来,问之曰:吾鲍姑也。忽不见。”其中,“萍”指的是中药浮萍,具有宣散风热、透疹、利尿的功效,临床多用于麻疹不透、风疹瘙痒、水肿尿少之症。通过这段文字的描述,我们仿佛看到了鲍姑头戴斗笠,身背药篓,爬上云雾缭绕的高山,步入人迹罕至的萍花溪畔采药的景象。古代医门大都是男性的世界,鲍姑以自己的实际行动证明了“女性医者”的伟大与神圣。

  鲍仙姑与艾灸

  鲍姑医术精湛,尤擅灸法。所谓灸法是中国古代先民首创的一种物理疗法。鲍姑为了治疗当地患者的赘瘤和赘疣等难治疾病,认真总结了前人的治疗经验,就地取材,以当地盛产的红脚艾作灸材,制成艾绒条,取一点用火点燃,熏于人身,赘疣便全部脱落,这一事迹至今仍可见于地方县志、碑记文献中。如《南海县志》记载,鲍姑用“约冈天产值艾,以灸人身赘瘤,一灼即消除无有。历年久,而所惠多”。

  也许是受到妻子的影响,葛洪对灸法也非常重视。他认为对于百姓而言,艾草易得,灸法易学,这种简单、方便、廉价、有效的治疗方法应该大力推广。葛洪在《肘后备急方》中记载了109个针灸医方,其中有90余条是灸方,尤其对施灸部位、灸用壮数、注意事项等论述十分详细,使针灸医学的内容得到充实和完善。这些很可能得益于鲍姑在灸法上的经验总结。葛洪和鲍姑还改进了传统艾灸的方式,首创隔物灸疗,包括隔盐灸、隔蒜灸、川椒灸等,减少艾灸给患者带来的直接创伤。这些灸法奠定了艾灸学的雏形,一直影响至今。

  医迹颂传

  由于鲍姑的事迹广泛流传,民间更是把她列入神仙行列,称她为“鲍仙姑”“女仙”,她所用之艾也被称为“神艾”。相传鲍姑升仙后,常常化身为凡人到世间游历,行踪不定,如遇有缘之人即施以援手,事了则翩然遁去。

  据野史小说《太平广记》记载,唐德宗贞元年间,有一个叫崔炜的人,早年家境不错,但因他不善于治理家业,又性情豁达,很崇尚豪士侠客,没过几年,他家的财产全都用光,只好经常住在寺庙里。当时正是七月十五日中元节,广东百姓都在庙里陈设珍肴异馔,在开元寺中也有许多人唱戏,崔炜也去看热闹。在熙熙攘攘的人群中,他看到一位要饭的老妇人跌倒后不慎打破了别人的酒瓮,因为无钱赔偿而正遭受着殴打。崔炜看到后,非常同情她,就脱下自己的衣服抵偿酒瓮钱。事毕,老妇人竟没有感谢他便悄然离去。

  几天后,崔炜在路上又遇到老妇人,她说:“谢谢你为我解围,我擅长用灸法治疗赘疣,现在给你一些越岗山产的艾叶。以后如果遇到患有赘疣者,你只需要点燃一根,灸一炷后,不仅赘疣会消失,而且还能美容皮肤。”崔炜高兴地接受了。数日之后,崔炜游玩海光寺,遇到了一个耳部患有赘疣的老和尚。崔炜便用老妇人传授的方法为他治疗,果然效果显著。后来崔炜用艾草先后灸治了富商、神龙,一路上遇仙历险,最终成家立业,衣食无忧。

  他在机缘巧合中得知,那位送艾草的老妇人正是鲍姑,乃东晋鲍靓之女,葛洪之妻,一生在岭南一带行医救人。崔炜闻言,遂生求道之心,于是散尽万贯家财,携妻室至罗浮山寻访鲍仙姑去了。这段奇幻绝伦的传说背后,充分体现了鲍姑灸术的流传广泛及疗效显著,以及后人竞相追求的情景。   鲍姑是我国医学史上第一位女灸学家。她用医术惠泽苍生,行医济世名震岭南,丰富和发展了我国的针灸学体系,值得赞赏传颂。

绑定 AutoCAD 对象

模块 BindAutoCAD 后期绑定 AutoCAD 对象,调用方法如下:

Dim oAutoCAD As Object
Call BindAutoCAD(True)

Public Sub BindAutoCAD(ByVal bVisible As Boolean)
If Not oAutoCAD Is Nothing Then Exit Sub
On Error Resume Next
Set oAutoCAD = GetObject(, “Autocad.Application”)
If Err.Number <> 0 Then ‘没有打开
Err.Clear
Set oAutoCAD = CreateObject(“Autocad.application”)
If Err.Number <> 0 Then ‘没有正确安装
Err.Clear
Exit Sub
End If
oAutoCAD.Visible = bVisible
End If
If Err.Number <> 0 Then Err.Clear
On Error GoTo 0
End Sub

崔杼弑君—— 齐太史秉笔直书

齐太史不畏强权、不怕牺牲,前仆后继,直笔写史的精神,成为后世史官的典范。

中国历史上有籍可考的最早一起屠杀史官的事件,发生在春秋战国鲁襄公二十五年(公元前548年)。齐国重臣崔杼的妻子棠姜,容貌美丽,被国君庄公姜光看上,两人眉来眼去,勾搭成奸。姜光常常趁崔杼外出时跑到他家与棠姜宣淫,并把崔杼的帽子赏给别人。崔杼发现后,愤怒异常,设计捉奸。他谎称有病,不能上朝议政,淫欲如火的姜光觉得这是找棠姜寻欢的好机会,哪知崔杼早有准备,他到了崔杼府上,见棠姜不出来,还以为不知他圣驾光临,便抱着柱子唱歌,企图勾引她前来承欢。不料此时大门忽然关闭,埋伏在暗处的武士一齐冲出,姜光见势不妙,慌忙跳墙逃走,被武士一箭射中屁股,从墙上一头栽了下来,武士们遂上前将这个淫棍乱刀砍死。

庄公姜光虽然因与大臣的妻子通奸而被杀,但他毕竟是一国之君,于是齐国的太史对这一大案做了记录曰:“崔杼弑其君。”崔杼一怒之下,把太史杀了。太史的弟弟接着照写,崔杼照杀不误。但他过于相信刀斧的威力,太史的二弟仍然接着照写。远在外地的南史氏听说崔杼连杀两位史官,也毫不畏惧地拿着简册赶往都城,准备照写。崔杼见如此杀下去,不但不能掩盖自己弑君的事实,反而罪过更大,只好罢休。南史氏听说崔杼不再杀人,才放心地返回住地。

齐太史不畏强权、不怕牺牲,前仆后继,直笔写史的精神,成为后世史官的典范。

文天祥《正气歌》列述正气12例,开篇第一例便是:“在齐太史简,在晋董狐笔。”董狐是晋国太史,也以直笔写史而名传后世。但崔杼为隐恶而乱杀史官,却给后世史家造成精神上的威胁。可以想像,崔杼如果将手中的屠刀一直挥将下去,写史的人再多,终有斩尽杀绝的时候,而历史的真相,也将被彻底掩盖。于是春秋时期的一些史家开始采取口传史事的办法,或是多用“曲笔”以避祸。

司马迁评论《春秋》、《左传》说:“约其辞文,去其烦重,以制义法,王道备,人事浃。七十子之徒口受其传指,为有所刺讥褒讳挹损之文辞不可以书见也。鲁君子左丘明惧弟子人人异端,各安其意,失其真,故因孔子史记具论其语,成《左氏春秋》。”(《史记?十二诸侯年表序》)班固也对当时的史籍做出如下评论:“有所褒讳贬损,不可书见,口授弟子,弟子退而异言。丘明恐弟子各安其意,以失其真,故论本事而作传,明夫子不以空言说经也。《春秋》所贬损大人当世君臣,有威权势力,其事实皆形于传,是以隐其书而不宣,所以免时难也。及末世口说流行,故有《公羊传》、《谷梁》、《邹》、《夹》之传。”(《汉书?艺文志?六艺略论》)

由此可见,即使是头号圣人孔丘先生所作的《春秋》,对于有“威权势力”者的所作所为,只能用口头传授的方式,由师傅传给弟子,再由弟子往下传。靠这种口头传授的方式,势必使史事失实或传出几种说法,结果为后世的史家、学者带来很大的麻烦。