ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[求助] word中如何用vba实现将所有蓝色的文字变成双行合一?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2017-7-24 15:06 | 显示全部楼层 |阅读模式
孝經者,孔子之所述作也。述作之旨者,昔聖人蘊大聖德,生不偶時,適值周室衰微,王綱失墜,君臣僣亂,禮樂崩頹。居上位者賞罰不行,居下位者褒貶無作。孔子遂乃定禮、樂,刪,讚道,以明道德仁義之源;修春秋,以正君臣父子之法。又慮雖知其法,未知其行,遂說孝經一十八章,以明君臣父子之行所寄。知其法者修其行,知其行者謹其法。孝經緯曰:「孔子云:『欲觀我褒貶諸侯之志,在春秋;崇人倫之行,在孝經。』」是知孝經雖居六籍之外,乃與春秋爲表矣。先儒或云「夫子爲曾參所說」,此未盡其指歸也。蓋曾子在七十弟子中,孝行最著,孔子乃假立曾子爲請益問荅之人,以廣明孝道。旣說之後,乃屬與曾子。洎遭暴秦焚書,並爲煨燼。漢膺天命,復闡微言。孝經河間顏芝所藏,因始傳之子世。自西漢及魏,歷晉、宋、齊、梁,注解之者迨及百家。至有唐之初,雖備存祕府,而簡編多有殘缺,傳行者唯孔安國、鄭康成兩家之注,并有梁博士皇偘義疏,播於國序。然辭多紕繆,理昧精研。至唐玄宗朝,乃詔羣儒學官,俾其集議。是以劉子玄辨鄭注有十謬七惑,司馬堅斥孔注多鄙俚不經。其餘諸家注解,皆榮華其言,妄生穿鑿。明皇遂於先儒注中,採摭菁英,芟去煩亂,撮其義理允當者,用爲注解。至天寶二年注成,頒行天下,仍自八分御扎,勒于石碑,卽今京兆石臺孝經是也。

如何用vba实现将所有蓝色的文字变成双行合一?

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-7-24 15:45 | 显示全部楼层
在word中所选的文字超过254个,就会提示“所选的内容过多”,又怎么解决?

TA的精华主题

TA的得分主题

发表于 2017-7-24 20:30 来自手机 | 显示全部楼层
本帖最后由 duquancai 于 2017-7-24 20:33 编辑

并不难,然而无实际意义,所以不想写代码。楼主,等等吧,有大神会给你写的。

TA的精华主题

TA的得分主题

发表于 2017-7-24 21:24 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
x.kelf 发表于 2017-7-24 15:45
在word中所选的文字超过254个,就会提示“所选的内容过多”,又怎么解决?

你实在要,我免费给你写一个,不过真没有啥意思!!!
Sub shishi()
    With ActiveDocument.Content.Find
        .Font.Color = RGB(0, 0, 255)
        Do While .Execute
            .Parent.TwoLinesInOne = 1
        Loop
    End With
End Sub

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-7-24 21:44 | 显示全部楼层
duquancai 发表于 2017-7-24 21:24
你实在要,我免费给你写一个,不过真没有啥意思!!!
Sub shishi()
    With ActiveDocument.Content. ...

这个我会,但是我搞不定的是,在word中所选的文字超过254个,就会提示“所选的内容过多”,又怎么解决?

TA的精华主题

TA的得分主题

发表于 2017-7-24 21:46 来自手机 | 显示全部楼层
本帖最后由 duquancai 于 2017-7-24 21:52 编辑
x.kelf 发表于 2017-7-24 21:44
这个我会,但是我搞不定的是,在word中所选的文字超过254个,就会提示“所选的内容过多”,又怎么解决?


不知道。。。。。就算知道也不说了。呵呵

TA的精华主题

TA的得分主题

发表于 2017-7-24 21:50 来自手机 | 显示全部楼层
x.kelf 发表于 2017-7-24 21:44
这个我会,但是我搞不定的是,在word中所选的文字超过254个,就会提示“所选的内容过多”,又怎么解决?

看来我是没事找事干了,原来你会啊!

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-7-24 21:59 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-7-24 22:12 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
您别生气,确实遇到“所选内容中字符过多”这个问题,百思不得其解,还请您见谅,决没有其他意思。
搜狗截图20170705002022.png

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-7-24 22:13 | 显示全部楼层
duquancai 发表于 2017-7-24 21:50
看来我是没事找事干了,原来你会啊!

不好意思,大侠误会了,还请您多帮忙为盼!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2025-1-12 19:55 , Processed in 0.026220 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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