这个很简单
ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count-1).Range.Start,End:=ActiveDocument.Paragraphs(paragraphcount).Range.End).select
这句代码的意思就是选定最后两段
首先你要保证你的文档不低于两段
WORD VBA: 查找字符并选择整个格子
这个应该完全满足要求了吧。
SubTEST()DimMyTableAsTable,MyRngAsCell
ForEachMyTableInThisDocument.Tables
ForEachMyRngInMyTable.Range.Cells
WithMyRng.Range.Find
.Text="RRDD-ST"
.Execute
If.FoundThen
MyRng.Range.Style=ActiveDocument.Styles("引用")
EndIf
EndWith
NextMyRng
NextMyTable
EndSub
来自:求助得到的回答word vba 如何选择区域
对于VBA来说,没有选取word中不连续的几段文本的方法,因为这个问题可以分解为选取第一部分进行操作然后再选取第二部分进行操作,如此类推。通过循环可以很容易实现。
因此也就没有必要多选后操作了。
WORD VBA: 查找字符并选择整个格子
如图,找到rrdd-st的表格,字体都改成宋体
Subtest()DimmyTableAsTable
ForEachmyTableInThisDocument.Tables
WithmyTable.Range.Find
.Text="RRDD-ST"
.Execute
If.Found=TrueThen
myTable.Range.Font.Name="宋体"
EndIf
EndWith
NextmyTable
EndSub
更多谢谢。回答已经很接近了。但我想补充的是,每个格子不只有RRDD-ST,是以RRDD-ST开始的一串字。我想把格子里面的所有的字母都改成宋体。应该怎么办?
只要你使用查找功能,可以找到RRDD-ST,那么这个宏代码也能找到RRDD-ST所在的表格。你试试嘛。
不好意思,我试成功了,但整个表格都改成隶书了,我想只把这个格子里的文字改成隶书,应该怎么办?谢谢!
明白你的意思了。周末不上网。
Subtest()DimmyTableAsTable
ForEachmyTableInThisDocument.Tables
WithmyTable.Range.Find
.Text="RRDD-ST"
.Execute
If.Found=TrueThen
.Parent.Cells(1).Range.Font.Name="隶书"
EndIf
EndWith
NextmyTable
EndSub
在Word的VBA中怎么判断当前行是否是空行?
Selection.HomeKey unit:=wdLine, Extend:=wdMove
If Selection.EndOf(unit:=wdLine, Extend:=wdMove) = 0 Then MsgBox ("本行为空行.")
▲如果空行的定义可以包含全角或半角空格的组合也算空行" "" "。,那该如何修改。
▲我还有一个word vba问题请您帮忙
http://zhidao.baidu.com/question/539649933.html
在Word的VBA中根绝有无选择区做出不同反应 Ctrl+C或输入ang
Selection.HomeKey unit:=wdLine, Extend:=wdMove
Selection.EndOf unit:=wdLine, Extend:=wdExtend
If Asc(Trim(Selection))>=11 And Asc(Trim(Selection))<=14 Then MsgBox ("本行为空行.")
其中ASC码11~14分别对应:软回车、分页符、硬回车、分栏符,共四种隐藏的格式符号。如果还有其他不可见格式符号,请自行添加。
在word中使用VBA区分标题和正文
获取标题与正文使用style。试验一下如下代码。
SubTest()DimiAsSingle
Fori=1ToActiveDocument.BuiltInDocumentProperties(wdPropertyLines).Value
WithSelection
.GoToWhat:=wdGoToLine,Which:=wdGoToAbsolute,Count:=i
.HomeKeyUnit:=wdLine
.EndKeyUnit:=wdLine,Extend:=wdExtend
EndWith
IfSelection.Style="正文"Then
MsgBoxi&"行是正文"
EndIf
IfSelection.Style="标题1"Then
MsgBoxi&"行是标题1"
EndIf
Next
EndSub
更多您能解释一下with里面的那段代码吗?
按行选择文本,循环数i即为行标。
请问方便留个联系方式吗?还有些问题想向您请教
转载请注明出处51数据库 » wordvba选择行 wordvba中怎样选择文尾两行