在布局窗口中替换VBA代码实现.pdfVIP

_

subremce文本

在布局窗口中更改文本

DimstrobjasObject

DimtextstringasString

DimnewstringasString

Dimrownumasinteger

newstring=替换文本

rownum=0

从布局1中获取第一条记录

当布局1未结束时循环

rownum=rownum+1

__

OBJINFOTYPE=对象信息参数1

____

OBJTYPTEXT=参数10的obj信息类型

__

OBJINFOTEXTSTRING=参数3的对象信息

if

对象信息(layout1.obj,1)=10

和

对象信息(layout1.obj,3)=搜索文本

then

strobj=layout1.obj

__