注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

Mr.Right

不顾一切的去想,于是我们有了梦想。脚踏实地的去做,于是梦想成了现实。

 
 
 

日志

 
 
关于我

人生一年又一年,只要每年都有所积累,有所成长,都有那么一次自己认为满意的花开时刻就好。即使一时不顺,也要敞开胸怀。生命的荣枯并不是简单的重复,一时的得失不是成败的尺度。花开不是荣耀,而是一个美丽的结束,花谢也不是耻辱,而是一个低调的开始。

网易考拉推荐

Word查找替换VBA和字体设置  

2015-10-22 20:19:08|  分类: 编程 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
Sub findReplace1()
    ActiveDocument.Paragraphs(1).Range.Select
    Selection.Find.Execute FindText:="1", ReplaceWith:="*", Replace:=wdReplaceAll
End Sub

Sub findReplace2()
    ActiveDocument.Paragraphs(1).Range.Select
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "*"  'ListView1.ListItems(i).SubItems(0) 'Findstr=listview1的第i行第1列对应单元格的内容
        .Replacement.Text = "1" 'ListView1.ListItems(i).SubItems(1) 'Findstr=listview1的第i行第2列对应单元格的内容
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub


Sub findReplace3()
    Dim FindChar As String, Fcount As Integer, RepChar As String
    On Error Resume Next
    Application.ScreenUpdating = False    '关闭屏幕更新
    FindChar = "南无阿弥陀佛"
    RepChar = "南无释迦牟尼佛"
    With ActiveDocument.Content.Find    '此处针对全文档
        Do While .Execute(FindText:=FindChar) = True    '如果发现
            Fcount = Fcount + 1    '计数器
        Loop
        If MsgBox("文档中共发现了" & Fcount & "个" & FindChar & vbCrLf _
                & ",按 Yes 键将进行下一步的替换工作,按 No取消", vbYesNo + vbInformation) = vbYes Then
            .Execute FindText:=FindChar, Wrap:=wdFindContinue, ReplaceWith:=RepChar, Replace:=wdReplaceAll
 
        End If
    End With
    Application.ScreenUpdating = True    '恢复屏幕更新
End Sub


Sub findReplace4()
    ' 全选
    Dim rngParagraphs As Range
    Set rngParagraphs = ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(1).Range.Start, End:=ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.End)
    rngParagraphs.Select
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = "^l"                '手动换行符 "^l"
    .Replacement.Text = "^p"    ' 段落标记 "^p"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
End Sub


Sub formatReplace()
    With ActiveDocument.Content.Find
        .ClearFormatting    '清除格式设置
        .Font.Size = 10.5
        With .Replacement    '替换条件
            .ClearFormatting    '清除格式设置
            .Font.Size = 12
        End With
        .Execute FindText:="", ReplaceWith:="", Format:=True, _
                 Replace:=wdReplaceAll    '是格式替换,全部替换
    End With
End Sub


Sub Test1()
    Dim i As Single
    For i = 1 To ActiveDocument.BuiltInDocumentProperties(wdPropertyLines).Value
    With Selection
        .GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=i
        .HomeKey Unit:=wdLine
        .EndKey Unit:=wdLine, Extend:=wdExtend
    End With
    If Selection.Style = "正文" Then
        MsgBox i & "行是正文"
    End If
    If Selection.Style = "标题 1" Then
        MsgBox i & "行是标题 1"
    End If
    MsgBox Selection.Font.Name
    Next
     
End Sub

Sub test2()
    ActiveDocument.Content.Select
    
    With Selection.Font
        .NameFarEast = "宋体"
        .NameAscii = "Times New Roman"
        .NameOther = "Times New Roman"
        .Name = "Times New Roman"
        .Size = 12
        .Bold = False
        .Italic = False
        .Underline = wdUnderlineNone
        .UnderlineColor = wdColorAutomatic
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = False
        .SmallCaps = False
        .AllCaps = False
        .Color = wdColorAutomatic
        .Engrave = False
        .Superscript = False
        .Subscript = False
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 1
        .Animation = wdAnimationNone
        .DisableCharacterSpaceGrid = False
        .EmphasisMark = wdEmphasisMarkNone
    End With
End Sub

  评论这张
 
阅读(195)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2016