如何用vba在行尾插入回车符？

zhanglei1371

效果如下图所示：不用selection的话，该如何快速实现？
谢谢各位！

sylun

可试试用Lines等对象遍历行的方法：

1. Sub test()
   
2.     '提取页面各行内容
   
3.     Dim i%, J%, k%, n%, d, info
   
4.     Dim aPage As Page
   
5.     Dim aRec As Rectangle
   
6.     Dim aLine As Line
   
7.    
   
8.     On Error Resume Next
   
9.     Set d = CreateObject("Scripting.Dictionary")
   
10.     With ActiveDocument.ActiveWindow.Panes(1)
    
11.         For Each aPage In .Pages
    
12.             i = i + 1
    
13.             For Each aRec In aPage.Rectangles
    
14.                 J = J + 1
    
15.                 For Each aLine In aRec.Lines
    
16.                     k = k + 1
    
17.                     With aLine
    
18. '                        .Range.Select
    
19.                         If .LineType = wdTextLine Then  '是文字行（不是表格行）时
    
20.                             d(n) = Replace(.Range.Text, Chr(13), "┛")
    
21.                         Else
    
22.                             d(n) = Replace(.Range.Text, Chr(13), "┛") & "※"
    
23.                         End If
    
24.                     End With
    
25.                     n = n + 1
    
26.                 Next
    
27.                 k = 0
    
28.             Next
    
29.             J = 0
    
30.             If i > 3 Then Exit For  '仅提取前3页
    
31.         Next
    
32.     End With
    
33.     info = d.Items
    
34.     Documents.Add.Content.Text = "（用“┛”表示回车符，表格行后用“※”标记）" & vbCrLf & Join(info, vbCrLf)
    
35. End Sub

复制代码