wps - 使用宏来为每行标记序号

news/2024/4/24 23:25:01/

在WPS中遇到需要加序号的虽然可以用项目符符号来标注在这里插入图片描述# 但或许用宏更厉害一些

WPS 的宏是一种自动化工具,可以通过编写宏代码来自动执行一些操作,例如创建和编辑文档、打印、格式化等。

WPS 宏的编写可以使用 VBA(Visual Basic for Applications)语言,这是一种与 Visual Basic 类似的编程语言。可以使用 WPS 的“宏录制器”功能来记录在 WPS 文档中执行的操作,然后将其转换为 VBA 代码,以便以后再次执行相同的操作。此外,也可以手动编写 VBA 代码来实现更复杂的功能。(我这里就直接改了代码,或许自定义性更强!也是了解一下VBA这门编程语言)

要使用 WPS 宏,需要先打开“开发工具”选项卡,然后选择“宏”选项,即可访问 WPS 宏编辑器。在宏编辑器中,可以编写、编辑和运行宏代码,并将其保存到 WPS 文档或模板中,以便以后重复使用。
1、设置里搜索录制宏并点击:
在这里插入图片描述
2、可以定制宏的名称以及宏的范围并点击在这里插入图片描述
3、视图 --》VB 编辑器在这里插入图片描述
刚进来时候会是只有宏名称,我这里是写好的一段可以实现对每行标记序号
在这里插入图片描述
以下为每行解释:

Sub AddNumbersToDocument()

定义一个子程序,它将添加行号到当前激活的Word文档中的每个段落。可以单击运行也可以双击矩形框处
在这里插入图片描述

Dim doc As Document
Set doc = ActiveDocument

声明一个变量’ doc ',它是Word文档对象类型(“Document”)。使用“ActiveDocument”函数设置它为当前激活的文档。这意味着此代码将只处理当前打开和激活的Word文档。

Dim i As Long
Dim lineNumber As Long

声明两个变量’i’和’lineNumber’,它们都是长整型(Long)。

For i = 1 To doc.Paragraphs.Count

使用for循环遍历当前文档中所有的段落。'doc.Paragraphs.Count’返回文档中所有段落数量。

    If (doc.Paragraphs(i).Range.Characters(1) <> vbCr) Then

判断每个段落的第一个字符是否为回车符(vbCr),如果不是,则表示该段落不是空行。

        doc.Paragraphs(i).Range.InsertBefore (lineNumber + 1 & "、 ")

在每个非空段落前插入一个行号。这里使用InsertBefore方法,在段落的范围之前插入行号,‘lineNumber+1’指的是当前段落的行号,’&‘是连接符,’“、”'是一个中文标点符号,表示行号和段落之间的分隔符。

        lineNumber = lineNumber + 1

递增’lineNumber’以便为下一个非空段落添加正确的行号。

    End If
Next i

End Sub
结束if语句,并进入下一项循环,处理文档中下一个段落。

效果:

在这里插入图片描述

完整代码

Sub AddNumbersToDocument()Dim doc As DocumentSet doc = ActiveDocumentDim i As LongDim lineNumber As LongFor i = 1 To doc.Paragraphs.CountIf (doc.Paragraphs(i).Range.Characters(1) <> vbCr) Thendoc.Paragraphs(i).Range.InsertBefore (lineNumber + 1 & "、 ")lineNumber = lineNumber + 1End IfNext i
End Sub

http://www.ppmy.cn/news/47392.html

相关文章

使用全球融合CDN的10大优势

根据预估&#xff0c;今年的全球内容交付网络&#xff08;CDN&#xff09;市场预计将达到424亿美元。而由于移动应用程序的激增和人工智能尤其是ChatGPT等相关领域的快速发展将进一步带来CDN市场的快速增长&#xff0c;可以说全球CDN的黄金时代才刚开始。 融合CDN和多CDN战略是…

39、组合总数

