Re: [算表] word vba文字方塊位置問題?

[ptguitar (佩蒂吉他)]

※ 引述《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
→ soyoso: 應是font.boreders物件上無linestyle、linewidth和color
→ soyoso: 屬性可使用
→ soyoso: 抱歉如要不出現物件不支援此屬性或方法的話，可將
→ soyoso: activedocument的部分刪除https://i.imgur.com/L9hqZDr
→ soyoso: 但就又會出linestyle、linewidth和color，找不到方法或資
→ soyoso: 料成員的錯誤訊息
→ soyoso: 可將selection.typtext移至with上方
→ soyoso: 加上selection.movestart，設定，選取密件
→ soyoso: with後面改為wdobj.selection.borders(1)
→ ptguitar: 感謝S大 我晚點來研究看看
 我寫這樣 會跟我說參數無效.....

  .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
→ soyoso: 執行到那一列出現參數無效？
檔案

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
→ soyoso: wdCharacter改1
→ ptguitar: 變成.LineStyle = Options.DefaultBorderLineStyle
→ ptguitar: 這段要物件...
→ soyoso: linestyle到color等號後面的參數，類似wdcharacter改一下
→ ptguitar: 後面.linestyle=1就可了 感謝 s大!