_______元宵快?_______
HAPPY LANTERN FESTIVAL
正 月 十 五 元 宵 节
今 天 就 是 元 宵 节
该 以 怎 么 样 的 姿 势 度 过 今 天 呢 ？
传 统 方 式
既然是特别攻略，当然不仅仅是
点灯、赏月、浮元子
所以，如何特别地度过元宵节呢？
公 益 环 保
随手捡起身边的垃圾
元宵灯会免不了吃喝
看着满地吃剩的垃圾
帮助我们的美容师
美化城市卫生环境
存 在 ? 正 能 量
关爱身边弱势群体
多关心身边的老人、儿童
遇到身边不平事
能伸出自己双手
安 全 过 元 宵
很多人是不是准备在元宵节的晚上，
放飞一盏满载心愿的孔明灯呢？
美丽的孔明灯容易引发安全事故
重要的事情说3遍
请不要燃放孔明灯
献 出 爱 心
过了年，发了奖金
当然是买、买、买！
所以，很多我们更换下来的东西
不如在元宵节的时候
献出来给需要帮助的人
爱心捐赠，温暖人心
过一个不同寻常的元宵节
别忘了，跟自己的家人说句，元宵快乐
元宵节，跟家人团聚当然是必不可少的
别忘了，跟自己的家人说句，元宵快乐
祝，大家都过一个有意义的元宵节
本文来自微信公众账号提交，由微讯啦收录，转载请注明出处。
微信扫码 分享文章导读：Win7系统激活工具怎么用？免费Win7系统激活工具使用教程。
　　Win7系统激活工具怎么用？免费Win7系统激活工具使用教程。
　　win7系统因为界面美观，操作方便所以深受很多用户的喜欢，但是win7系统的激活时需要付费的，下面xp74系统下载站小编就和大家介绍一款比较便捷的激活工具用法，希望对大家有帮助。
　　win7激活工具，附件在参考资料的网盘地址里。
　　PS：这个工具目前只针对旗舰版系统激活有效，其他win7系统(家庭版和专业版)测试当中。
　　***完成win7旗舰版系统。
　　激活win7系统的方法
　　下载参考资料里的激活工具(见个人网盘，地址见参考资料)。解压压缩文件。
　　以管理员的身份运行激活工具程序。选中解压后的激活工具，右键菜单栏，选择&以管理员身份运行&
　　运行激活工具。首先看到工具的版权声明，这里是感谢工具制作人员哈。然后点击&确定&
　　进入激活操作页面，可以看到工具的4大功能。然后再下面的工具选择项，输入数字&1&，然后回车。
　　然后工具进入系统激活。
　　等待几分钟后，就会显示激活成功。
　　查看下激活状态，如果没有成功，就重启下电脑再查看。
　　查询win7系统激活情况的方法
　　选择计算机，右键菜单栏里选择&属性&
　　然后就可以看到系统情况页面，在最下面可以看到系统的激活状态。查看: 1619|回复: 11
VB怎么打开一个已存在的word，并把它设为激活状态？
阅读权限20
在线时间 小时
本帖最后由 飞雪520 于
14:56 编辑
VB怎么打开一个已存在的word，并把它设为激活状态，并把这个word内容里面的2015年替换成2016年？
14:56 上传
点击文件名下载附件
8.87 KB, 下载次数: 3
阅读权限90
在线时间 小时
Sub bajifeng()
Dim wdApp As Word.Application, wdDoc As Word.Document
Set wdApp = New Word.Application
With wdApp
& && &&&.Documents.Open XPath&&& wFileName & &.docx&
& && &&&.Visible = False
& && &&&.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument& & '设置位置在正文
& && &&&'------
& && && && &sw = &数据&
& && && && &sx = ...
& && && && &.Selection.HomeKey Unit:=wdStory& & '光标置于文件首
& && && && &If .Selection.Find.Execute(sw) Then& & '查找到指定字符串
& && && && && & .Selection.Text = sx& & '替换字符串
& && && && &End If
& && &&&Next
& && &&&'-------
& & End With
End Sub复制代码
阅读权限90
在线时间 小时
没有附件，给你写好了框架
自己补充 路径 文件名 和 新、旧 字符串就可以了
阅读权限20
在线时间 小时
没有附件，给你写好了框架
自己补充 路径 文件名 和 新、旧 字符串就可以了
谢谢了,真是感激不尽!
只是我是小白,请教这段代码是放在VB的form1里还是放在模块里调用?
我上传了附件,还请指教!我是找了好几天,在网上都搜不到***.
阅读权限90
在线时间 小时
谢谢了,真是感激不尽!
只是我是小白,请教这段代码是放在VB的form1里还是放在模块里调用?
我上传了附件, ...
根据你的附件
帮你写好了代码，请测试。
阅读权限90
在线时间 小时
Sub bajifeng() 'bajifeng
'http://club.excelhome.net/thread--1.html
Dim wdApp As Word.Application, wdDoc As Word.Document
XPath = ThisWorkbook.Path & &\&
wfilename = &2015年数据.docx&
Set wdApp = New Word.Application
With wdApp
& & .Documents.Open XPath & wfilename
& & .Visible = True
& & .ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument& & '设置位置在正文
& & '------
& & sw = [a2]& &'旧文本
& & sx = [b2]& &'新文本
& & Do
& && &&&.Selection.HomeKey Unit:=wdStory& & '光标置于文件首
& && &&&If .Selection.Find.Execute(sw) Then& & '查找到指定字符串
& && && && &n = n + 1
& && && && &.Selection.Text = sx& & '替换字符串
& && &&&Else
& && && && &n = 0
& && &&&End If
& & Loop Until n = 0
& & '-------
& & .Documents.Save
& & .Documents.Close
End With
wdApp.Quit
End Sub复制代码
阅读权限90
在线时间 小时
本帖最后由 bajifeng 于
15:28 编辑
既然是EXCEL板块，就用EXCEL VBA给你写。
通过EXCEL操作WORD,WORD不用打开，也不会出现。
15:28 上传
点击文件名下载附件
27.93 KB, 下载次数: 15
阅读权限20
在线时间 小时
既然是EXCEL板块，就用EXCEL VBA给你写。
谢谢!如果让用户自己选择打开任意地方的word,怎么写代码呢?是不是用到activeword这样的句子?
阅读权限90
在线时间 小时
本帖最后由 bajifeng 于
16:22 编辑
Sub 替换Word文本()& & 'bajifeng
'http://club.excelhome.net/thread--1.html
Dim sw$, sx$, n%, iMannual$, xpath$, wfilename$, pthfnm$
iMannual = &Y&& & 'Y表示手动，N表示当前目录
Dim wdApp As Word.Application, wdDoc As Word.Document
If iMannual = &Y& Then
& & With Application.FileDialog(msoFileDialogOpen)& &&&'打开文件选择窗口
& && &&&If .Show = -1 Then
& && && && &pthfnm = .SelectedItems(1)
& && &&&Else
& && && && &MsgBox &已取消选择文件！&
& && && && &End
& && &&&End If
& & End With
Else
& & xpath = ThisWorkbook.Path & &\&& &&&'当前目录下
& & wfilename = &2015年数据.docx&
& & pthfnm = xpath & xfilename
End If
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set wdApp = New Word.Application
With wdApp
& & .Documents.Open pthfnm
& & .Visible = False
& & .ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument& & '设置位置在正文
& & '------
& & sw = [a2]& &'旧文本
& & sx = [b2]& &'新文本
& & Do
& && &&&.Selection.HomeKey Unit:=wdStory& & '光标置于文件首
& && &&&If .Selection.Find.Execute(sw) Then& & '查找到指定字符串
& && && && &n = n + 1
& && && && &.Selection.Text = sx& & '替换字符串
& && &&&Else
& && && && &n = 0
& && &&&End If
& & Loop Until n = 0
& & '-------
& & .Documents.Save
& & .Documents.Close
End With
wdApp.Quit
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub复制代码
阅读权限90
在线时间 小时
& & & & & & & &
本帖最后由 bajifeng 于
16:23 编辑
&&&&&&&&&&&&&&&&&&&&&&&
请测试附件，觉得好用，送朵红花（本楼右下角-&评分），如有问题请回复。
16:23 上传
点击文件名下载附件
29.97 KB, 下载次数: 10
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师