难度&#xff1a;中等 给你一个 无重复元素 的整数数组 candidates 和一个目标整数 target &#xff0c;找出 candidates 中可以使数字和为目标数 target 的 所有 不同组合 &#xff0c;并以列表形式返回。你可以按 任意顺序 返回这些组合。 candidates 中的 同一个 数字可以 …

Git详细教程,彻底理解Git运作机制

Git详细教程 前言git常用命令版本管理远程仓库分支管理 正文git版本管理版本回退工作区和暂存区工作区版本库&#xff08;Repository&#xff09; 撤销修改删除文件 git远程仓库github使用添加远程库小结 从远程库克隆 git分支管理创建和合并分支git merge vs git rebase 解决冲…

平台资金提现解决方案之实现支付宝单笔转账到银行卡功能

大家好&#xff0c;我是小悟 使用场景 不管是做APP、电脑网站、手机网站还是小程序&#xff0c;为了推广基本上都离不开用户分佣的场景。 换句话说就是在其平台内为每个用户设置“电子钱包”功能&#xff0c;而电子钱包在平台那里只是一串数字&#xff0c;这就需要平台为用户…

基于蛋白-配体复合物构建药效团的药物设计(Pharmacophore)

基于蛋白-配体复合物构建药效团的药物设计&#xff08;Pharmacophore&#xff09; step 1.蛋白-配体复合物准备 点击File-->Import Structures导入之前已经下载好的1IEP.pdb&#xff08;Abl蛋白和Imatinib的晶体复合物&#xff09; 蛋白准备&#xff1a;点击Tasks--->…

opencv配置安装

opencv配置安装 1、安装方式 https://blog.csdn.net/qq_45022687/article/details/120241068 根据这个网址的配置进行安装 2、解编译 mutex/thread等 似乎因为mingw的问题,#include 等直接引入线程无法直接引用&#xff0c;这导致了原有代码中直接使用mutex/thread的部分需要…

cephadm bootstrap命令使用

运行引导程序命令 运行命令&#xff1a;ceph bootstrap cephadm bootstrap --mon-ip *<mon-ip>*此命令将&#xff1a; 在本地为新集群创建监视器和管理器守护程序 主机。 为 Ceph 集群生成新的 SSH 密钥并将其添加到根目录 用户的文件。/root/.ssh/authorized_keys …

PHP 7 教程_编程入门自学教程_菜鸟教程-免费教程分享

教程简介 PHP7入门教程 - 从简单的步骤了解PHP 7&#xff0c;从基本到高级概念&#xff0c;包括简介&#xff0c;性能&#xff0c;环境设置&#xff0c;标量类型声明&#xff0c;返回类型声明&#xff0c;空值合并运算符&#xff0c;Spaceship运算符&#xff0c;常量数组&…

“成功学大师”杨涛鸣被抓

我是卢松松&#xff0c;点点上面的头像&#xff0c;欢迎关注我哦&#xff01; 4月15日&#xff0c;号称帮助一百多位草根开上劳斯莱斯&#xff0c;“成功学大师”杨涛鸣机其团队30多人已被刑事拘留&#xff0c;培训课程涉嫌精神传销&#xff0c;警方以诈骗案进行立案调查。 …

国产什么牌子的蓝牙耳机音质好?国产适合听音乐的蓝牙耳机推荐

现如今&#xff0c;蓝牙耳机的性能越来越多&#xff0c;一款蓝牙耳机不可能将各种性能做到极致。大家在选择蓝牙耳机时&#xff0c;无外乎从佩戴、音质、降噪、延迟等因素出发&#xff0c;那么&#xff0c;国产什么牌子的蓝牙耳机音质好&#xff1f;根据这个问题&#xff0c;我…

蓝桥 卷“兔”来袭编程竞赛专场-09凯撒加密 题解

赛题介绍 挑战介绍 恺撒密码也称恺撒加密、恺撒变换、变换加密&#xff0c;是一种最简单且最广为人知的加密技术。采用的是替换方法对信息中的英文字符循环替换为字母表序列中该字符后面或前面的第 N 个字符。例如当 N 2 时&#xff0c;所有的字母 A 都会被替换成 C&#…

