打回车后，如何自动插入一个日期？

jscpj · 发表于 2004-4-21 23:27

我想另起一段时，按回车键，在新的段落前自动插入一个日期，如何实现，谢过各位

cxffxc · 发表于 2004-4-22 08:41

这要用到VBA

不如直接输入了

GT2001 · 发表于 2004-4-22 08:43

那怎么办呵？

wenz · 发表于 2004-4-22 10:51

用回车就算了. Alt+Shift+T——时间 Alt+Shift+D——日期以上方法时间会自动更新,选中全文按Ctrl+Shift+F9组合键将域转换成普通文本就行了,也就不能自动更新了.

[此贴子已经被作者于2004-4-22 10:51:18编辑过]

守柔 · 发表于 2004-4-22 20:07

WORD中的CHANGE事件不同于EXCEL,而你的要求与SELECTION事件又有所不同,所以是否可以换个思路, 即所有段落全部输入完毕后, 在第二个段落与最后一个段落之前均插入一个日期.示例中的日期格式为默认格式如需更改, 请及时告知.

Sub Insertdatebeforstartph() Dim i As Integer Application.ScreenUpdating = False For i = 2 To ActiveDocument.Paragraphs.Count - 1'是否从第二个段落开始及-1 可自行设置调整. ActiveDocument.Paragraphs(i).Range.Select Selection.HomeKey Selection.InsertAfter Date Next Application.ScreenUpdating = True End Sub

jscpj · 发表于 2004-4-22 22:32

感谢各位热心帮忙，我对Word中VB不熟，我试试。

		自动登录	找回密码
密码			免费注册