WORD表格中的回车符与表格外的回车符不一样，如何识别？

GONG2816

各位老师好！
      我在编制一个小代码时发现表格内的回车符与表格外的回车符不一样（表格中如果有多个段落，则最后一个段落的回车符与普通的回车符不一样）。简化说明问题，如果我希望将回车符之前的数字末尾加上万元，而处于段落中间的数字后不加万元，请问高手如何操作？

约定的童话

记得好像是chr(164)，楼主验证下看看

GONG2816

不是的。chr(164)与Chr(13)的效果完全相同

wuwenbin32415

同问。WORD表格中的那个符号是叫单元格结尾符吧，不是回车符吧

GONG2816

叫不叫回车符都无关系，关键怎么识别它

413191246se

1. Sub 循环遍历所有单元格2021()
   
2.     Dim t As Table, c As Cell, r As Range
   
3.     For Each t In ActiveDocument.Tables
   
4.         For Each c In t.Range.Cells
   
5.             c.Range.Font.ColorIndex = wdRed
   
6.             Set r = c.Range
   
7.             r.MoveEnd 1, -1
   
8.             MsgBox "[" & r.Text & "]"
   
9.             MsgBox c.Range Like r.Text & Chr(13) & Chr(7)
   
10.         Next
    
11.     Next
    
12. End Sub

复制代码

相见是缘8

http://club.excelhome.net/thread-1533194-1-1.html

GONG2816

非常感谢各位老师

weiyingde

413191246se 发表于 2021-2-25 22:36

我也早遇到此类困惑，也请教大侠这个问题。
       
1.总体、个体、样
2.本和样本
3.容量：我们把
4.所要考察的对象的全体
5.叫做总体；把组成总体的每一个
6.考察对象23叫做个体；从总
7.体中取出的一部分个体
8.叫做这46个总体的一个
9.样本；一个样本6包括的
10.个3体数量叫做
11.样本4容量．
sub 匹配开头的0数字()
With ActiveDocument.Content.Find
     Do While .Execute("^13[0-9]", , , 1)
        n = n + 1
     Loop
End With
MsgBox n
End Sub

显示只有10个，怎样才能匹配11个呢？

weiyingde

提醒：1.总体、个体、样的上一行有一个表格。