fooltutu的专栏

fooltutu的空间

fooltutu 北京在线状态

共25次访问，排名85015好友5人，关注者2人

注册时间：2008-4-27
登录时间：2008-6-9

[加为好友] [即时聊天] [发私信]

fooltutu的个人资料

所在行业：计算机软件

社区头衔：

个人专长：

未填写

专家分: 目前总共有50分

VB:50分

博客：目前总共有0条评论

访问量:0

排名:20000名之外

文章数:0条

fooltutu的好友

fooltutu最新动态

06月 09: fooltutu 发表了帖子如何保护ＥＸＣＥＬ某个工作表 16:07

06月 08: fooltutu 发表了帖子为什么我用代码打开ＷＯＲＤ之后再关闭，总会产生隐藏文件， 19:39

06月 02: fooltutu 发表了帖子如何去掉ＥＸＣＥＬ菜单栏里某一项ＯＲ如何正确的在菜单栏里 22:18

05月 27: fooltutu 发表了帖子错误提示：不能设置类worksheet的visible的属性是怎么 21:26

05月 23: fooltutu 发表了帖子 name 语句 10:00

05月 22: fooltutu 发表了帖子是不是word没激活的原因？ 17:28

05月 21: fooltutu 发表了帖子这样的模糊查询如何实现 15:17

05月 18: fooltutu 发表了帖子如何在wordVBA中写workbooks.add 10:26

05月 15: fooltutu 发表了帖子怎么提取ＷＯＲＤ的页眉和页脚啊 20:57; fooltutu 发表了帖子实在搞不懂怎么回事？！ 14:21

05月 14: fooltutu 发表了帖子在ＷＯＲＤ中如何用ＶＢＡ判断一行是空行 20:19; fooltutu 发表了帖子菜鸟问题 16:14

05月 11: fooltutu 发表了帖子如何在ＷＯＲＤ里面写ＶＢＡ打开ＥＸＣＥＬ表 09:35

05月 04: fooltutu 发表了帖子帮忙看下这个错误提示 20:08

04月 28: fooltutu 发表了帖子如何不覆盖原文件里的内容？ 17:49

04月 27: fooltutu 发表了帖子如何用ＶＢＡ将ＷＯＲＤ里面的重点信息存入于ＥＸＣＥＬ表中 11:07

fooltutu的留言

slivefox发表于：2008-06-24: WORD里录了几个宏，在工具栏里加了几个图标，但我现在想给别人的机子上也装上这个，一个人就得装一遍，很麻烦，如何能用vb做个可以安装模板的安装程序呢。就是想别的安装程序一样有进度条的那种，将我做的模板放到别人的机子上。谢谢。

slivefox发表于：2008-05-24: Sub queryDate() '得到当前年 Dim curYear As String curYear = Year(Now) '需要将当前年转换成中文汉字的年 Dim convertYear As String If curYear = "2008" Then convertYear = "二○○八" ElseIf curYear = "2008" Then convertYear = "二○○九" End If '接收到文档里的年 Dim receYear As String Selection.Find.ClearFormatting With Selection.Find .Text = "落款" + Chr(13) .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With If Selection.Find.Execute = True Then Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=2, Name:="" Selection.MoveRight Unit:=wdCharacter, Count:=4, Extend:=wdExtend receYear = Selection.Text If receYear <> convertYear Then Selection.Comments.Add Range:=Selection.Range Selection.TypeText Text:="中文年份不对" End If End If Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1" Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1" Application.WindowState = wdWindowStateNormal Selection.Find.ClearFormatting With Selection.Find .Text = "document over" + Chr(13) .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With If Selection.Find.Execute = True Then Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:="" Selection.EndKey Unit:=wdLine Selection.MoveLeft Unit:=wdCharacter, Count:=4, Extend:=wdExtend receYear = Selection.Text If curYear <> receYear Then Selection.Comments.Add Range:=Selection.Range <----执行到这句话报错，word自动关闭 Selection.TypeText Text:="英文年份不对" End If End If End Sub 当执行到上边<--时，word就会自动关闭，不知道为什么。第一次查询“落款”时，也有这句话，为什么在第二次查询“document over”时，同样的一句话，执行到这时，word就自动关闭了。为什么啊。应当怎样改啊。

给fooltutu的留言