提取不同字数的行

常扬帆

我有一个大文件，我想把字数相同的行分别提取，结构符号涉及16种，字涉及中、日、韩等等，还涉及多种字体。用查找替换的办法，第一慢，第二似乎有错误。所以，又想麻烦哪位大佬给写一段代码。万分感谢！

小花鹿

搞不懂什么情况，第一、二行的等号在第3位，第三行的等号在第2位
Sub test()
    Dim s1, s2, s3
    With ActiveDocument
        s1 = Mid(.Paragraphs(1).Range.Text, 3, 1)
        s2 = Mid(.Paragraphs(2).Range.Text, 3, 1)
        s3 = Mid(.Paragraphs(3).Range.Text, 2, 1)
    End With
End Sub

413191246se

楼主，小花鹿 老师：此题我以为用 For Each ... Next 结构简单地循环遍历查找字长为 6 的段落即可，结果，发现第一、二段落字长均为 8，只好改为查找 5 个字符的段落，下面代码仅供参考：

1. Sub a0221_CopyText()
   
2.     Dim doc As Document, r As Range, i As Paragraph
   
3.    
   
4.     Set doc = ActiveDocument
   
5.     doc.Content.InsertParagraphBefore
   
6.     Set r = Documents.Add.Range(Start:=0, End:=0)
   
7.    
   
8.     With doc.Content.Find
   
9.         .ClearFormatting
   
10.         .Text = "^13?????^13"
    
11.         .Forward = True
    
12.         .MatchWildcards = True
    
13.         Do While .Execute
    
14.             With .Parent
    
15.                 .MoveStart
    
16.                 .Copy
    
17.                 With r
    
18.                     .Paste
    
19.                     .Collapse 0
    
20.                 End With
    
21.                 .Start = .End
    
22.                 .End = .End - 1
    
23.             End With
    
24.         Loop
    
25.     End With
    
26.    
    
27.     doc.Close 0
    
28.     MsgBox "Complete!", 0 + 48
    
29. End Sub

复制代码

batmanbbs

小花鹿 发表于 2024-2-20 23:13
搞不懂什么情况，第一、二行的等号在第3位，第三行的等号在第2位
Sub test()
    Dim s1, s2, s3

一般的汉字是 uft-8，现在超大字符集后面的汉字都是 uft-16，所以不能使用 len，left
，right，mid之类的判断和截取，可以使用.character来判断。

小花鹿

413191246se 发表于 2024-2-21 02:18
楼主，小花鹿 老师：此题我以为用 For Each ... Next 结构简单地循环遍历查找字长为 6 的段落即可，结果， ...

表面看起来是5个字符，实际不是
Sub test()
    Dim s, m&, n&, p As Paragraph
    For Each p In ActiveDocument.Paragraphs
        s = p.Range.Text
        m = InStr(s, "=")
        s = Mid(s, m + 1)
        n = Len(s)
        Stop
    Next p
End Sub

常扬帆

小花鹿 发表于 2024-2-20 23:13
搞不懂什么情况，第一、二行的等号在第3位，第三行的等号在第2位
Sub test()
    Dim s1, s2, s3

老师您好！谢谢您的帮助。关于等号位置是“skukansongti_EXTB”字体的原因。另外，您的代码运行后，没有变化。我的是office2016。

常扬帆

413191246se 发表于 2024-2-21 02:18
楼主，小花鹿 老师：此题我以为用 For Each ... Next 结构简单地循环遍历查找字长为 6 的段落即可，结果， ...

老师您好！我的文件特大，在运行在半个小时后崩了，我把文件一分为二后，在某个地方又崩了。谢谢您的帮助，看来还是要麻烦您解决崩的问题！万分感谢！

常扬帆

小花鹿 发表于 2024-2-21 09:07
表面看起来是5个字符，实际不是
Sub test()
    Dim s, m&, n&, p As Paragraph

@小花鹿老师您好！您的这个，对于我这白痴来说，不知道怎么办？哈哈哈哈

batmanbbs

常扬帆 发表于 2024-2-21 10:05
@小花鹿老师您好！您的这个，对于我这白痴来说，不知道怎么办？哈哈哈哈

调试用的，删除即可

小花鹿

我的代码是测试用的，不是解决问题的