[求助]日记模板如何自动生成农历年月日与篇数

雨雪霏霏

　　孔兄的想法有创意。不过相对有限的工具栏空间而言，大概右键菜单还不占地方一些，当然，如果这个工具栏只出现在编辑日记文件时，也很不错。不过，这样的编码又与右键菜单相同的性质了。 　　真要建立一个好的模板，功能完善，工作量超大，目前为止孔兄的耐性已经超好了——实在很抱歉，误了孔兄许多宝贵的时间。具体的一些测试情况，我再总结上传。匆此回复。 　　前个帖子发出时，想到了，其实孔兄已经在右键菜单编码中考虑了这个问题——只被日记文件专用的右键菜单命令，对其他文件无效。 　　小弟的幼稚想法是：孔兄大概只需要加一个功能——即Word程序每打开一个文件，便能自动判断是不是日记文件，是日记文件的，在右键菜单中出现那三个命令，不是日记文件的，不出现那三个右键菜单命令。 　　另外，小弟反复回头看孔兄一路对我的帮助，才发现其实还有很多精粹是刚刚领悟到，还有许多暂时还无法完全消化，小弟会跟在孔兄背后努力学习的。 　　引用老大旧帖中的朴质而深刻的话（原帖一下搜索不到，这里是大意）：在论坛上向高手认真学习，泡上几年，功夫自成。

[此贴子已经被作者于2006-5-17 16:34:51编辑过]

守柔

以下是引用[I]konggs[/I]在2006-5-17 12:31:56的发言：[BR]

雨雪兄

呵呵，我晕了。

如果要全部完成，可能又全部重写。

准备做一个工具栏，相关的三个命令放到工具栏上，要时，点击一下。这样，右键就不用了。

KONG兄： 可以考虑使用这个代码： '仅将自定义设置保存于当前文档或者模板中 Application.CustomizationContext = ActiveDocument 另请楼主注意： 对于一个相对复杂的程序，楼主应该妥善的考虑和交待清楚真实意图和目的，再由编程人员加以完善。编程应该是用户意图的升级而非是弥补，一方面Kong兄也许急于完成此项工作，另一方面楼主的要求在不断地更改，这是很忌讳的。 我想请楼主静静地考虑几天，测试几天，把你所能想到的问题，把你所遇到的问题和你所期望的问题，详细的表述出来，让帮助你的人，热心如Kong兄者，有个全面的、正确的思考。 编程（不是几句VBA的组合了）需要以全局的眼光来思考问题，而不是以代码补代码，起始的思路如果切入得不够正确，有可能要“翻盘”，这是一件很痛苦和可怕的事，希望楼主理解。

雨雪霏霏

