zoukankan      html  css  js  c++  java
  • 【330】word

    参考:Object model (Word VBA reference)


    序号 类名称  

    功能说明

      语法 & 举例
    01 Selection  

    ====<<<< Description >>>>====

    代表窗口或窗格中的当前所选内容。所选内容代表文档中选定(或突出显示)的区域,如果文档中没有选定任何内容,则代表插入点。每个文档窗格只能有一个 Selection 对象,并且在整个应用程序中只能有一个活动的 Selection 对象。
    ----------------------------------------------------------------------------------

    ====<<<<  Methods >>>>====

    Expand (Unit):扩展指定的区域或所选内容。返回添至该区域或所选内容的字符数。
    ----------------------------------------------------------------------------------

    ====<<<< References >>>>====

    参考:python文件打开方式详解——a、a+、r+、w+区别

       
    02 Selection.Expand()  

    ====<<<< Description >>>>====

    扩展指定的区域或所选内容。返回添至该区域或所选内容的字符数。
    ----------------------------------------------------------------------------------

    ====<<<< Syntax >>>>====

    Selection.Expand (Unit)
    ----------------------------------------------------------------------------------

    ====<<<< Parameters >>>>====

    Unit:可选。一个 WdUnits 常量,代表要扩大范围的度量单位。默认值是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 = wdRed
    End 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:=wdReplaceAll
    End 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 Sub
    
    Sub 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
        Next
    
    End Sub
    

    参考:word的vba问题,批量删除文本,高手支招!

  • 相关阅读:
    ADexplorer
    Ldap登陆AD(Active Directory)进行认证的Java示例
    通过LDAP验证Active Directory服务
    APACHE + LDAP 的权限认证配置方法
    How to authenticate a user by uid and password?
    js汉字与拼音互转终极方案,附简单的JS拼音输入法【转】
    给MySQL增加mysql-udf-http和mysql-udf-json自定义函数,让MySQL有调用http接口和查询直接回JSON的能力
    CentOS6.7安装RabbitMQ3.6.5
    CentOS利用inotify+rsync实现文件同步
    CentOS两台服务器利用scp拷贝文件
  • 原文地址:https://www.cnblogs.com/alex-bn-lee/p/9283510.html
Copyright © 2011-2022 走看看