作者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/m.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