如何用代码在每行末尾加上红色的hhhhhhhhhh

zzpsx

如何用代码在每行末尾加上红色的hhhhhhhhhh.zip (13.1 KB, 下载次数: 7)

2024-1-6 21:06 上传

点击文件名下载附件

413191246se

1. Sub a1_InsertText_LoopParagraphs()
   
2.     Dim doc As Document, r As Range, i As Paragraph
   
3.     Set doc = ActiveDocument
   
4.     Set r = IIf(Selection.Type = wdSelectionIP, doc.Content, Selection.Range)
   
5.     doc.Content.Find.Execute "^l", , , 0, , , , , , "^p", 2
   
6.     For Each i In r.Paragraphs
   
7.         With i.Range
   
8.             .Characters.Last.InsertBefore Text:="hhhhhhhhhh"
   
9.             doc.Range(Start:=.Characters(Len(.Text) - 10).Start, _
   
10.                 End:=.End).Font.Color = wdColorRed
    
11.         End With
    
12.     Next
    
13. End Sub

复制代码

蜀中草莽

413191246se 发表于 2024-1-7 00:26

Sub tt3()
    Dim doc As Document
    Set doc = ActiveDocument
    With doc.Range.Find
        .text = "^13"
        .Replacement.Font.colorIndex = 6
        .Replacement.text = "hhhhhhhhhh^13"
        .Execute Replace:=2
    End With
End Sub