请大家帮我看下这个按键精灵的脚本
请大家帮我看下这个按键精灵的脚本
ps：我是玩魔力宝贝的 现在忍者上火山练级需要不停的点鼠标 这个脚本是我从按键精灵官方论坛下载的，但是很多地方都看不懂，偶很小白，不知道如何修改，请高手帮忙看看，100分送上。
如解决了问题，可以再送100分以上。
脚本请见附件
这个脚本设置好的，就是时间有点长，你可以把读秒那里20秒改短一点，根据自己机器和网速来决定
请遵守网上公德，勿发布广告信息
相关问答：查看: 1108|回复: 8
请各位帮我改改脚本!
阅读权限20
在线时间 小时
我的代码请各位给修改一下!
各位老大, 现在我有一个需求,是这样的,
在一个word文件当中,有若干此类情况,
&ph outputclass=&display_text&&
&msgph varid=&text_softkey_option&&Options&/msgph&
这是一个XML文件在word中解开,我需要用宏找到所有包含在&ph...&&&***&/ph&中但却不包括&msgqh...&***&/msgqh&的文字部分.以下是我写的脚本,但是不成熟,请各位帮着改改!最好是找到这样的部分再导出到excel中!
Sub Changing()
&&With ActiveDocument.Content.Find
& && &&&.ClearFormatting
& && &&&.Text = &\&ph (*)\&/ph\&&
& && &&&.MatchWildcards = True
& && &&&.Replacement.Text = &&
& && &&&.Replacement.ClearFormatting
& && &&&.Replacement.Font.Bold = True
& && &&&.Execute Replace:=wdReplaceAll
& & End With
阅读权限20
在线时间 小时
谢谢了!非常感谢大家的帮助!
阅读权限50
在线时间 小时
上传附件看看可以吗？
阅读权限20
在线时间 小时
感谢楼上的支持,附件现已传上,请帮忙看一看.
10:01 上传
点击文件名下载附件
5.95 KB, 下载次数: 6
阅读权限20
在线时间 小时
我自己写了一个,目前试用还没有出现问题.
Sub Changing()
dim myrange as range
&&With ActiveDocument.Content.Find
& && &&&.ClearFormatting
& && &&&.Text = &\&ph (*)\&/ph\&&
& && &&&.MatchWildcards = True
& && &&&.Replacement.Text = &&
& && &&&.Replacement.ClearFormatting
& && &&&.Replacement.Font.Bold = True
& && &&&.Execute Replace:=wdReplaceAll
& & End With
set myrange= activedocument.content.find
myrange.find=&[!msgqh]&
阅读权限100
在线时间 小时
& & & & & & & &
原帖由 robin521 于
11:32 发表
我自己写了一个,目前试用还没有出现问题.
Sub Changing()
dim myrange as range
&&With ActiveDocument.Content.Find
& && &&&.ClearFormatting
& && &&&.Text = &\
比较正规的做法可以使用MICROSOFT XML 来解析之。
阅读权限50
在线时间 小时
同意守版意见，我的这个帖子就利用了xml的一点知识：，也可以看看别人的做法。
如果数量很少，也可以如你的代码，使用Word的查找，&\&ph (*)\&/ph\&&，然后使用instr函数判断是否包含某个是否。但是对你的要求理解不透，例如
&ph outputclass=&display_text&&&msgph varid=&qtn_menu_title&&Menu&/msgph& & &msgph varid=&qte_mm_organiser_long_name&&Organiser&/msgph& & &ph outputclass=&display_text&&
&msgph varid=&qte_mm_my_applications_long_name&&My applications&/msgph&
&/ph&&/ph&
这段文字中有没有符合要求的文字，是哪部分？
阅读权限20
在线时间 小时
其本意就是要找到所有&ph..&&/ph&中第二级tag被破坏和丢失的部份.例如:
&ph outputclass=&display_text&&&msgph varid=&qtn_menu_title&&Menu&/msgph& & &msgph varid=&qte_mm_organiser_long_name&&Organiser&/msgph& & &ph outputclass=&display_text&&
::L My applications::L
阅读权限20
在线时间 小时
Private Sub FindTagWhichyouLost()
Dim myrange As Range
Set myrange = Selection.Range
With myrange.Find
.ClearFormatting
.Text = &\&ph (*)\&/ph\&&
.MatchWildcards = True
Do While .Execute
If InStr(myrange.Text, &msgph&) = 0 Then
myrange.Font.Color = wdColorBlue
myrange.Collapse wdCollapseEnd
这个也成功了
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师