参考：
| 序号 | 类名称 | 功能说明 | 语法 & 举例 | ||
| 01 | ====<<<< Description >>>>==== 代表窗口或窗格中的当前所选内容。所选内容代表文档中选定（或突出显示）的区域，如果文档中没有选定任何内容，则代表插入点。每个文档窗格只能有一个 Selection 对象，并且在整个应用程序中只能有一个活动的 Selection 对象。---------------------------------------------------------------------------------- ====<<<< Methods >>>>==== ◈ Expand (Unit)：扩展指定的区域或所选内容。返回添至该区域或所选内容的字符数。---------------------------------------------------------------------------------- ====<<<< References >>>>==== 参考：python文件打开方式详解——a、a+、r+、w+区别 | ||||
| 02 | ====<<<< Description >>>>==== 扩展指定的区域或所选内容。返回添至该区域或所选内容的字符数。---------------------------------------------------------------------------------- ====<<<< Syntax >>>>==== Selection.Expand (Unit)---------------------------------------------------------------------------------- ====<<<< Parameters >>>>==== ◈ Unit：可选。一个 常量，代表要扩大范围的度量单位。默认值是wdWord 。 wdLine：5，一行。 wdParagraph：4，一个段落。 wdSentence：3，一个句子。 wdWord：2，一个单字。 wdCharacter：1，一个字符。 wdCell：12，一个单元格。 wdColumn：9，一列。 wdRow：10，一行。 wdTable，15，一个表格。 | Sub Yellow() '选定光标所在行 Selection.Expand Unit:=wdLine '选定行背景色设置 Selection.Range.HighlightColorIndex = wdYellow '选定行字体颜色设置 Selection.Range.Font.ColorIndex = wdRedEnd Sub
| |||
Sub 删除答案() Selection.Find.ClearFormatting Selection.Find.Font.Color = wdColorRed Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Font.Color = wdColorYellow With Selection.Find .Text = "（*）.您选择了：（*）" .Replacement.Text = "^&" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAllEnd Sub
| |||||
Sub test() Dim i As Integer Dim text As String Set paras = ActiveDocument.Range.Paragraphs 'For i = paras.Count To 1 Step -1 ' text = ActiveDocument.Range.Paragraphs(i).Range.text ' If ActiveDocument.Range.Paragraphs(i).Range.HighlightColorIndex = wdNoHighlight Then ' MsgBox text ' End If 'Next Application.ScreenUpdating = False '关闭屏幕刷新 '通过遍历将没有高亮的用粉色标记，如果直接操作文本，会出错 For i = 1 To paras.Count text = ActiveDocument.Range.Paragraphs(i).Range.text If ActiveDocument.Range.Paragraphs(i).Range.HighlightColorIndex = wdNoHighlight Then ActiveDocument.Range.Paragraphs(i).Range.Font.ColorIndex = wdPink End If Next '将粉色的全部替换为空 Selection.Find.ClearFormatting Selection.Find.Font.ColorIndex = wdPink With Selection.Find .text = "*" .Replacement.text = "" .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll End SubSub test2() Dim i As Integer Dim para As Paragraph Set paras = ActiveDocument.Range.Paragraphs Application.ScreenUpdating = False '关闭屏幕刷新 '通过遍历将没有高亮的用粉色标记，如果直接操作文本，会出错 For Each para In paras If para.Range.HighlightColorIndex = wdNoHighlight Then para.Range.text = "" End If NextEnd Sub
参考：