ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: 13907933959

向前辈们求一个能去掉附件内表格中所有线框的宏

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-2-21 16:17 | 显示全部楼层
本帖最后由 13907933959 于 2016-3-22 13:58 编辑

省略……

TA的精华主题

TA的得分主题

发表于 2016-3-1 14:53 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
139:我放寒假37天,这些天没上来。你的问题,因为有表格套表格的情况,稍显复杂,我建议手动处理,还是将表格设为虚框,具体为:选定表格,点击表格工具栏上第一排第二个按钮“所有框线”按钮,配合第二排“无框线”按钮,再加上表格菜单要不显示虚框,如此而已。VBA我也试了,没成功,还是手动吧!

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-3-1 16:36 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
413191246se 发表于 2016-3-1 14:53
139:我放寒假37天,这些天没上来。你的问题,因为有表格套表格的情况,稍显复杂,我建议手动处理,还是将 ...

师傅好!
您终于上线了!我以为您出去旅游去了,原来是放寒假。
这个帖子其实是我在年前代我的一个师兄发的。师傅教的方法,我选定了表格,在工具栏上找不到您说的“所有框线”、“无框线”等按钮,请师傅详教!

TA的精华主题

TA的得分主题

发表于 2016-3-2 10:15 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
在第一排的“常用”工具栏上,找到“表格和边框”工具栏,找到第 6 个按钮,点击其下拉按钮,其中第一排第2个按钮,第二排第2个按钮,即是(要先选定表格,再配合表格菜单的不显示框线命令)。

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-3-2 12:51 | 显示全部楼层
413191246se 发表于 2016-3-2 10:15
在第一排的“常用”工具栏上,找到“表格和边框”工具栏,找到第 6 个按钮,点击其下拉按钮,其中第一排第2 ...

师傅好!
因我对表格的知识了解太少,还是搞不定,第 6 个按钮,还是不知道是那个,烦请师傅再详教。

图.rar

46.37 KB, 下载次数: 46

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-3-18 16:57 | 显示全部楼层
本帖最后由 13907933959 于 2016-3-22 09:28 编辑
413191246se 发表于 2016-3-1 14:53
139:我放寒假37天,这些天没上来。你的问题,因为有表格套表格的情况,稍显复杂,我建议手动处理,还是将 ...

师傅好!
我要批量删除附件内每张图片右下角的顿号,可这个顿号我希望先变成紫色后再删除,目的是用于区分,如文档内其它的地方有顿号不能删除,只删除每张图片右下角的顿号。想求师傅帮忙编写一个这样宏。

附件.rar

342 KB, 下载次数: 25

TA的精华主题

TA的得分主题

发表于 2016-3-21 16:43 | 显示全部楼层
139:前一段放寒假37天,前两周我又全身发烧了,最近一直咳嗽,快好了,所以最近一段时间以来没有上线看帖。——下面是删除图片右下角顿号(宏),你试试吧(我觉得不太高级,勉强用吧):
Sub 删除图片右下角顿号()
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Do While Selection.Find.Execute(FindText:="、", Forward:=True)
        Selection.MoveStart Unit:=wdCharacter, Count:=-1
        If Asc(Left(Selection, 1)) = 1 Then
            Selection.MoveStart Unit:=wdCharacter, Count:=1
            Selection.Delete
        Else
            Selection.MoveRight Unit:=wdCharacter, Count:=1
        End If
    Loop
End Sub

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-3-22 09:27 | 显示全部楼层
本帖最后由 13907933959 于 2016-3-22 10:00 编辑
413191246se 发表于 2016-3-21 16:43
139:前一段放寒假37天,前两周我又全身发烧了,最近一直咳嗽,快好了,所以最近一段时间以来没有上线看帖 ...

师傅好!
不知道您生病了,要是知道不会这个时候打扰!真是抱歉!

师傅、本来徒弟也许能让我中医师傅帮上忙,可中医看病讲究个:望(看脸色、舌相、大小便)、闻(闻气味)、问(问病史、起居、饮食)、切,(切脉),由于我们不在一个城市,无法得知以上信息,导致无法开出药方帮到您。

师傅、我见议您看一下当地好一点的中医(必需是好一点的,因中医也有三六九等),您发烧、咳嗽,我估计是你身体受寒所致,如您病情刚开始12天,看中医也就几块钱的中药,喝12次中药就会好,还不会有任何副作用,如用西医治疗则要天天输液,少则十多天,多则二十天,顺致更长的时间都有,人难受、费钱不说,还会对身体埋下隐患。西医擅长的是:化验、手术、抢救,人一般不到万不得以不用看西医,西医的四大缺点:副作用大、后余症多、人难受、费用高。

师傅、我感觉能提高效率完成任务的代码都是好的,代码我测试了,可以删除所有图片右下角顿号,可好像并没有看到代码中有把顿号变为紫色的语句,可它仍然不会把文档内其它地方的顿号删除,只删除了每张图片右下角的顿号。师傅、这是怎么做到的

师傅、祝您早日康复!!!

TA的精华主题

TA的得分主题

发表于 2016-3-22 14:41 | 显示全部楼层
谢谢 139!——我前两周有一天,想凉快些,少加了一个衬,就凉着了,晚上就小烧,后来感觉是大烧,就买了黄敏胶囊吃了几天,后来,因发烧咳嗽,渐渐也快好了。
——关于把顿号变成紫色,想法是好的,但是,我觉得不可能每个都要停下来,给你一个选项,让你选是、否来删除或不删除,所以,处理是连续的;除了查找顿号,还要关联顿号前面的字符是图片还是文字,然后再决定是否删除顿号,就是如此。

TA的精华主题

TA的得分主题

发表于 2016-3-22 14:43 | 显示全部楼层
另:我从小到大,除打过针之外,到现在为止,还没有打过(一次)滴流呢!也没开过刀。(别人一感冒发烧就要打滴流,我觉得好生奇怪,吃药就完事的事何必打滴流呢?)
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2025-1-14 19:43 , Processed in 0.026438 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表