前往Shuct.Net首页

Shudepb PB反编译专家长时间以来,为业内同类软件事实上的唯一选择.细节,彰显专业.态度,决定品质.

关于PB反编译的搜索

关于一段VBA代码转换成pb代码!万分感谢_Java123社区Java123社区 - 轻松开发从此开始! 请登陆 免费注册微信号:java123msg |高级搜索|TAG标签|网站地图RSS订阅[设为首页][加入收藏] 首页Java平台.NET技术Web开发数据库企业开发移动平台编程语言LinuxWindows留意广告,关注生活。当前位置:主页 > 编程语言 > PowerBuilder > 脚本语言 > 关于一段VBA代码转换成pb代码!万分感谢时间:2012-06-19 13:52来源:CSDN作者:admin -->??浏览:人Dim myrange As Range .................. ................ gn: Set myrange = ActiveDocument.Content With myrange.Find .Font.Hidden = True Do While .Execute = True myrange.Select myrange.Editors(wdEditorEveryone).Delete myrange.Font.Hidden = FaDim myrange As Range..................................gn: Set myrange = ActiveDocument.ContentWith myrange.Find .Font.Hidden = True Do While .Execute = True myrange.Select myrange.Editors(wdEditorEveryone).Delete myrange.Font.Hidden = False GoTo gn Loop End With.......................... .ClearFormatting这是所有代码中的一部分,其余已经转换没有问题,上面这段代码中有几个地方不懂,还望高手赐教:1、Range类型在pb中如何定义,我用了any类型仿佛不太可以2、关于vba中的set语句,pb中如何表达,直接使用等号好像不行一、Rangle类型使用oleobject对象;二、vba的set就是赋值,改成=就可;三、with语句体内是省略了前缀的,里面的语句都加上myrange.Find ;pb通过ole对象来实现VBA编程,你上面的代码是对word进行操作的吗?是对word操作,我先试试一楼方法oleobject myrangeole_1.Selection.MoveUp(4,1,1)ole_1.Application.ScreenUpdating = False ole_1.ActiveDocument.Range.Font.Hidden = False ole_1.ActiveDocument.DeleteAllEditableRanges (-1) ole_1.Application.ScreenUpdating = False ole_1.ActiveDocument.ActiveWindow.View.ShowHiddenText = True ole_1.ActiveDocument.Content.Editors.Add(-1) ole_1.Selection.Font.Hidden = Truegn: myrange =ole_1.ActiveDocument.Content myrange.Find.ClearFormatting myrange.Find.Font.Hidden = True Do While myrange.Find.Execute = TrueSub Macro1() myrange.Font.Hidden = False myrange.Select myrange.Editors(-1).Delete GoTo gn Loop还望高手帮忙指教或者将上面语句改写成pb的,非常感谢!!!!! ole_1.ActiveDocument.ActiveWindow.View.ShadeEditableRanges = False ole_1.ActiveDocument.SelectAllEditableRanges (-1) ole_1.ActiveDocument.DeleteAllEditableRanges (-1) ole_1.Application.ScreenUpdating = True ............... Selection.Editors.Add wdEditorEveryone这是这部分全部的函数代码,目标是实现word中所选文字反选的功能,ole_1为传入的word对象(已经在调用的地方创建并连接好,没有问题),这样写提示 myrange.Editors(-1).Delete .DeleteAllEditableRanges (wdEditorEveryone)On Error Resume Next End With这句出错,我试了myrange = create oleobject这条语句也不行,都不知道怎么做了。下面的代码是vba的源代码,一楼大哥帮我看看关于这个range在这里到底该怎么复制及定义 Loop Dim myrange As Range Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtendApplication.ScreenUpdating = FalseWith ActiveDocument Application.ScreenUpdating = False .ActiveWindow.View.ShowHiddenText = True .Content.Editors.Add wdEditorEveryone Selection.Font.Hidden = Truegn: Set myrange = .ContentWith myrange.Find .ClearFormatting .Font.Hidden = True Do While .Execute = True myrange.Select myrange.Editors(wdEditorEveryone).Delete myrange.Font.Hidden = False GoTo gn Loop .ActiveWindow.View.ShadeEditableRanges = False .Range.Font.Hidden = False .SelectAllEditableRanges (wdEditorEveryone) Application.ScreenUpdating = True .DeleteAllEditableRanges (wdEditorEveryone) End WithEnd SubVBA是个什么东西呢?你没有写明你的ActiveDocument是什么控件,假设你的ActiveDocument为窗口上的OLE控件你要将控件放到窗口上名称为ActiveDocumentoleobject myrangegn: myrange = ActiveDocument.Object.Content myrange.Object.Find.ClearFormatting myrange.Object.Find.Font.Hidden = True Do While myrange.Object.Find.Execute = True myrange.Object.Select myrange.Object.Editors(wdEditorEveryone).Delete myrange.Object.Font.Hidden = False GoTo gn 楼主见意看看OFFICE的VBA写法,然后试着转换,你这个将会变得非常简单TAG:转关于代码vba换成DIM万分感谢一段顶一下(0)0%踩一下(0)0%------分隔线------上一篇:PB反编译 下一篇:问个 mdi sheet 窗口之间关系问题 收藏挑错推荐打印栏目列表基础类DataWindowAPI调用控件与界面Web应用数据库相关脚本语言推荐内容取数据窗口的检索参数我已经建立的一个数据窗口dw_1,里面有两个检索参数s和e,是stri... 热点内容PB SQL语法错误? PB SQL语句where不起作用? Error C0001:lllegal data type:sqlca 用pb实际中间件的功能?有人会吗? 推荐!PB技巧!取得系统用户名的方法! [转]PB资料收集 求高手把PB加密/解密方法转VB代码 PB求解多元一次方程组 怎么让sle控件只能输入整数,输入小数或其他的 pb9调用SQL2000存储过程的问题 Java平台 J2SE/基础类 J2ME J2EE/EJB/JMS Eclipse Socket/RMI 多线程编程 Servlet/JSP Applet/Swing/SWT JavaMail 学习笔记 开源框架 设计模式 认证考试 专题文章 .NET技术 ASP.NET C#.NET J#.NET VC.NET VB.NET Delphi.NET WinForm WPF CLR WCF EntityFramework .NETFramework LINQ WebServices 组件/控件开发 分析与设计 .NET技术前瞻 图表区 XNA Web开发 HTML5 HTML(CSS) jQuery JavaScript Ajax XML/SOAP PHP Silverlight Ruby/Rails Apache IIS 应用服务器 数据库 数据库报表 数据仓库 DB2 SQLAnywhereStudio VFP MySQL Informix Oracle SQL Server Sybase Access 其他数据库 企业开发 WorkFlow SAP GIS DynamicsCRM ERP Tivoli SharePoint Lotus WebSphere JBoss技术交流 移动平台 Android iOS开发 Symbian Qt开发 WinPhone WinMobile Unity3D 开发应用 BREW 其他平台 编程语言 C++Builder C#Builder C/C++ Delphi VB PowerBuilder 汇编语言 脚本语言 Linux 常用命令 Linux入门 Linux编程 Linux系统 Linux管理 Windows WindowsServer Windows7 Office应用 网络管理配置 安全技术/病毒 软件工程/管理 项目与团队管理 架构/设计 软件测试 敏捷开发 Rational 高性能 云计算 高性能WEB开发 高性能数据库开发 扩充话题 数据结构算法 实用技巧 Copyright © 2009-2012 Java123社区 版权所有 交流群⑤(1000人未满) 赣ICP备09010046号