　　刚才“回家”，发现小弟的问题得到了老大高屋建瓴的指导，而且时间是大清早（7:12），字数达300余字，里中谆谆教诲，让小弟惭怍，更让小弟感激不尽： 　　老大费心了！其实，早在9楼的时候，老大就已经百忙之中挤出时间，找出了一个至今仍然极具诱惑力的方案，小弟尚未重谢呢！ 　　今天老大对孔兄的提醒，也表明老大在小弟日记模板问题上费了许多心思，一路关注，不然，可提不出中肯的见解——至今孔兄与小弟共有近2万字的讨论文字了，加上孔兄在里头种种细致的思虑，小弟进寸进尺的种种“无理要求”，要通吃日记模板问题而再能提出指导性建议，这种耐性与能力，也亏得老大有了！ 　　这里，小弟对老大在9楼、11楼、15楼、18楼、42楼的热心付出，致以深挚的感谢！ 　　同时，也期望能得到老大的继续帮助。 　　老大说的“一方面Kong兄也许急于完成此项工作，另一方面楼主的要求在不断地更改，这是很忌讳的”很是有点味道： 　　①确实，这一路的足迹是这样的——小弟提出了高要求，孔兄投入了大量精力与时间圆满解决了小弟的部分要求；小弟在测试过程中发现了孔兄的设计还有再商榷之处，另外又发现了可以多一些功能于日记模板中，于是再向孔兄提交测试报告与额外要求，孔兄又热心帮忙，如此反复，最终孔兄圆满实现了小弟发起此帖前的所有设想，许多地方还远超小弟的设想。 　　②小弟无理之处在于，没有一开始就完完整整把日记模板的所有功能都表述得极清楚，以致让孔兄反反复复帮忙，这里头耗去了孔兄大量宝贵的精力与时间。——以下是小弟的“辩解”，敬请孔兄老大们“笑纳”：小弟这可是存于心中许多年的理想了，总觉得这是不可完成之任务，放到“家”里时，实在还在担心孔兄老大们对此高难度且大工作量（或许还有点“无聊”）的问题一笑而过，小弟是并不敢奢望的，但不想孔兄一开始就向小弟展示了“家”里超常的温暖及无限的能力，小弟遂在孔兄一步步的热情“勾引”下把心头所有的热望都倾倒出来了，好比一个初出深闺的女孩，想找一个人帮忙带引，实现藏于深心的游览城里举世闻名的风景胜地的愿望，于是胆怯怯向刚从眼前经过的小伙子打了个招呼，问他能不能帮她一个小忙，告诉她去这个风景区的路线怎样走，不想这小伙子异常热情，连忙拦了马车，带了女孩去到胜地，不但付了车费，还买了各种饮料小零食给女孩，带领女孩遍游每一个景点，详细解说每一个景点的妙处，女孩在此过程中遂有了“突发奇想”，全都大胆告诉了小伙子，这小伙子哈哈大笑中使尽浑身解数一一解决，临末，送女孩回到了家，并且还留下了联系方式说以后有什么事尽管找他。——这实在也是小弟在27楼恨不是女儿身的“苦衷”。这也好，都是男人们在一起，有机会见着“恩人”时，小弟可要敬孔兄老大们好几十桶老酒才甘休。呵呵！ 　　③至于老大说的“一方面Kong兄也许急于完成此项工作”，我想老大看了前段的“真情故事”，大概不能够用一个“正宗程序员”的“职业标准”来衡量了吧。说实在的，没有小伙子助人的这种热情，这世界便只能是空留一些“完美的标准”，失去了所有的魅力。——我想，老大是严谨的，博大的，绝对无私的（对孔兄的“批评”，完全出于“你帮人怎么不好好下功夫，只想赶紧帮完了事”的语气），但究竟是“家”，究竟是“论坛”，一方在怯怯（小弟可是生平第一次发帖）期待，一方是殷殷热情，正是千百个这样的故事，让“家”成了版友们心中的港湾，经年之后，仍不敢忘。 　　④老大所说，确实是所有在论坛上的朋友们应该注意的地方——提出一个问题，应该自己先研究透，把所有的要求、目的、实际用处、最终效果全都写明，如此，才能够免除热心者的重复劳动（如老大所说“起始的思路如果切入得不够正确，有可能要‘翻盘’，这是一件很痛苦和可怕的事”），顺利达到自己的愿望。这个问题小弟以后会注意了。谢谢老大在这里提醒我。（小弟在帖子和附件里虽然也多次就此问题致歉，但确实是小弟的大错。也在此再次感谢孔兄的百般“容忍”，再次感谢孔兄还能有40楼的语气。） 　　老大的对小弟的教导甚是，小弟已经在进行着详细的测试总结，过几天再提交一份完整的附件。敬请劳累已久的孔兄好生休息一阵。 　　对于老大在9楼说的方案，小弟这里先提出一点设想： 　　小弟从http://www.e666.cn/Software/Catalog30/3034.html下载安装了“Microsoft Chinese Date & Time”，发现“日期”的内容是“农历丙戌（狗）年四月十七”，到农历的节气或节日时无法在后边追加显示，但它们在左边的周历表中却赫然出现，能够结合起来一起用到小弟的日记文件头“农历日期与节气”位置栏么？

konggs

其实，老大说的对。

是我的错。

我原来以为是个简单东东，没有把这个问题想清楚。

但是，事实是越来越复杂了。所以我的代码在一次次的修改后，有点不成体系了。

每次修改自己都要先看懂我的代码（这个1－2分钟），还有理解代码之间的逻辑（这个比较费时，有时10分钟都理不清），然后，就是理解新的要求（这个10分钟，因为要反复理解字里行间的含义，及代码的可行性）。接着就是添加、修改相关的代码，有时雪兄的要求与通常的代码不一样，就要反复的想是否可行，是否可以变通？

但又怕变通后，你不接受。所以，动作不感过大。

有时不时很明确时，就打开帮助，找找语法的案例看看，品味一下。然后，开始构思，写代码。整个过程至少1小时左右，在这1小时以内，有时还有反复的理解雨兄的意思。在这期间，如果一个电话，一件小事，我又有重头再来。所以，越向后，我的连续时间就会越长。所以，我等你的完整要求。

其实，你的后来的要求，我也考虑了，同时也试着在normal中加。但是，这样的我的Word就经常通不过了。所以，我没加做下去。

虽然你的部分要求我改了，但也不敢放上来。我怕你又要求改。

例如：（在最后一段加时间，但判断是否是空行的要求）如下

Sub 间隔性写日记()

Dim ar As Range, endrange As Range

Dim a

apar = 15

Dim abr As Range

Set ar = ActiveDocument.Range(ActiveDocument.Paragraphs(apar).Range.End - 1, ActiveDocument.Paragraphs(apar).Range.End - 1)

ar.InsertBefore "－－" & Mid(ActiveDocument.Tables(1).Range.Cells(3).Range.Text, 7, 5)

Set abr = ActiveDocument.Range(ActiveDocument.Paragraphs(apar + 1).Range.Start, _

ActiveDocument.Paragraphs(apar + 1).Range.Start)

abr.InsertAfter atim & "－－"

'5月17日改

For a = ActiveDocument.Paragraphs.Count To 13 Step -1

If Len(Trim(ActiveDocument.Paragraphs(a).Range)) > 3 Then

