word vba 怎么选择每段的第一行

13907933959

QQ214189912 发表于 2016-10-25 11:05

前辈好！
如要将Word 文档每段的第一行，一次全部查找到，前辈可否有办法？请前辈赐教！谢谢！

413191246se

——139：就像一次选中所有表格一样，其实逐个选中处理结果也是一样的。我提供一个利用循环语句分别逐段设置段落首行的宏，你看看：

1. Sub 选定首行()
   
2.     Dim i As Long
   
3.     Selection.HomeKey unit:=wdStory
   
4.     Do
   
5.         Selection.EndKey unit:=wdLine, Extend:=wdExtend
   
6.         Selection.Font.Color = wdColorRed '红色
   
7.         Selection.Font.Bold = True '加粗
   
8.         Selection.Font.Underline = wdUnderlineWavyHeavy '重波浪线
   
9.         Selection.MoveDown unit:=wdParagraph, Count:=1
   
10.         i = i + 1
    
11.     Loop Until i = ActiveDocument.Paragraphs.Count
    
12. End Sub

复制代码

13907933959

413191246se 发表于 2016-10-29 01:25
——139：就像一次选中所有表格一样，其实逐个选中处理结果也是一样的。我提供一个利用循环语句分别逐段设 ...

师傅好！
今年您上线的时间少了，是不是工作比较忙？
刚测试了代码，可准确的改变文档每段第1行的格式。感谢师傅！
师傅、如要选定文档每段的第2行、第3行、第4行、……，该代码要如何修改？
另外、如要让文档每段的第1行，仅处在被选中状态（也可通过修改代码，让文档每段的第2行、第3行、第4行、……，仅处在被选中状态），师傅可有办法？

jepvyg

413191246se 发表于 2016-10-29 01:25
——139：就像一次选中所有表格一样，其实逐个选中处理结果也是一样的。我提供一个利用循环语句分别逐段设 ...

大神 ，我也是小白，我就想请教下。
其它的，边猜边搜，搞了个半懂，
Selection.MoveDown unit:=wdParagraph, Count:=1 是说以段为单位，步长为1，向下移光标。
Selection.EndKey unit:=wdLine, Extend:=wdExtend wdline应该是word的行的意思，这后面的半句，extend:=wdextend是个什么意思和作用。没搜到。

fyjin

如果你设置了页面布局每行22个字，用属性rang（1，22）

新晋猫奴

jepvyg 发表于 2021-12-20 15:57
大神 ，我也是小白，我就想请教下。
其它的，边猜边搜，搞了个半懂，
Selection.MoveDown unit:=wdPara ...

我查到的


Selection.Extend 方法 (Word)
打开扩展模式。如果扩展模式已经打开，则将选定内容扩展到下一个更大的文本单位。

语法
表达式.扩展 (字符)

expression：必需。 表示 Selection 对象的变量。

参数
参数
名称        必需/可选        数据类型        说明
Character        可选        Variant        通过该扩展所选内容的字符。 此参数区分大小写，并且必须计算为 String， 否则将发生错误。 另外，如果该参数的值不止一个字符，则 Microsoft Word 完全忽略该命令。
备注
如果它已不使用这种方法将 ExtendMode 属性设置为 True 。

逐级选定文本单位是：单词、句、段落、节和整篇文档。 如果指定了 Character，则该方法正向扩展选定内容至指定字符下一次出现的位置。 通过移动选定内容的活动结尾来扩展选定内容。

Word (WdUnits)
指定要使用的度量单位。

WORD (WDUNITS)
名称                                               值                  说明
wdCell                                      12                 单元格。
wdCharacter                               1                 字符。
wdCharacterFormatting              13                 字符格式。
wdColumn                                       9                 列。
wdItem                                      16                 所选项。
wdLine                                       5                  一个线段。（可能是段落一行？）
wdParagraph                               4                  段落。
wdParagraphFormatting              14               段落格式。
wdRow                                      10                 行。（可能是表格一行？）
wdScreen                                       7                 屏幕尺寸。
wdSection                                        8                一节。
wdSentence                               3                句子。
wdStory                                       6                部分。
wdTable                                      15                一个表格。
wdWindow                                 11                窗口。
wdWord                                     2                 字。