word VBA将文档 * 定字符设置为上标或下标
发布时间：2023-06-13 19:21:08
Option Explicit
Sub SetSuperscriptAndSubscript(ByVal PrefixChr As String, ByVal SetChr As String, Optional ByVal SuperscriptMode As Boolean = True)
'程序功能：设置文档 * 定字符为上标或下标。
'参数说明：
'PrefixChr：必选参数，要设置为上、下标字符之前的字符；
'SetChr：必选参数，要设置为上、下标的字符；
'SuperscriptMode：可选参数，设置为 True 表示将 SetChr 设置为上标，设置为 False 表示将 SetChr 设置为下标，默认为 True。
'举例说明：
'我们要将文档中所有的“m3/s”中的“3”设置为上标，可通过下面这一行代码调用本程序完成：
'SetSuperscriptAndSubscript "M","3" '这里设置上标，可省略第三个参数。
Selection.Start = ActiveDocument.Paragraphs(1).Range.Start '将光标定位至活动文档第一段落段首的位置
Selection.Collapse wdCollapseStart '折叠至起始位置
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = PrefixChr & SetChr
.Replacement.Text = "^&"
If SuperscriptMode Then .Replacement.Font.Superscript = True Else .Replacement.Font.Subscript = True
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = PrefixChr
If SuperscriptMode Then .Font.Superscript = True Else .Font.Subscript = True
.Replacement.Text = "^&"
If SuperscriptMode Then .Replacement.Font.Superscript = False Else .Replacement.Font.Subscript = False
.Execute Replace:=wdReplaceAll
End With
End Sub
word VBA将文档 * 定字符设置为上标或下标的下载地址：本地下载
本地下载
0
投稿猜你喜欢
Win10系统转移到其他电脑上如何正常启动和使用？微软已从Windows 10中删除“轻松传送”，但用户仍然可以在电脑之间移动用户配置文件。- 剪映专业版是一款非常好用的视频剪辑软件，很多小伙伴，特别是初学视频剪辑的小伙伴都在使用。在剪映专业版中有一个“素材库”功能，其中包含大量的视
- 最近有很多用户都在使用Word这款文档编辑软件，而我们在日常使用Word文档的过程中进程经常需要插入表格，这样的插入步骤就比较浪费时间，那么
- 有用户发现电脑升级Win10系统之后，之前显示在任务栏中的安全中心图标不见了，这该如何恢复呢？可能还有很多电脑小白不知道怎么操作。那针对这个
- 有不少朋友的Win10电脑是没有开启自动更新的，还一直停留在Win10 2004版本，大家想知道怎么优化系统，清理临时文件和垃圾文件，使电脑
- 很多玩家喜欢玩csgo，但是在练习的时候想要让人机守家，不知道如何操作，5E怎么让人机呆在家里？今天给各位小伙伴们介绍5E玩CSGO让机器人
- 这篇文章主要介绍了如何禁止win7随意安装软件、禁止电脑随意运行程序以及只让电脑运行指定软件,需要的朋友可以参考下在企业上班族中，员工上班时
- 制作word表格是，列宽是我们会重新设置的一个步骤，列宽该怎么设置呢，对于新手来说还是有一定难度，怎么办?下面让小编为你带来word设置表格
- 对于大量数据，如何统计这些数据是个不小的问题。比如统计大于某个数值的数量。比如统计等于某个值的个数，比如统计小于某个值的个数。掌握如何统计这
- win7系统喜欢将下载的文件放置在桌面，时间久了，桌面就会堆积很多文件，而桌面文件都是占用C盘空间，导致系统运行速度变慢，怎么办呢？其实大家
- Office使我们办公中最常用的软件之一，我们大量的文档都会经过Office进行制作，那我们在进行更新的时候，弹出一个错误框，显示“应用程序
- Win10系统专业版电脑在日常生活工作使用过程中，难免会出现各式各样的问题，比如说电脑黑屏啦，电脑蓝屏，系统卡顿等等，还有很多小伙伴不知道怎
- Word多张图片怎么对齐排版呢？很多用户对此还不是很清楚，小编这里就给大家带来有关Word多张图片怎么对齐排版的回答，希望能够对大家有所帮助
- TREND函数返回沿线性趋势的值。它适合直线(使用最小平方方法)到数组的known_y’s和known_x’s。趋势返回指定的new_x’s
- 今天为大家介绍PPT幻灯片基础入门知识——窗口界面，比较适合新手朋友学习，希望对大家有一定的帮助！今天为大家介绍PPT幻灯片基础入门知识——
- 很多小伙伴好奇在PPT中如何增加辅助线。今天，就由小编告诉大家在PPT中是如何增加辅助线的，一起来了解一下吧在日常工作中，我们会使用到PPT
- 一般情况下我们在设置背景图片的时候是会有历史记录保存的，但是有的小伙伴想要删除历史记录却知道如何操作，那么要遇到这种情况要怎么办呢？下面就和
- 微软推送Win10 Mobile预览版10586.338累积更新,需要的朋友可以一起看看内存过高原因分析：在360浏览器3.x的多进程的框架
- 我们平时在网页上看视频，Flash插件是必不可少的，没有Flash插件就看不了视频。今天打开浏览器看视频时提示Flash版本过低，请升级后重
- 有时候碰到的表格，里面的文字怎么看，怎么别扭……；甚至，刚刚拷贝过来的表格，原先是正常的，当继续输入其他部分的文字时，回头再看它，却发现变成
