Re: [算表] word vba文字方塊位置問題?
※ 引述《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://www.ptt.cc/bbs/Office/M.1492153266.A.944.html
→
04/14 15:35, , 1F
04/14 15:35, 1F
→
04/14 15:36, , 2F
04/14 15:36, 2F
→
04/14 15:58, , 3F
04/14 15:58, 3F
→
04/14 15:59, , 4F
04/14 15:59, 4F
→
04/14 16:00, , 5F
04/14 16:00, 5F
→
04/14 16:00, , 6F
04/14 16:00, 6F
→
04/14 16:28, , 7F
04/14 16:28, 7F
→
04/14 16:29, , 8F
04/14 16:29, 8F
→
04/14 16:30, , 9F
04/14 16:30, 9F
→
04/14 19:28, , 10F
04/14 19:28, 10F
我寫這樣 會跟我說參數無效.....
.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
→
04/14 20:19, , 11F
04/14 20:19, 11F
檔案
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
→
04/14 20:34, , 12F
04/14 20:34, 12F
→
04/14 20:59, , 13F
04/14 20:59, 13F
→
04/14 20:59, , 14F
04/14 20:59, 14F
→
04/14 21:10, , 15F
04/14 21:10, 15F
→
04/14 21:47, , 16F
04/14 21:47, 16F
討論串 (同標題文章)
Office 近期熱門文章
PTT數位生活區 即時熱門文章
