With WordObject1.Selection
.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, _
Placement:=wdInLine, DisplayAsIcon:=False
With Selection.ShapeRange
.ScaleWidth 1.5, msoFalse
.ScaleHeight 1.5, msoFalse
.IncrementLeft 50
.IncrementTop 50
End With
end with
why?到了mosfalse時卻說未宣告???這不是vb之word的元件內容文法嗎???元件有載入阿???
Public WordObject1 As Word.Application
Set WordObject1 = GetObject("", "Word.Application")
ㄎ這些都沒問題唯獨"mosfalse"
.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, _
Placement:=wdInLine, DisplayAsIcon:=False
With Selection.ShapeRange
.ScaleWidth 1.5, msoFalse
.ScaleHeight 1.5, msoFalse
.IncrementLeft 50
.IncrementTop 50
End With
end with
why?到了mosfalse時卻說未宣告???這不是vb之word的元件內容文法嗎???元件有載入阿???
Public WordObject1 As Word.Application
Set WordObject1 = GetObject("", "Word.Application")
ㄎ這些都沒問題唯獨"mosfalse"
全站熱搜
留言列表