VBA，Word中如何将列与列内容调换

第二列第四列
1111 4444
2222 5555
3333 6666

如上，怎么用程序将表格中第二列的内容和第四列的内容交换，变成如下的：

第四列         第二列
4444        1111
5555        2222
6666        3333

感恩~~~
--------------------编程问答-------------------- 帮你顶下。我还没搞出来。 --------------------编程问答-------------------- 自己顶一下，多谢帮顶~ --------------------编程问答-------------------- 帮顶 --------------------编程问答-------------------- 帮顶 --------------------编程问答-------------------- --------------------编程问答-------------------- 友情up --------------------编程问答-------------------- --------------------编程问答-------------------- 帮顶 --------------------编程问答--------------------     呵呵，我遇到一个类似的问题，正准备来csdn求较呢。就先看到你的问题，先帮你解决下

[code]
Sub SwapCol(col1 As Integer, col2 As Integer)
    Dim s As String
    Dim row As row
    For Each row In ActiveDocument.Tables(1).Rows
        s = row.Cells(col1).Range.Text
        row.Cells(col1).Range.Text = row.Cells(col2).Range.Text
        row.Cells(col2).Range.Text = s
    Next

End Sub
[/code] --------------------编程问答--------------------    奇怪了，我不是贴上代码了吗？怎么没有看到我的函数呢

Sub SwapCol(col1 As Integer, col2 As Integer)
    Dim s As String
    Dim row As row
    For Each row In ActiveDocument.Tables(1).Rows
        s = row.Cells(col1).Range.Text
        row.Cells(col1).Range.Text = row.Cells(col2).Range.Text
        row.Cells(col2).Range.Text = s
    Next

End Sub --------------------编程问答-------------------- --------------------编程问答-------------------- 楼上的方法没问题，当然只对于表格中是文本的情况吧
要是某个表格有图片呢？ --------------------编程问答-------------------- 帮顶一下。。。。。

补充：VB ,  VBA