Exit For

End If

Next

Set endrange = ActiveDocument.Range(ActiveDocument.Paragraphs(a).Range.End - 1, _

ActiveDocument.Paragraphs(a).Range.End - 1)

endrange.InsertAfter "－－" & Format(Now(), "hh:mm") '得到新的打开的时间End Sub

Sub 记下时间()

atim = Format(Now(), "hh:mm") '记得打开的时间

段落

End Sub

所以，我在等你的全部要求。

最好，能完整的模拟你的日常写日记的一切要求。

（做一个RAR。）

我尽力做到。

我准备全盘重写了。

但是，有的功能肯定一定不能完成的。主要是本身的技术有限。

雨雪霏霏

　　看了孔兄的回帖，感动万分——孔兄可谓本论坛里一个超级“兄弟”了！ 　　不能不提的一点，从5月14日孔兄回复本帖开始，才短短几天时间，孔兄就已经付出超量的精力，满足了小弟不断追加的要求，小弟此时只能是“无声胜有声”，唯有默铭了。 　　是啊，编程的个中辛苦，小弟虽然还没有深味，却是完全可以想得出的。反反复复的工作，更是让人不堪忍受。越想老大的话，越觉得对不住孔兄，对孔兄的境界也越发敬重！ 　　楼上孔兄又费了心思改写的代码，小弟会在总结附件中一并附上测试报告，先在此向孔兄遥遥抱一个拳！ 　　小弟现在想了，与其让孔兄反复改几天，不如小弟先反复推敲几天，把所有可能出现的情况（老大说过，编程其实要周遍所有可能出现的情况，有容错能力。孔兄的代码反复改写的原因，也是因为小弟在这一部分提供的信息不够）都列出来——这，大概也算是小弟在编程的门外向孔兄老大们学着“编程”呢（还没有下水学游泳，但不妨在岸上先体会蝶泳蛙泳等等不同泳姿的手脚动作）。 　　孔兄自谦的态度，也让小弟心生羡意——高人就是高人！ 　　记得老大夸赞过，孔兄现在可以赶超老大了。小弟想，虽然目前孔兄与老大还有些距离，但因为孔兄具备了常人难以具备的、成功人士必定要有的各种基本素质，用不了多少年月，就会与老大一起坐在中国Word的头几把交椅上的！谨此预祝！

雨雪霏霏

非常感谢Konggs兄的真心相助！非常感谢老大开蒙小弟！ 　　注册ExcelHome近乎一月了，得到过许多兄弟的帮助，“家”里的温暖已不待说。小弟在这一个月时间里，有幸看到了孔兄升为Word版块版主、plxmm与清风升为Excel程序版版主，倍觉兴奋！是啊，“家”里的“版主团队”，大概是目前国内最强的吧！还有众多的“元老级”人物逍遥论坛内外，亦让小弟觉得“家”里真是英雄侠士汇聚、闲云野鹤未少。小弟本为求艺，实在未料这里已成了“家”，离之三日，便牵肠挂肚——实在是兄弟姐妹们在这里出出入入时带给了小弟许多的启迪与思悟！ 　　也因此，小弟在初始便感叹于孔兄给小弟做的日记模板有种种神奇，知道了VBA实在是好东西，到现在，便也有了想法——小弟一定要学好VBA。孔兄为小弟的日记模板耗费了过多的心血，小弟今已不忍再难为孔兄了！再者，孔兄最终完成的模板其实已经解决了小弟的最初问题，是一个功能颇完善的模板了，后来小弟提出的功能，在测试捉摸过程中，发现若是设想不周，倒成画蛇添足之举，而且新功能倒不一定就最适合创作（小弟在日常写作时，都以录制宏“Selection.InsertDateTime DateTimeFormat:="HH:mm", InsertAsField:=False”的快捷键Alt+Shift+Z键来随手键入当前时间），所以这后续的“测试总结”，小弟便也一直无法“最终完成”，到得今天，不能不来告知孔兄一声： 　　谢谢孔兄劳动好些天！小弟目前略略看懂了孔兄的编码，孔兄细心处让小弟大为叹服！后续“新功能”，小弟会在日后学习VBA路上自己好好揣摩，确实是好功能，则增之，若是只会引起混乱的，则不再添加。当然，小弟的设想，当然是可以增加的，问题在于如何避免引起混乱。这样的问题，也不该再麻烦孔兄了，小弟当自己去解决！“送佛到西天”的事孔兄有完全的热心，但真要让孔兄这般费心，那就是小弟的不对了！好在大家都还有几十年岁月，小弟还是可以不断向孔兄、老大及众兄弟姐妹请教的，不怕什么事情完成不了！呵呵！ 　　谨此小结，向孔兄、老大深拜！

h88h99h00

谢谢lz的分享

谢谢lz的分享


谢谢lz的分享

wang070205

谢谢你了,谢谢了

mag04307090

有好的模板吗？想用来写日记

tql_spirit

太感谢你的作品了！！！！！！！！1