打开电脑,单击打开Word软件,进入Word软件主界面;
请点击输入图片描述
在Word软件主界面,输入我们所需要编辑的内容,当全部内容输入完毕后,点击Word软件主界面最上方菜单栏中的【插入】;
请点击输入图片描述
请点击输入图片描述
在插入菜单栏中选择【签名行】,然后,在选择【图章签名行】,然后点击确携春定,进入签名设置界面;
请点击输入图片描述
请点击输入图片描述
在签名设置界面,我们需要输入签名人的姓名(例如,李四),我们可以根据需要决定是否输入签名人的职务(例如,部门经理)以及签名人的电子邮件(例如,不输入),待这些内容输入完毕后,点击下方的确定按钮;
请点击输入图片描述
请点击输入图片描述
此时,我们发现,在整篇文档的最下方,就出现了我们新添加的签名行,此时,我们要进行日期和时间的设置了,此时,在最上方的插入菜单栏中选择【日期和时间】,进入日期和时间设置界面;
请点击输入图片描述
请点击输入图片描述
在进入日期和时间设置界面后,选择语言类型以及日期格式,模隐清然后点击下方的确定按钮,此时,我们发现我们所需要的日期便添加完成了,此时,我们就完成了在Word文档如何设置日期和时间以及签名行的任务了。
请点击输入图片描述
请点击输入图片描述
1、首先需要确保Word的宏安全性设置至少为“中”(工具-宏-安全性-中)。\x0d\x0a2、在Word里面新建一个空白文档,给它随便取个名字(比如“我的日逗闹志”)保存一下——这个文档就是你以后日志文档的开端了!(注意,如果你用的是Word 2007的话,需要保存为启用宏的文档*.docm)\x0d\x0a3、键入ALT+F11打开VBA编辑窗口,键入CTRL+R激活左边的“工程 _ Project”面板;\x0d\x0a4、双击工程面板中的“Project (我的日志)\Microsoft Word 对象\ThisDocument”打开代码窗口;粘贴如下代码进去:\x0d\x0aOption Explicit\x0d\x0aDim oLogFileCreator As LogFileCreator\x0d\x0aPrivate Sub Document_Open()\x0d\x0aOn Error Resume Next \x0d\x0aSet oLogFileCreator = New LogFileCreator\x0d\x0aSet oLogFileCreator.WordApplication = Application\x0d\x0aEnd Sub\x0d\x0aPrivate Sub Document_Close()\x0d\x0aOn Error Resume Next\x0d\x0aSet oLogFileCreator.WordApplication = Nothing\x0d\x0aSet oLogFileCreator = Nothing\x0d\x0aEnd Sub\x0d\x0a5、选择菜单“插入-类模块”,然后在工程面板里双击这个刚生成的“Project (我的日志)\类模块\类1”,粘贴如下代码进去:\x0d\x0aOption Explicit\x0d\x0aPublic WithEvents WordApplication As Word.Application\x0d\x0a' 根据需要修改下面引号中的内容作为你日子文件的默认前缀\x0d\x0aPrivate Const c_strFileNamePrefix = "我的日志_"\x0d\x0a\x0d\x0aPrivate Sub WordApplication_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)\x0d\x0aOn Error Resume Next\x0d\x0aDim fso As Object\x0d\x0aDim strOldName As String, strNewName As String \x0d\x0aSet fso = CreateObject("Scripting.FileSystemObject") \x0d\x0astrOldName = ActiveDocument.FullName\x0d\x0astrNewName = fso.BuildPath(fso.GetParentFolderName(strOldName), Format(Now, c_strFileNamePrefix &"yyyy-mm-dd.") &fso.GetExtensionName(strOldName)) \x0d\x0aIf UCase(strNewName) UCase(strOldName) Then\x0d\x0aActiveDocument.SaveAs strNewName\x0d\x0afso.DeleteFile strOldName\x0d\x0aCancel = True\x0d\x0aEnd If \x0d\x0aSet fso = Nothing\x0d\x0aEnd Sub\x0d\x0a6、可以根据需要修改代码中的日志文件名前缀。默认的日志文件名是类似 “我的日志_2009-09-12”这样的山睁罩形式。早清\x0d\x0a7、键入F4打开属性面板,在里面把“(名称)”从“类1”改为“LogFileCreator”。\x0d\x0a8、键入ALT+Q关闭VBA编辑窗口返回Word文档窗口,保存,关闭。\x0d\x0a9、再次重新打开这个文档,如果Word提示是否启用宏,选择启用。\x0d\x0a10、现在你的这个自动按日期保存的日志就可以正常运作了。每次你做完修改后,只要你一保存,它就会根据今天的日期自动把文档保存成类似这样的形式“我的日志_2009-09-12”(前缀“我的日志”可以在上面代码中修改)。直接按ctrl+end将光标移至文档最后,移答消动鼠标圆困至要输入的落款位置,双击鼠标左键,清腔知直接输入。如果不能实现,进入工具菜单—选项—编辑栏中勾选“启用‘即点即输’”即可实现上面的功能。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)