如何才能查找到表格内的“单元格结束符”？

相见是缘8

想在表格内“单元格结束符”前面加上一个“元”字，求老师们帮忙！谢谢！

ming0018

1. Private Sub 遍历单元格()
   
2.     Dim doc As Document, Cl As Cell
   
3.     Set doc = ActiveDocument
   
4.     For Each Cl In doc.Tables(1).Range.Cells
   
5.         If Cl.Range.Text = chr(13) & chr(7) Then
   
6.             '单元格只有一个回车符和表格结束符
   
7.             Cl.Range.Select
   
8.         End If
   
9.     Next
   
10. End Sub

复制代码

单元格结束符有两个字符组成：chr(13) + chr(7)

cuanju

Sub d0()
Rem 表格每个单元格末尾增加元字
    Dim Tbl As Table
    Dim oCell As Cell
    Set Tbl = ActiveDocument.Tables(1)
    For Each oCell In Tbl.Range.Cells
        oCell.Range.InsertAfter "元"
    Next
End Sub

相见是缘8

ming0018 发表于 2020-4-22 11:46
单元格结束符有两个字符组成：chr(13) + chr(7)

感谢老师帮忙！
呀！我在 “附件” 上运行后，表格内 “单元格结束符” 前面并未加上 “元” 字。
老师：另外、如用手动查找替换，“单元格结束符” 用什么符号替代？

ming0018

相见是缘8 发表于 2020-4-22 13:25
感谢老师帮忙！
呀！我在 “附件” 上运行后，表格内 “单元格结束符” 前面并未加上 “元” 字。
老师 ...

代码只是判断是否为空的单元格，你可以自己修改。
手动不能查找到表格结束符。

相见是缘8

ming0018 发表于 2020-4-22 14:20
代码只是判断是否为空的单元格，你可以自己修改。
手动不能查找到表格结束符。

我水平未到，修改不来，能否劳老师你修改下？谢谢！

ming0018

相见是缘8 发表于 2020-4-22 14:37
我水平未到，修改不来，能否劳老师你修改下？谢谢！

1. Private Sub 遍历单元格()
   
2.     Dim doc As Document, Cl As Cell
   
3.     Set doc = ActiveDocument
   
4.     For Each Cl In doc.Tables(1).Range.Cells
   
5.         Cl.Range.Characters.Last.InsertAfter "元"
   
6.     Next
   
7. End Sub

复制代码

ming0018

已上传，等审核。

相见是缘8

cuanju 发表于 2020-4-22 12:56
Sub d0()
Rem 表格每个单元格末尾增加元字
    Dim Tbl As Table

老师好？
抱歉！才看到你代码，代码运行OK！感谢老师！
老师！如只在选中的“单元格结束符”前面加字，未选中的不加，这个有办法吗？

ming0018

相见是缘8 发表于 2020-4-22 15:53
老师好？
抱歉！才看到你代码，代码运行OK！感谢老师！
老师！如只在选中的“单元格结束符”前面加字， ...

是不是这个问题问完了，还有下一个问题，如果有请一起问出来。