Word VBA代碼選擇單元格中的文本，剪切並粘貼到同一個單元格中的特殊代碼

Question

我有一個包含兩列和「x」行數的表格。

第二列是格式化的文本，我想更改爲無格式的文本。

這樣做的手工方式是：

選擇在第2列»剪切整個小區»單擊編輯»單擊選擇性粘貼»單擊無格式

的想法是粘貼無格式文本回到它被切斷的單元格中，然後向下移動到下面的單元格。

我真的很感激一些代碼，可以將此應用於表格第二列中的所有單元格。

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