作者ptguitar (佩蒂吉他)
看板Office
标题[算表] word vba文字方块位置问题?
时间Thu Apr 13 16:58:36 2017
软体:excel,word
版本:2007以上
我想在excel内写入word
现在想要在word新增一个textbox
里面还要输入文字
现在问题是
我要怎麽指定这个textbox是出现在第一页的最上端的右边
(这vba会产生很多页 目前这样写都会跑到最後一页)
然後里面要有文字 【密件】
不知道这怎麽设定
翻了好多网路说明都没有很清楚...
以下为片段巨集
With WdObj
.Visible = False '执行时候不要看见word
.Documents.Add '增加一个新的word档案'
.ActiveDocument.PageSetup.TopMargin = 71 '上边界
.ActiveDocument.PageSetup.BottomMargin = 71 '下边界
.ActiveDocument.PageSetup.LeftMargin = 71 '左边界
.ActiveDocument.PageSetup.RightMargin = 71 '右边界
.Selection.Font.Size = 18
.Selection.Font.Bold = True
.Selection.Font.Name = "标楷体"
.ActiveDocument.Shapes.AddTextbox _
Orientation:=msoTextOrientationHorizontal, _
Left:=50, Top:=50, Width:=70, Height:=50
.Selection.TypeParagraph
.Selection.TypeParagraph
.Selection.TypeParagraph
.Selection.TypeParagraph
.Selection.ParagraphFormat.Alignment = 1
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 60.250.67.77
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1492073918.A.ADC.html
※ 编辑: ptguitar (60.250.67.77), 04/13/2017 16:59:24
1F:→ soyoso: 可以selection.goto的方式回到第1页,再新增该textbox 04/13 17:37
2F:→ soyoso: 置入文字则以shapes.textframe.textrange.text 04/13 17:39
谢谢S大
不过如果照我上面的写法
我不知道要怎麽加入shapes.textframe.textrange.txt
是用指定textbox(1)?
但我试不出来该怎麽写进去
3F:→ soyoso: 回到第1页另有selection.homekey 04/13 17:43
※ 编辑: ptguitar (60.250.67.77), 04/14/2017 11:56:21
4F:→ soyoso: set一个变数类型为shape的变数指定到addtextbox 04/14 13:54