乐筑天下

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

选择集灾难

[复制链接]

5

主题

65

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
93
发表于 2016-9-18 14:50:08 | 显示全部楼层 |阅读模式
大家好,
好久不见。我很抱歉之前没有张贴一个片段,但我骑猎枪沿着州际公路,试图写一些vba。所以我用手机发帖。
我尝试通过窗口或栅栏设置选择集,处理选择集,然后为不同的项目重置选择集窗口。
问题是,在初始选择之后,我再也不能选择任何其他内容。我在外部循环中尝试过清除selectionset、删除它、将其设置为nothing并重置,但在第二次循环中,我无法让它选择任何内容。
我想知道我是否遇到了隐藏的vba功能?
想法?

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

0

主题

1

帖子

1

银币

初来乍到

Rank: 1

铜币
1
发表于 2016-11-28 08:43:10 | 显示全部楼层
请尝试此方法:
出错时继续下一步
Set selSet = myDoc。selection sets . Add(" Objects ")
如果出错。编号 0,然后

myDoc。SelectionSets.Item("Objects ")。Delete
Set selSet = myDoc。selection sets . Item(" Objects ")
selSet。如果选择集,则清除“结束”。清除selSet。选择屏幕上的选择集。突出显示True。


selSet。突出显示假选择集。清除selSet。删除
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-6-28 19:29 , Processed in 0.300150 second(s), 56 queries .

© 2020-2025 乐筑天下

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