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

守柔

这是个EXE文件，不能在工程中引用。

如果孔兄有时间，查一下，是否有什么接口供使用，我觉得这个的确有些用途，比WORD自带的要好一些。

雨雪霏霏

谢谢孔兄的强力支援，真是神人，如此短的时间解决了我想了几年的问题，惊喜、感佩！
　　孔兄设计的日记模板功能让人颇感神奇，比如在关闭文档时会自动显示出关闭时间于“日记写作终止时间”位置上，还会出现个对话框便于操作。可见孔兄的广博学识与细致周到。
　　但在打开“日记的自动”文件时，便出现了下图所示的问题，我一时还未弄清楚该怎样修改。
　　关闭了下图窗口，再于文档中键入日记标题，应用“标题1”样式时，样式一的格式不同于我机子里Normal的“标题1”格式，不知是何因。
　　关闭文档时，会提示是否保存的对话框，点选了“是”后，文档关闭，到了F盘下“我的日记”文件夹里找，未见有日记文件。想来，应该就是下图的问题如何解决 吧，解决了，便没有其他问题了。我再好好研究一番（请孔兄见谅，我只是初触VBA，虽然案头有一些好书，可还没来得及细学）。
　　至于农历的节气，涉及内容较广，可不敢再烦孔兄了，我再研究些年月吧。呵呵。

E:\Doc1.files\Image00009.jpg

konggs

老大，我去找找。这个软件。

雨雪菲菲兄，我没有细心，也没有细想，没有你说的那样。我只是简单的写了几句，连判断是否存在这样的文件夹，我都没写。（发过，想到了）这个还叫周到？我晕了。

你可以试试改一下这样这里（没看到图）

把下面的'标题的"‘"去掉，

把for each apar in activedocument.paragraphs

到'第一段删除，再试试。

Dim apar As Paragraph
'标题 = Mid(ActiveDocument.Paragraphs(1).Range, 1, Len(ActiveDocument.Paragraphs(1).Range) - 1)
For Each apar In ActiveDocument.Paragraphs
If apar.Style = "标题 1" Then
标题 = Mid(apar.Range, 1, Len(apar.Range) - 1)
Exit For
End If
Next
'第一段
时间 = Replace(Mid(Time(), 1, 5), ":", "")
年 = Year(Now)
月 = Month(Now)
If Len(月) <= 1 Then
月 = "0" & 月
End If
日 = Day(Now)
If Len(日) <= 1 Then
日 = "0" & 日
End If
MsgBox 年 & 月 & 日
文件名 = "F:\我的日记\" & 年 & 月 & 日 & 标题 & 时间

ActiveDocument.SaveAs 文件名
End Sub

konggs

在微软官方找到这个软件，可惜吾的机子出现“

该 Windows 版本或非 Microsoft 操作系统当前不支持验证

”，

呵呵，去别的网站找找。

守柔

TO Kong兄：

时间直接使用FORMAT函数就可以了，如：

VBA.Format(Now, "YYYYMD")

konggs

老大说的对，我当初也想应该有这个功能。连域都有这个功能，怎么VBA没有了？

我还特意打到VBS的帮助，找到format这个函数，可是始终没有看到这个？我当初也想，可能与域的用法一样，但没有试。

老大，像这样应用是如何得知的？是否还有一个“VBA.函数”的用法帮助？

谢谢老大指点。

雨雪霏霏

弄我不好意思死了，我看了你15:12:19时回复，试用之后，敲了半天键写了前一下回复的帖子，而且由于第一次在帖子里发图片，不知道如何发法，把图片 网址写成了“E:\Doc1.files\Image00009.jpg”（我的图片在自己电脑里的保存位置），结果未能跟在帖上。
　　更让我惭愧与感激的是，发表了帖子之后才发现孔兄与老大回复了好几个帖了。都是极高明的见解。我得再学一两天了。
　　就说刚才，我刚离开房间一两分钟，再回到电脑前，又已经看到了孔兄的详细修改方案，实在令我激动得吃不下晚饭——两位大侠如此高速、倾力帮忙一个连发帖都不会的生手，实在是让我百思不得其解——是呀，这就是“家”的异常温暖处。
　　谢谢你们了！

守柔

以下是引用[I]konggs[/I]在2006-5-14 17:11:42的发言：[BR]

老大说的对，我当初也想应该有这个功能。连域都有这个功能，怎么VBA没有了？

我还特意打到VBS的帮助，找到format这个函数，可是始终没有看到这个？我当初也想，可能与域的用法一样，但没有试。

老大，像这样应用是如何得知的？是否还有一个“VBA.函数”的用法帮助？

谢谢老大指点。

KONG兄过谦了。 一则孰能生巧，二为平时的积累。（我也就这几下，^_^） VBA帮助文件如果需要系统的学习，还是在VBE的帮助中的“Microsoft Visual Basic 帮助”，在这个任务窗格中，单击目录，可看到“Visual Basic 语言参考”。 ……

konggs

噢，原来有VB这个老大。我一直把“七兄”给我的VBS当作宝贝，一有问题就找到。原来，我是只见树叶，不见树林。

谢谢老大。

konggs

老大，那个程序，估计找不到接口，他是纯exe，没有引用dll，也没有com。我想只有反编译，但我不会。

重新扮装一下，再上来。

使用方法，双击这个Doc文档，然后在内输入内容。

输好后，关闭就行了。但会自动处理上面的内容，除了节气。

每天写日记时，就打到这个文档就行。

qJRELEqF.rar (21.06 KB, 下载次数: 101)

2006-5-14 19:30 上传

点击文件名下载附件

[此贴子已经被作者于2006-5-14 19:31:27编辑过]