Word VBA代码选择单元格中的文本,将特殊剪切和粘贴回同一单元格

2023年8月25日 291次阅读

我有一个包含两列和“x”行数的表.

在第二列是格式化文本,我想将其更改为无格式文本.

手动方式是：

在第2列中选择整个单元格»剪切»单击编辑»单击选择性粘贴»单击未格式化

我们的想法是将未格式化的文本粘贴回切割的单元格,然后向下移动到下面的单元格.

我真的很感激一些代码可以将它应用于表的第二列中的所有单元格.

最佳答案 这是我的问题的解决方案.一位朋友有一段代码我操纵以满足我的需要：

Sub CutAndPasteSpecialUnformatted()

        Dim value As Variable

        ' Process every row in the current table. '
        Dim row As Integer
        Dim rng As Range

        For row = 1 To Selection.Tables(1).Rows.Count
            ' Get the range for the rightmost cell. '
            Selection.Collapse Direction:=wdCollapseStart
            Set rng = Selection.Tables(1).Cell(row, Column:=2).Range

            ' For each, toggle text in rightmost cell. '
            rng.Select
            Selection.Copy
            Selection.Delete
            rng.Select
            Selection.Style = ActiveDocument.Styles("Normal")
            Selection.Delete
            Selection.Collapse Direction:=wdCollapseStart
            Selection.Range.PasteSpecial DataType:=wdPasteText
        Next

End Sub
点赞