乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 187|回复: 8

请教前辈:关于文字修改删除相关的问题

[复制链接]

1

主题

5

帖子

1

银币

初来乍到

Rank: 1

铜币
9
发表于 2018-6-2 06:30:00 | 显示全部楼层 |阅读模式
我想替换图形中的单行文本,但是遇到了问题,所以上来请教各位前辈:
1、我在图形中将需要替换的文本设置成唯一名称,比如叫“A文本”,整个图形中的单行文本,只有一处叫“A文本”,我用 strFind = "A文本"
strReplace = "B文本",可以替换掉。但是如果我文字打错了,想把文本改成“C文本”。问题来了,再用strFind来查找,可是图形中叫“B文本”的有很多,它不是唯一的,用strReplace替换后就会出错。
2、有没有一种方法,锁定文本的句柄,通过句柄来实现修改文本,因为我查了相关资料,说是句柄是唯一的。如果真是这样,不管文本是什么,都能通过句柄来锁定它,来修改,这样就不会乱了,不知道我这个想法是不是对的。
3、如果上面的方法都不行,是否能通过删除文本,然后再插入新文本来实现?如果这样也可以,我在程序运行时,第一个动作是删除文本,然后在固定的位置插入新文本,这样也不会乱了。
以上只是我的想法,VBA刚入门,许多不懂,只能一步一步摸索,文本操作这一块,只会用strFind和strReplace 来替换,其它方法都不会,代码不知如何写,实在没办法了,才上来打扰各位前辈,希望有知道的前辈不吝赐教,贴一段代码指导一下,谢谢!
回复

使用道具 举报

23

主题

561

帖子

13

银币

中流砥柱

Rank: 25

铜币
653
发表于 2018-6-2 16:13:00 | 显示全部楼层
你想确定某个特定文本,可以用你说的handle,对于固定的一张图,图中给定的文本的handle是不变的,也可以给这个特定文本加扩展属性,
但一般来说,给这个特定文本加扩展属性靠谱一点
回复

使用道具 举报

1

主题

5

帖子

1

银币

初来乍到

Rank: 1

铜币
9
发表于 2018-6-2 16:36:00 | 显示全部楼层

谢谢你的回复,依然不是太明白!
回复

使用道具 举报

16

主题

129

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
196
发表于 2018-6-4 12:13:00 | 显示全部楼层

自己查一下setxdata相关的知识(VBA帮助里面就有),看下例子,就知道zzyong00版主说的意思了,也就是给刚才替换过的文字增加特殊标记,到时候可以按标记识别,就可以与其它文本进行区别了。
回复

使用道具 举报

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2018-6-4 13:04:00 | 显示全部楼层
1. 其实这个问题完全可以通过仔细检查规避掉。你这些试图修正错误的方式纯属浪费时间精力。
2. 句柄并不适用。假设用户删除重建的某个文本,即使文本原样显示着,但是句柄变了,如果按句柄去区分,那么就漏掉了。
3.取决于你的具体应用吧,没什么特殊要求,就通过仔细检查替换文字来避免问题,不要复杂化了。
回复

使用道具 举报

2

主题

10

帖子

2

银币

初来乍到

Rank: 1

铜币
18
发表于 2018-6-4 15:09:00 | 显示全部楼层
strReplace = "B文本" ,完全可以变成 “B文本 ”,加个空格,显示基本一样,又能区分内容。
回复

使用道具 举报

1

主题

5

帖子

1

银币

初来乍到

Rank: 1

铜币
9
发表于 2018-6-5 13:08:00 | 显示全部楼层

谢谢你的回复!大概明白了,我去查一下帮助文档,谢谢!
回复

使用道具 举报

1

主题

5

帖子

1

银币

初来乍到

Rank: 1

铜币
9
发表于 2018-6-5 13:09:00 | 显示全部楼层

谢谢你的回复!
回复

使用道具 举报

1

主题

5

帖子

1

银币

初来乍到

Rank: 1

铜币
9
发表于 2018-6-5 13:11:00 | 显示全部楼层

你说的和我的不一致,但仍要谢谢你的回复!
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-4-19 09:21 , Processed in 0.820148 second(s), 71 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表