【ARMv8 编程】A64 数据处理指令——位域字节操作指令

有些指令将字节、半字或字扩展到寄存器大小&#xff0c;可以是 X 或 W。这些指令存在于有符号&#xff08;SXTB、SXTH、SXTW&#xff09;和无符号&#xff08;UXTB、UXTH&#xff09;变体中&#xff0c;并且是适当的位域操作指令。 这些指令的有符号和无符号变体都将字节、半字…

【我的创作纪念日—5周年】

序言 用心生活&#xff0c;用力向上&#xff0c;微笑前行&#xff0c;就是对生活最好的回馈。 机缘 最开始写文章&#xff0c;没想那么多&#xff0c;主要是记录一下&#xff0c;就随便写了下&#xff0c;后来认识了一些写文章的小伙伴&#xff0c;在和他们的沟通中越来越体会到…

Qt Quick - FileDialog文件对话框

FileDialog文件对话框使用总结 一、概述二、使用三、常用属性四、常用例子1. 单选打开文本文件2. 单选保存文本文件 一、概述 FileDialog提供了一个基本的文件选择器的功能&#xff1a;它允许用户选择现有的文件或目录&#xff0c;或者创建新的文件名。 对话框最初是不可见的…

wifi/BT芯片RTL8723DS驱动移植和测试之二蓝牙篇

目录 1、根文件系统添加库和蓝牙工具 2、内核配置 &#xff08;1&#xff09;自带串口驱动不可选 &#xff08;2&#xff09;增加RFCOMM和ble的支持 &#xff08;3&#xff09;User level driver support &#xff08;4&#xff09;HID driver 3、测试 4、报错说明 &a…

艾瑞报告:预计2023年家用智能照明市场规模过百亿,Yeelight易来引领行业发展

照明是家居的主要部分&#xff0c;以智能化控制技术光环境设计为核心的智能照明成为智能家居重要的子系统与子应用&#xff0c;智能照明通过精准的设计&#xff0c;将单品链接成系统&#xff0c;通过算法和云平台实现智能化&#xff0c;针对不同的空间适配不同的灯光&#xff0…

面试被经常问的SQL窗口函数

面试题 有一张“学生成绩表”&#xff0c;包含4个字段&#xff1a;班级id、学生id、课程id、成绩。 问题1&#xff1a; 求出每个学生成绩最高的三条记录 问题2&#xff1a; 找出每门课程都高于班级课程平均分的学生 技术提升 技术要学会分享、交流&#xff0c;不建议闭门造…

书写我的人生回忆录-这应该是给父母最好的礼物

作为一个业余的软件开发爱好者&#xff0c;我又捣鼓了一个有意思的小东西 &#xff0c;使用完全免费哈 《书写我的人生回忆录》是一款软件&#xff0c;其中包含70个问题&#xff0c;涵盖了父母的个人喜好、家庭、工作、人生经历和态度等方面。通过回答这些问题&#xff0c;您的…

使用Cubic 自定义 Ubuntu Live ISO

使用Cubic 自定义 Ubuntu Live ISO 需要使用原始镜像文件&#xff0c;比如使用 systemback 备份系统生成的 ISO 有时候 systemback 生成的 ISO 无法启动&#xff0c;可以用 Cubic 修复 使用 Cubic 安装 sudo apt-add-repository ppa:cubic-wizard/release sudo apt-key ad…

java 线程唤醒于阻塞的常用方法

1.分类描述 1.sleep() 休眠2.suspend() 暂停和 resume() 继续3.yield() 让步 就是我放弃本次执行&#xff0c;但继续排队&#xff0c;下一次有机会在执行。 4.wait() 和 notify() notifyAll() 注&#xff1a;这两个方法&#xff0c;属于Object类&#xff0c;而不属于Thread…