可以用下面的宏来得到每段第一句话,需要注意的是不能有空行,就是两个连着的换行,否则得到的内容不准确。
sub gets1()
Dim s1 As Range
For i = 1 To ActiveDocumentParagraphsCount
Set s1 = ActiveDocumentParagraphs(i)RangeSentences(1)
s1Select
sf = sf & Chr(10) & s1
Next i
MsgBox sf
End Sub
qt获取word表格和标题
1新建一个word应用程序,并设置为可见
2
获取所有的工作文档并以文件templatedot为模版新建一个文档
3
获取当前激活的文档。
4
获取文档中名字为text的标签。
你的困惑其实可以利用样式工具就可以很轻松的解决,没必要用宏来完成。
关键问题是WORD默认的样式做的比较差,不符合我们的使用习惯,建议你去看一本书《WORD排版艺术》,看完了就知道应该怎么定制自己的文档风格了。
1、首先选择菜单栏的“开发工具”,点击“宏”,打开宏创建窗口,随便输入一个非数字开头的宏名,点击创建。
2、之后会自动打开VBA编辑窗口,并自动写好了宏代码开头和结尾。
3、然后在光标默认停留处(即代码“End Sub”的上一行),输入如下代码:
For Each templ In ActiveDocumentListTemplates
For Each lev In templListLevels
levFontReset
Next lev
Next templ
4、最后按F5键运行,或者点击工具栏运行按钮运行该宏过程,这样就解决了”word-多级列表-第3级标题-不能显示编号“的问题。
以上就是关于word中怎么通过设置宏来快速复制每一段的第一句话全部的内容,包括:word中怎么通过设置宏来快速复制每一段的第一句话、qt获取word表格和标题、word怎样快速将关键字所在段落设置标题格式用宏的话该怎么弄等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)