在word中用vba为选中区域自动添加行号或删除行号

需求说明

用word编辑文档时，希望快速为选中内容添加行号或删除行号。如果手动来做，当行数很多时，就会比较麻烦，这时VBA就可以派上用场。

vba源码

'为选中内容添加行号Sub 添加行号()n = 0Dim selectedRange As RangeSet selectedRange = Selection.RangeFor Each p In selectedRange.Paragraphsn = n + 1selectedRange.Paragraphs(n).Range.InsertBefore (n & "  ")NextEnd Sub'为选中内容删除行首字符Sub 删除行首字符()n = 0Dim selectedRange As RangeSet selectedRange = Selection.RangeFor Each p In selectedRange.Paragraphsn = n + 1selectedRange.Paragraphs(n).Range.Words(1).DeleteNextselectedRange.SelectEnd Sub

编辑vba的步骤：
1.打开vba编辑器

2 .输入上节所给的源代码

在自定义区域添加按钮，方便通过鼠标调用这两个宏

添加行号后的效果

在word中用vba为选中区域自动添加行号或删除行号相关推荐

word中用VBA实现所有表格标题行重复
添加开发工具选项--自定义--开发工具点击Visual Basic 添加模块 Sub a()For Each xxx In ThisDocument.Tablesxxx.Rows(1).Headi ...
如何用vba在word中快速移动或选中内容区域？
转自:http://www.exceloffice.net/archives/1598 在word中经常需要操作特定位置的文本内容,定位文本内容就显得尤为重要. 在word vba中Range. Se ...
Excel·VBA选中区域保存为txt文本
vba代码有3种写法,都可实现,适用单/多列选中.单/多列部分选中,选中区域内容保存为一个txt文件 Private Function RE_STR(source_str As String, pat ...
16.Excel vba开发-计算所选中区域之和
1.需求:计算所选中区域之和 2.代码 Sub 计算所选中区域之和()Dim r Dim t As Double For Each r In SelectionIf IsNumeric(r.Value ...
C# Microsoft.Office.Interop.Word比较VBA
Microsoft.Office.Interop.Word 和 VBA 这俩货绝对是一样的需要编辑格式如下使用此处下划线 .方法实现与HomeKey.EndKey类似的效果. 查了若干资料后逻 ...
vba访问服务器中txt文件,vba读取word内容 vba读取txt文件
excel vba 读取 word 指定字符 Sub 按钮1()Dim myPath As StringSet Wdapp = CreateObject(＂Word.Application＂)Wdap ...
html 表格自动编号,Word中如何给表格设置自动编号
我们在使用Word中可能需要给表格设置自动编号,让工作效率变得更快捷一些,那么如何给表格设置自动编号呢,接下来由学习啦小编为大家推荐Word使用技巧,希望对你有所帮助! 关于Word: Word软件提 ...
word之图表和公式的自动编号(zz)
在论文中,图表和公式要求按在章节中出现的顺序分章编号,例如图1.1,表2.1,公式3.4等.在插入或删除图.表.公式时编号的维护就成为一个大问题,比如若在第二章的第一张图(图2.1)前插入一张图,则原 ...
word中怎么快速选中光标之前或之后的全部内容?
在Word中,快速选中=光标之后=的全部内容的快捷键:Ctrl + Shift + End: 在Word中,快速选中=光标之前=的全部内容的快捷键:Ctrl + Shift + Home. 在Word ...

在word中用vba为选中区域自动添加行号或删除行号

需求说明

vba源码

在自定义区域添加按钮，方便通过鼠标调用这两个宏

在word中用vba为选中区域自动添加行号或删除行号相关推荐

最新文章

热门文章