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

我要用VB在word中插入图片用表格来定位图片要插入的位置我的思路是:1先插入图片2设置浮于文字上方3剪切4光标移动到表格5粘帖现在卡在第4步请高人解答如何控制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粘贴剪切的图
展开
 我来答
我是来吓宝宝的
推荐于2016-01-06 · TA获得超过2.1万个赞
知道小有建树答主
回答量:4423
采纳率:88%
帮助的人:313万
展开全部

 向下移动Word表格的方法:

方法一:

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

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

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

方法二:

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

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

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

0艾希恩
2015-03-30 · TA获得超过650个赞
知道小有建树答主
回答量:261
采纳率:80%
帮助的人:91.3万
展开全部
移动光标至文档开始
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
追问
这没头没尾的 怎么插进去?
本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式