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
投稿猜你喜欢
9月8日凌晨1：00，苹果公司召开秋季新品发布会，推出iPhone 14系列、Apple Watch Series 8以及Apple Wat- 我们通常只是在Word文档中输入汉字或英文,却从来没有输入过这样的上标和下标符号,到底这些符合应该怎输入呢?下面就跟小编一起看看吧。Word
- 通过字数统计我们可以知道我们的word中总共有多少字符或者多少个字，每一段有多少字数，下面小编就为大家介绍在word2003文档中如何统计字
- 众所周知，机械硬盘的启动速度一般在30秒左右，固态硬盘的启动速度一般在10秒左右。事实上，如果你想快速启动，win10的快速启动可以让你的电
- 在word2007使用过程中，为了使文档中的某些段落看起来更加醒目，我们可以为这些段落添加边框，那么word怎么为某些重要段落加入红色边框呢
- 原因分析：之所以在电脑里不能新建word文档，是因为鼠标右键的链接出了问题，也就是注册表不认可导致的。因此，解决的办法就是在注册表里稍微新建
- 今天苹果向iPhone用户iOS 15.5 正式版更新，iOS 15.5 正式版版本号为19F77。相较于上周五发布的iOS 15.5 RC
- 对优秀同学或员工进行表扬和奖励的常见形式是颁发奖状。今天，我们就来看看如何通过Word2007和Excel2007配合使用来批量制作奖状的方
- 要将文本成批替换为Logo图片，怎么做?利用Word的特殊替换就可完成。首先在文案中需要出现Logo图标的地方统统都输入一个固定字串，比如A
- 我们在工作和生活中都会使用到电脑，有人会想在电脑上设置不允许电脑安装软件，这样就能够防止陌生人随便给电脑安装软件导致电脑中毒资料泄露的事情了
- Word文件怎么设置详细的查找范围？为了能快速找到指定内容，我们可以设置查询的范围，该怎么设置呢？下面我们就来看看详细的教程，需要的朋友可以
- 在Word文档中如果文档是通过首行缩进实现的，则调整首行缩进就可使不对齐的文字对齐;如果文档通过文本框实现的，就要移动文本框使文字对齐。以下
- word文件太大该怎么压缩小一？word文件保存的时候太大，像压缩笑一下，该怎么做呢？今天我们就来看看word文档压缩小一些的教程，需要的朋
- iOS14.5.1正式版自发布以来就问题不断，除了会导致 iPhone 性能节流外，卡顿、发热问题也较为严重等。近日，又有用户爆料升级iOS
- Word里面可以自动统计总字数,但是,每一页的平均字数怎么统计呢?可能有人会说,直接用计算器敲总字数除以总页数不就可以了吗，没错，这方法是最
- 安装WPS后文件的默认打开方式是office解决方法：步骤一、 点击开始→控制面板，选择大图标，找到默认程序; 步
- 在使用Win10电脑的时候，难免会碰到一些奇怪的问题，就比如小编就碰到键盘突然失灵的情况，键盘重新插入也没有反应，那么遇到这种问题应该怎么办
- 在使用Word文档保存文字时，有时候某个段落太长，影响了美观，这时我们可以通过设置行间距来将此段落的距离调整短一点。下面随小编一起看看吧。w
- 在Word文档中进行办公时，我们有时候会发现第一页还没填充满，段落就自动排列到第二页了，那这要怎么解决呢，其实解决方法是非常简单的。只需要取
- word打不开最常见的症状是当打开word文档文件的时候，文件无法打开，弹出错误提示对话框，提示：“Microsoft Office Wor
