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

相见是缘8

ming0018 发表于 2020-4-22 14:48

老师好？
代码运行OK！感谢老师帮忙！

相见是缘8

ming0018 发表于 2020-4-22 16:14
是不是这个问题问完了，还有下一个问题，如果有请一起问出来。

老师好？
解决了这个就没有了，这个老师有办法吗？谢谢！

ming0018

相见是缘8 发表于 2020-4-22 17:52
老师好？
解决了这个就没有了，这个老师有办法吗？谢谢！

有，下班了，明天上班再看。

相见是缘8

ming0018 发表于 2020-4-22 18:02
有，下班了，明天上班再看。

好！期待老师的代码！

ming0018

相见是缘8 发表于 2020-4-22 18:04
好！期待老师的代码！

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

复制代码

相见是缘8

ming0018 发表于 2020-4-23 10:02

老师好？
代码运行OK！完美的解决了问题，衷心感谢老师的多次帮忙！谢谢！

相见是缘8

各位老师：

如只在红色的“单元格结束符”前面加一个“元”字，代码要怎样修改？

413191246se

* 相见：你的问题分两种情况：一是单元格末尾加“元”字；二是单元格内每个段落前加“元”字，请分别试试：

1. Sub aaaa循环遍历所有单元格_红色加元()
   
2.     Dim t As Table, c As Cell
   
3.     For Each t In ActiveDocument.Tables
   
4.         For Each c In t.Range.Cells
   
5.             With c.Range
   
6.                 If .Font.ColorIndex = wdRed Then .Characters.Last.InsertBefore Text:="元"
   
7.             End With
   
8.         Next
   
9.     Next
   
10. End Sub
    
11. Sub aaaa循环遍历所有单元格_红色加元_每个段落()
    
12.     Dim t As Table, c As Cell, i&
    
13.     For Each t In ActiveDocument.Tables
    
14.         For Each c In t.Range.Cells
    
15.             With c.Range
    
16.                 If .Font.ColorIndex = wdRed Then
    
17.                     For i = 1 To .Paragraphs.Count
    
18.                         .Paragraphs(i).Range.Characters.Last.InsertBefore Text:="元"
    
19.                     Next i
    
20.                 End If
    
21.                     
    
22.             End With
    
23.         Next
    
24.     Next
    
25. End Sub

复制代码

相见是缘8

413191246se 发表于 2021-1-20 14:11
* 相见：你的问题分两种情况：一是单元格末尾加“元”字；二是单元格内每个段落前加“元”字，请分别试试： ...

老师好！
感谢你的专业解答和代码！可我的知识不够难以表达清楚，请你见谅！
老师、如只在红色 “单元格的段落符” 前面加一个 “元” 字，“单元格的结束符” 前面不加，代码要怎样修改？

413191246se

相见：第 17 行代码，在“.Count”后面加上“-1”即可。