作者ptguitar (佩蒂吉他)
看板Office
标题Re: [算表] word vba文字方块位置问题?
时间Sun Apr 16 11:42:20 2017
※ 引述《ptguitar (佩蒂吉他)》之铭言：
: ※ 引述《ptguitar (佩蒂吉他)》之铭言：
: : 软体:excel,word
: : 版本:2007以上
: : 我想在excel内写入word
如果加入文字框内
我若采用这样写
不知道该怎麽让跳出文字方框後又回到最後一页的最後一段？
Set box =
WdObj.ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal,
Left:=50, Top:=40, Width:=85, Height:=60)
box.Name = "密件"
'文字方块内容设定
With box
With .TextFrame.TextRange
.Text = "密件"
With .Font
.Name = "标楷体"
.Size = 26
.Bold = msoTrue
End With ' Font
End With ' TextRange
End With 'box
'移动位置并且文字内容置中
.ActiveDocument.Shapes("密件").Select
.Selection.ShapeRange.IncrementLeft 418
.Selection.ShapeRange.IncrementTop -20
.Selection.ShapeRange.TextFrame.VerticalAnchor = msoAnchorMiddle
.Selection.ParagraphFormat.Alignment = 1
下面这段设定後还是会在密件的文字方块内 不会跳到最後一页...
.Selection.Collapse
.Selection.EscapeKey
.Selection.GoTo What:=wdGoToPage, Which:=wdGoToend
档案：
https://drive.google.com/open?id=0BwCgrQhGgaw7bEhubnZVcEZCUjA
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 223.137.115.198
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1492314143.A.B1E.html
※ 编辑: ptguitar (223.137.115.198), 04/16/2017 11:44:15
1F：→ soyoso: 以selection.endkey试试 04/16 12:02
我下面改这样还是不行 @@
.Selection.Collapse
.Selection.EndKey Unit:=wdStory, Extend:=wdMove
※ 编辑: ptguitar (223.137.115.198), 04/16/2017 14:35:13
我照上面那样做是会出现参数错误
不过若是看下面这文章
https://msdn.microsoft.com/en-us/library/bb214015(v=office.12).aspx
wdStory 改成 6 又可以了
不知道会不会是2007版的问题了XD
※ 编辑: ptguitar (223.137.115.198), 04/16/2017 21:52:26
3F：→ soyoso: 这并非版本的问题，而是引用项目 04/16 21:55
4F：→ soyoso: 因原po回文是打"改这样还是不行"而非提出会出现错误讯息 04/16 21:56
5F：→ soyoso: 所以才会录制以该selection.endkey是可跳到最後一页 04/16 21:57
6F：→ ptguitar: 感谢S大^^ 04/16 22:11