注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

奕克

爱家人爱工作爱生活

 
 
 

日志

 
 

修改教案中所有日期的下里巴人方案(原创)  

2010-06-26 16:52:28|  分类: 技术 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
我的同事今天发表了一个自动生成教案日期的阳春白雪一样的方案(http://user.qzone.qq.com/10518150/blog/1277516494?ptlang=2052),很好,身为上office编程课的教师,自然不甘落后,所以我写一个下里巴人的方案,不具有很大的通用性。我手头只需要将一个教案文件中的所有日期相应修改,修改的规则是每个授课日期之间的间隔为七天
 
进入该教案文档,进入工具-》宏-》宏命令,创建gendate宏,其代码如下:
 
Sub gendate()
mydate = InputBox("请输入开始日期:", , Format(Date, "yyyy年m月d日"))
ActiveDocument.Content.Select
Do While True
  With Selection
       .Find.Execute FindText:="授课日期", Format:=False, Forward:=True, Wrap:=wdFindStop
       If .Find.Found = True Then
           .MoveEndUntil Cset:="日"
           .MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
           .Text = "授课日期: " & CStr(mydate)
             mydate = Format(DateAdd("d", CDate(mydate), 7), "yyyy 年 m 月 d 日")
            .Collapse direction:=wdCollapseEnd
            .EndKey Unit:=wdStory, Extend:=wdExtend
     Else
           .Collapse direction:=wdCollapseEnd
            Exit Sub
      End If
  End With
Loop
End Sub
 
该段代码的作用是首先弹出提示框,请用户输入授课开始日期,然后寻找文档中每一个授课日期开始的行,将其替换为新的日期,然后新的日期再增加1周,替换下一个日期。直至文档结尾。
 
调试通了么?OK!享受一下VBA给我们带来的方便,下次有时间我会把这段代码改成VBS脚本,这样对于不熟悉wordVBA环境的用户来说,也能轻轻松松点点鼠标运行VBS文件搞定。
  评论这张
 
阅读(91)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017