word表格内统一加文字

杜创知

在word表格内统一加文字


如没有表格，直接用通配符“^p”替换就行，但表格不行，有没有大神能帮解决下

batmanbbs

选中表格，查找：列举各类文本，然后替换

gwjkkkkk

Option Explicit
Sub test1()
    Dim ar, i&, n&, strInsert$, objTable As Table, strRngText$
   
    strInsert = InputBox("请输入需要加入字符", "", "0")
    If strInsert = "" Then Exit Sub
   
    Application.ScreenUpdating = False
   
    With ActiveDocument
        For Each objTable In .Tables
            With objTable
                n = .Range.Cells.Count
                For i = 1 To n
                    strRngText = Left(.Range.Cells(i).Range.Text, Len(.Range.Cells(i).Range.Text) - 2)
                    If Len(strRngText) Then .Range.Cells(i).Range.Text = strRngText & strInsert
                Next i
            End With
        Next
    End With
   
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

用宏写一下。。。

杜创知

gwjkkkkk 发表于 2024-5-14 19:07
用宏写一下。。。

完美解决了我的问题，太感谢大神
请接受我的膜拜