ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

SOS 能否利用"替换"快速美化这样的文档?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2005-3-9 14:16 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

  多次使用替换功能,能够实现…………

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-3-9 17:06 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
如何多次替换,有谁能详细说明,因为A.B.C.D.选项为一行,两行和四行的题目有很多,请各位高手提供详细步骤!!!

TA的精华主题

TA的得分主题

发表于 2005-3-10 14:52 | 显示全部楼层

要是偶的话,针对两行或四行的,方法如下

1.首行将"C. "替换成"回车行+C"

2.然后再设置table键的尺寸,按table键就很快的了.

不过,针对问卷的这种版式,可以设置几个分段的表格,比如事先就建好几个表格,两列的,三列,四列的罗列好,那得多省事呀.[em02]

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-3-15 18:56 | 显示全部楼层

问题:选择题项目如何事后再设定位点对齐? 假设项目的样式为 A. B. C. D. 。 〔编辑〕-->〔替代〕(或按 [Ctrl+H])--> [搜寻选项]:使用通配符 [查找目标]:输入「 [A-D]. 」(不含引号) [替代为] :输入「 ^t^& 」 [格 式] :﹝定位点﹞>> 设置,例如 : 1.5cm, 5.5cm, 9.5cm, 13.5cm 最后按 [全部替代],完成。 【说明】 通配符 [A-D] 表示查找包含 ABCD 任一字母。 ^t :定位字符(TAB)。 ^& :所查找的内容。(例如找到 A. 就替代为「→A.」 , → 表示定位字符) 【注】如果没看到特殊选项, 请按 [更多..] 按钮. 查找、替代的特殊选项很多,其它内容请参考 Word 帮助文件~~

转摘

[此贴子已经被作者于2005-3-15 18:57:10编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-3-15 19:03 | 显示全部楼层

上面是一高人的方法,根据他的方法:我进行如下替换:

[搜寻选项]:使用通配符 [查找目标]:输入「 [A-D]. 」(不含引号) [替代为] :输入「 ^t^& 」 "格式/制表符/查找制表符/制表符位置"中分别输入3字符,12字符,21字符和30字符,"对齐方式"都为"左对齐""前导符"为"无"并分别点"设置",我解决了一部分问题,但也出现一些问题详见本文的附件),和我的要求有一定的差距(详见一楼附件文档中第二页的样式中的要求),请教问题出在哪里?如何解决?

SjvOZ5IS.rar (5.52 KB, 下载次数: 20)
[此贴子已经被作者于2005-3-15 19:04:13编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-3-16 16:48 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

转摘:

查找: " @([A-D].)" 注意 @ 前有一空格,引号不用输入 替代: " ^t\1" 注意 ^t 前有一空格 ,引号不用输入

选项: 通配符 格式:设置制表符(可分别为3字符,12字符,21字符和30字符,左对齐)

[此贴子已经被作者于2005-3-16 16:50:11编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-3-16 16:56 | 显示全部楼层

我觉得16楼的方法是目前解决问题的最佳方法!!!

不知还有哪位高人能用简单,易行的办法快速解决问题,不妨发表你的看法,一同探讨,完善这一话题.Thank you!!!

[此贴子已经被作者于2005-3-16 19:16:14编辑过]

TA的精华主题

TA的得分主题

发表于 2005-3-16 23:08 | 显示全部楼层
我提供解决这个问题VBA的关键语句,检测字符的个数,由于存在双字节与单字节字符的差异,我采用以下方法:

'选中段落的中文字符数,这样表达不知是否准确

len1 = Selection.Paragraphs(1).Range.ComputeStatistics(Statistic:=wdStatisticFarEastCharacters)

'选中段落的所有字符数,包括空格

len2= Selection.Paragraphs(1).Range.ComputeStatistics(Statistic:=wdStatisticCharactersWithSpaces)

len1+len2 ≈ 实际字符数(一行字符一般取70,可视实际而定)

有没有更准确的方法?

TA的精华主题

TA的得分主题

发表于 2017-1-12 13:33 | 显示全部楼层
我最近也在做试卷,需要对齐选项,这下可以学习一下了
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2025-1-13 13:10 , Processed in 0.025697 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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