1.word的VBA问题,如何让光标移动到指定的位置
1、打开一个新建的Word文档,点击“插入”——“图片”——“来自文件”,选择一张图片插入到文档中。
2、然后需要在图片上任意位置,点击鼠标右键,选择“设置图片格式”。
3、设置完成,现在我们可以随意移动图片了,比如我把图片移动到了右下方。
2.word vba怎样把光标定位到指定字符串的位置
移动光标至文档开始 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。
3.有VBA高手吗 求一段代码 word 根据光标位置插入书签,打开此文档自
1、可以定义一个书签 “课程辅助”,值是一个无意义的东东,比如 AAAAA
在需要的地方插入书签
2、定义书签 “课程" ,值是 数学
3、按下alt+F9,ctrl+H,输入”课程辅助“, “课程",全部替换
4、按下alt+F9,F9
代码:
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="xx"
ThisDocument.Save
Selection.GoTo What:=wdGoToBookmark, Name:="mingzi "
4.vb 获取word光标位置并插入文字
代码如下: Dim wdapp As ObjectDim wd As ObjectPrivate Sub Command1_Click() Set wdapp = CreateObject("Word.Application") '创建Word运用环境 Set wd = wdapp.Documents.open(App.Path & "\mi.docx") '打开Word wdapp.Visible = TrueEnd SubPrivate Sub Command2_Click() wdapp.selection.insertafter "Hello World!" '插入相关字符! MsgBox wdapp.selection.range.startEnd SubPrivate Sub Form_Unload(Cancel As Integer) wd.Close True '关闭Word文件 wdapp.Quit '退出word运用环境End Sub附件如下: 话说大哥,一分悬赏分都不给吗?专门给你写的代码和测试文件啊,你这个题怎么滴也得50分吧,我觉得! 。
转载请注明出处51数据库 » vbaword输出光标位置