主题：[求助]遍历所有单元格后，执行缩进代码

下面是当前单元格缩进代码，想遍历所有表、所有单元格后，再执行。

1、缩进代码：

Dim str As String = CurrentTable.Value
    str = str.Replace(chr(10), "").replace("    ", "")
    str = "    " & str.Replace(chr(13), vbcrlf & "    ").trim()
    CurrentTable.Value = str

 

2、遍历代码：

For Each t As Table In Tables
    For Each r As Row In t.rows
        For Each c As Col In t.cols
            

        Next
    Next
Next

 

3、所有单元格缩进2个字符：

 

谢谢！

虽然可以帮你写出代码，但是我强烈反对你这么做，因为多次一举，而且有副作用。

For Each t As Table In Tables
    For Each r As Row In t.rows
        For Each c As Col In t.cols
            If c.IsString AndAlso c.DataCol.Expression = "" Then
                Dim str As String = r(c.name)
                str = str.Replace(chr(10), "").replace("    ", "")
                str = "    " & str.Replace(chr(13), vbcrlf & "    ").trim()
                r(c.name) = str
            End If
        Next
    Next
Next