Word VBA代码来选择单元格中的文本，剪切并特殊粘贴回相同的单元格。

Question

我有一个表格，包含两列和"x"行。

第二列是格式化文本，我想将其更改为未格式化的文本。

手动操作方法如下：

选择第二列中的整个单元格» 剪切 » 单击 编辑 » 单击 粘贴特殊项 » 单击 未格式化

这样做的想法是将未格式化的文本粘贴回原来剪切的单元格中，并移动到下面的单元格。

我真的很感激如果能提供一些代码，以便将此应用于表格的所有第二列单元格。

- AneeshS

---

让我完全解释一下。当我进行剪切和特殊粘贴时，我会删除所有格式，但保留换行符和项目符号。这是为了让我能够导入Excel，同时保持段落的结构。 - AneeshS

你尝试过录制宏吗？ - user2140173

有没有更直接地与您沟通的方式，以便我能更好地解释？ - AneeshS

是的，由于某些原因，我无法这样做。 - AneeshS

进入聊天室。 - user2140173

Answer 1

这是解决我的问题的方法。一个朋友给了我一段代码，我进行了修改以满足我的需求：

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

- AneeshS