社区
Office开发/ VBA
帖子详情
请教:Word VBA中Selection.HomeKey中参数的取值wdLine,wdStory...,具体的定义和值是什么?
papaya_stone
2002-04-23 03:35:18
同标题。
...全文
2363
4
打赏
收藏
请教:Word VBA中Selection.HomeKey中参数的取值wdLine,wdStory...,具体的定义和值是什么?
同标题。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
sabrina_yuan
2002-04-23
打赏
举报
回复
本示例将所选内容移至当前文字部分的开头。如果所选内容位于文档正文部分,则本示例将所选内容移至文档的开头。
Selection.HomeKey Unit:=wdStory, Extend:=wdMove
本示例将所选内容移至当前行的开头,并将移动的字符数赋给 pos 变量。
pos = Selection.HomeKey(Unit:=wdLine, Extend:=wdMove)
If pos = 0 Then StatusBar = "Selection was not moved"
sabrina_yuan
2002-04-23
打赏
举报
回复
将所选内容移动或扩展至指定单位的开始。本方法返回一个整数,该整数表明了所选内容实际移动的字符数;如果移动不成功,则返回 0(零)。
注意 本方法与 Home 键的功能相同。
语法
expression.HomeKey(Unit, Extend)
expression 该表达式返回一个 Selection 对象。
Unit Variant 类型,可选。移动和扩展所选内容所依据的度量单位。可以是下列 WdUnits 常量之一:wdStory、wdColumn、wdLine 或 wdRow。默认值是 wdLine。
Extend Variant 类型,可选。指定移动所选内容的方式。可以是下列 WdMovementType 常量之一:wdMove 或 wdExtend。如果本参数是 wdMove,则所选内容折叠为插入点,并移至指定单位的开始。如果本参数是 wdExtend,则所选内容的开始扩展到指定单位的开始。默认值是 wdMove。
papaya_stone
2002-04-23
打赏
举报
回复
那位好心人帮我查一下,我实在是找不到!
sabrina_yuan
2002-04-23
打赏
举报
回复
看帮助
[
Word
|
VBA
] 自
定义
快捷键 | 选
中
当前行 | 删除当前行
删除当前行 Sub deleteCurrent
Line
()
Selection
.
Home
Key
Unit:=
wd
Line
Selection
.End
Key
Unit:=
wd
Line
, Extend:=
wd
Extend
Selection
.delete Unit:=
wd
Character, Count:=1 End Sub 选
中
当前行 Sub selectCurr...
用
VBA
检查
Word
文档
中
是否存在位于行首的脚注引用,如存在则通过调整字符间距使其移动到非行首的位置
在`
Word
`文档
中
插入脚注时,有时候会出现脚注引用序号出现在行首的情况,这样阅读的时候总觉得不便,而且按
中
文排版习惯,这种引用符号也不应该出现在行首。本文介绍使用
VBA
将文档
中
所有行首的脚注引用压缩到上一行。
在
WORD
中
用
VBA
实现光标移动与内容选择(转)
在
WORD
中
如何用
VBA
宏语言选定一行、一段,删除一行、一段,移动光标至行首、行尾、段首、段尾等。请看以下内容。Sub MoveToCurrent
Line
Start() 移动光标至当前行首
Selection
.
Home
Key
unit:=
wd
Line
End SubSub MoveToCurrent
Line
End() 移动光标至当前行尾
Selection
.E
word
vba
的一个BUG
如果
selection
是在一个table
中
,并且
word
对象的visible是false,那么
selection
.movedown不会起作用,有两个解决方案: 1.必须要select最后一行的最后一列,然后再movedown table.Cell(Table.Rows.Count, 5).Range.Select
Selection
.MoveDown
wd
Line
, 1 2.
vba
转换为vbs的方法_
vba
代码转换成vb代码
SubMacro5()''Macro5Macro'宏在2010/6/3由YlmF录制'ChangeFileOpenDirect
ory
"E:\毕设1\"
Selection
.InsertFileFileName:="1.doc",Range:="",ConfirmConversions:=_False,Link:=False,A...Sub Macro5()'' Macro5 Macro' 宏在 20...
Office开发/ VBA
5,174
社区成员
17,906
社区内容
发帖
与我相关
我的任务
Office开发/ VBA
其他开发语言 Office开发/ VBA
复制链接
扫一扫
分享
社区描述
其他开发语言 Office开发/ VBA
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章