查找成功，段落设置没有变

duquancai

ke3088 发表于 2019-2-24 01:00
413191246se老师，麻烦您进附件里帮修改一下。我怎么弄都不行，首行缩进2字符就是不变

你不仅仅是 “首行缩进2字符就是不变”的问题，关于查找部分 也是考虑 不全面。。。。。

1. Sub mxFind()
   
2.     Dim re As Object
   
3.     Set re = CreateObject("VBScript.Regexp")
   
4.     re.Pattern = "^附件\d{0,3}\r"
   
5.     With ActiveDocument.Content.Find
   
6.         Do While .Execute("<附件", , , -1)
   
7.             With .Parent
   
8.                 If re.test(.Paragraphs(1).Range.Text) Then
   
9.                     .Paragraphs(1).Range.Font.Name = "黑体"
   
10.                     Call my_Format(.ParagraphFormat)
    
11.                 End If
    
12.             End With
    
13.         Loop
    
14.     End With
    
15. End Sub
    
16. Sub my_Format(ByRef my_Paragraph As Object)
    
17.     With my_Paragraph
    
18.         .LeftIndent = 0
    
19.         .RightIndent = 0
    
20.         .FirstLineIndent = 0
    
21.         .CharacterUnitLeftIndent = 0
    
22.         .CharacterUnitRightIndent = 0
    
23.         .CharacterUnitFirstLineIndent = 0
    
24.         .LeftIndent = 0
    
25.         .RightIndent = 0
    
26.         .FirstLineIndent = 0
    
27.         .CharacterUnitLeftIndent = 0
    
28.         .CharacterUnitRightIndent = 0
    
29.         .CharacterUnitFirstLineIndent = 0
    
30.     End With
    
31. End Sub

复制代码

duquancai

ke3088 发表于 2019-2-23 19:35
老师，您好！看起来确实简单，但我用手工替换的办法，段落设置也没有改变，仍然是首行缩进2字。向您请教 ...

之所以在本论坛不想 写代码了，甚至不想回帖了。原因是我 回帖后 基本上都是：提问者拿到代码了，屁都不的放一个，从此杳无音信了！！！

相见是缘8

duquancai 发表于 2019-2-25 13:06
之所以在本论坛不想 写代码了，甚至不想回帖了。原因是我 回帖后 基本上都是：提问者拿到代码了，屁都不 ...

少数人的忘恩负义，导致顶级大神的心灰意冷，这真是大家的损失！

413191246se

楼主，我试了半天，只能是把“附件^13“替换后取消首行缩进成功了！
但对于”附件[0-9]{1,2}^13“（即使把{1,2}换成@也无效），怎么也替换不成功。
我建议你仅查找，找到后再设置比较好。

1. Sub test()
   
2.     With ActiveDocument.Content.Find
   
3.         .ClearFormatting
   
4.         .Text = "附件^13"
   
5.         .Forward = True
   
6.         .MatchWildcards = True
   
7.         With .Replacement
   
8.             .ClearFormatting
   
9.             .Text = ""
   
10.             With .ParagraphFormat
    
11.                 .CharacterUnitFirstLineIndent = 0
    
12.                 .FirstLineIndent = CentimetersToPoints(0)
    
13.             End With
    
14.         End With
    
15.         .Execute Replace:=wdReplaceAll
    
16.     End With
    
17. End Sub

复制代码

413191246se

杜先生 11楼代码测试成功！楼主 请用 杜先生 代码吧！（但不知道 代码中这个 -1 是怎么回事！杜先生 能否解释一下呢？）

ke3088

duquancai 发表于 2019-2-25 13:06
之所以在本论坛不想 写代码了，甚至不想回帖了。原因是我 回帖后 基本上都是：提问者拿到代码了，屁都不 ...

杜老师，您好！谢谢您的代码，太有效了。不好意思，出差今天刚回，也刚刚打开电脑，抱歉。再次致以衷心的感谢！

ming0018

413191246se 发表于 2019-2-25 14:48
杜先生 11楼代码测试成功！楼主 请用 杜先生 代码吧！（但不知道 代码中这个 -1 是怎么回事！杜先生 能否解 ...

杜老师简写了，专治伸手党和基础不牢的人！

413191246se

ming 老师：过年好！——在查找时，我知道通配符可以用 1 和 0 表示 TRUE/FALSE，但是 -1 和 2 我看 杜先生/老师 有时也用，这我就不明白了。我一向尊敬 杜先生/老师。当然也伸手过，可惜天资愚钝，悟性太差。

ming0018

413191246se 发表于 2019-2-25 21:04
ming 老师：过年好！——在查找时，我知道通配符可以用 1 和 0 表示 TRUE/FALSE，但是 -1 和 2 我看 杜先生 ...

逻辑值转化为数值：true=-1，false=0

数值转化为逻辑值：非0=true,0=false

413191246se

ming 老师：True=1，怎么会 =-1？还是不懂。谢谢！