作者ptguitar (佩蒂吉他)
看板Office
标题Re: [算表] word vba文字方块位置问题?
时间Fri Apr 14 15:01:03 2017
※ 引述《ptguitar (佩蒂吉他)》之铭言：
: 软体:excel,word
: 版本:2007以上
: 我想在excel内写入word
後来加入文字框方式不好调整位置
改用文字加入外框方式
不过不知道是哪边思考错误
一直出现没有物件错误讯息
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 = 36
.Selection.Font.Bold = True
.Selection.Font.Name = "标楷体"
.Selection.ParagraphFormat.Alignment = 2
With WdObj.ActiveDocument.Selection.Font.Borders
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
.Selection.TypeText Text:="密件"
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 60.250.67.77
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1492153266.A.944.html
1F：→ soyoso: 应是font.boreders物件上无linestyle、linewidth和color 04/14 15:35
2F：→ soyoso: 属性可使用 04/14 15:36
3F：→ soyoso: 抱歉如要不出现物件不支援此属性或方法的话，可将 04/14 15:58
5F：→ soyoso: 但就又会出linestyle、linewidth和color，找不到方法或资 04/14 16:00
6F：→ soyoso: 料成员的错误讯息 04/14 16:00
7F：→ soyoso: 可将selection.typtext移至with上方 04/14 16:28
8F：→ soyoso: 加上selection.movestart，设定，选取密件 04/14 16:29
9F：→ soyoso: with後面改为wdobj.selection.borders(1) 04/14 16:30
10F：→ ptguitar: 感谢S大 我晚点来研究看看 04/14 19:28
我写这样 会跟我说参数无效.....
.Selection.TypeText Text:="密件"
.Selection.Movestart Unit:=wdCharacter, Count:=2
With WdObj.Selection.Borders(1)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
※ 编辑: ptguitar (223.137.115.198), 04/14/2017 20:12:13
11F：→ soyoso: 执行到那一列出现参数无效？ 04/14 20:19
档案
https://drive.google.com/open?id=0BwCgrQhGgaw7RExDajUyWTdEc0E
我改成count:=-2
.Selection.Movestart Unit:=wdCharacter, Count:=-2 这段
直接用word里面贴上巨集可以成功
可以上面档案从excel就不行
※ 编辑: ptguitar (223.137.115.198), 04/14/2017 20:26:10
12F：→ soyoso: wdCharacter改1 04/14 20:34
13F：→ ptguitar: 变成.LineStyle = Options.DefaultBorderLineStyle 04/14 20:59
14F：→ ptguitar: 这段要物件... 04/14 20:59
15F：→ soyoso: linestyle到color等号後面的参数，类似wdcharacter改一下 04/14 21:10
16F：→ ptguitar: 後面.linestyle=1就可了 感谢 s大! 04/14 21:47