Question

VB 如何控制word的光标移动到表格？

我要用VB在word中插入图片 用表格来定位图片要插入的位置

我的思路是：
1先插入图片
2设置浮于文字上方
3剪切
4光标移动到表格
5粘帖
现在卡在第4步 请高人解答如何控制word的光标移动到表格
Set Selectio = wordObj2.ActiveDocument.Shapes.AddPicture(FileName:="E:\X.jpg", LinkToFile:=False, SaveWithDocument:=True) '1插入图片

Selectio.LockAspectRatio = msoTrue
Selectio.WrapFormat.AllowOverlap = True
Selectio.WrapFormat.Side = wdWrapBoth
Selectio.WrapFormat.Type = 3 '2浮于文字上方
Selectio.Select
wordObj2.Selection.Cut '3剪切

这第4步要怎么搞？
'4光标移动到第二个表格的第一行第一格或者选中第二个表格的第一行第一格

wordObj2.Selection.PasteAndFormat (wdPasteDefault) '5粘贴剪切的图

Answer 1

 向下移动Word表格的方法：

方法一：

1、将鼠标放到表格左上角，会在左上角看到一个十字方框图标；

2、当鼠标点指针变为带箭头的十字形进，单击选中左上角的十字方框图标，就会选中整个表格；

3、向下拖动表格到合适的位置松手，在表格上面插入一个段落标记。

方法二：

1、将光标放在表格第一个单元格的最前面；

2、按回车键，即可在表格上面插入一个段落标记，这时就可以添加文字。

注：此种方法，表格必须位置文档页面的最前面，否则按回车键将在单元格中输入一个段落标记。

Answer 2

移动光标至文档开始
Selection.HomeKey unit:=wdStory
下面的供参考:
Sub MoveToCurrentLineStart()
'移动光标至当前行首
Selection.HomeKey unit:=wdLine
End Sub
Sub MoveToCurrentLineEnd()
'移动光标至当前行尾
Selection.EndKey unit:=wdLine
End Sub
Sub SelectToCurrentLineStart()
'选择从光标至当前行首的内容
Selection.HomeKey unit:=wdLine, Extend:=wdExtend
End Sub
Sub SelectToCurrentLineEnd()
'选择从光标至当前行尾的内容
Selection.EndKey unit:=wdLine, Extend:=wdExtend
End Sub
Sub SelectCurrentLine()
'选择当前行
Selection.HomeKey unit:=wdLine
Selection.EndKey unit:=wdLine, Extend:=wdExtend
End Sub
Sub MoveToDocStart()
'移动光标至文档开始
Selection.HomeKey unit:=wdStory
End Sub
Sub MoveToDocEnd()
'移动光标至文档结尾
Selection.EndKey unit:=wdStory
End Sub
Sub SelectToDocStart()
'选择从光标至文档开始的内容
Selection.HomeKey unit:=wdStory, Extend:=wdExtend
End Sub
Sub SelectToDocEnd()
'选择从光标至文档结尾的内容
Selection.EndKey unit:=wdStory, Extend:=wdExtend
End Sub
Sub SelectDocAll()
'选择文档全部内容（从WholeStory可猜出Story应是当前文档的意思）
Selection.WholeStory
End Sub
Sub MoveToCurrentParagraphStart()
'移动光标至当前段落的开始
Selection.MoveUp unit:=wdParagraph
End Sub
Sub MoveToCurrentParagraphEnd()
'移动光标至当前段落的结尾
Selection.MoveDown unit:=wdParagraph
End Sub
Sub SelectToCurrentParagraphStart()
'选择从光标至当前段落开始的内容
Selection.MoveUp unit:=wdParagraph, Extend:=wdExtend
End Sub
Sub SelectToCurrentParagraphEnd()
'选择从光标至当前段落结尾的内容
Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend
End Sub
Sub SelectCurrentParagraph()
'选择光标所在段落的内容
Selection.MoveUp unit:=wdParagraph
Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend
End Sub
Sub DisplaySelectionStartAndEnd()
'显示选择区的开始与结束的位置，注意：文档第1个字符的位置是0
MsgBox ("第" & Selection.Start & "个字符至第" & Selection.End & "个字符")
End Sub
Sub DeleteCurrentLine()
'删除当前行
Selection.HomeKey unit:=wdLine
Selection.EndKey unit:=wdLine, Extend:=wdExtend
Selection.Delete
End Sub
Sub DeleteCurrentParagraph()
'删除当前段落
Selection.MoveUp unit:=wdParagraph
Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend
Selection.Delete
End Sub
源：http://zhidao.baidu.com/link?url=pBezaveflgZMlQtKIIonqFp3cbi_0_YARpUaIQOWxOVQQgbuXAt3ZFhnqXW4PrThR7vkM9ALaHEhX2NJA9t9Aq

追问

这没头没尾的 怎么插进去？