• Home
 · 
• OLE/COM/DCOM/Active-X
 · 
• This code creates a sticker(from VB) on a word document using COM

This code creates a sticker(from VB) on a word document using COM

This code creates a "sticker"(from VB) on a word document using COM

API Declarations


dim Box as Word.Shape
'don't forget to reffer word object Library :)
'[email protected]



Rate This code creates a sticker(from VB) on a word document using COM

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

 Set WordApp = GetObject(, "Word.Application")
       
    
    Set Box = WordApp.ActiveDocument.Shapes.AddShape(1, 10, 10, 100, 100)
    Box.TextFrame.TextRange.Text = "what a beautiful document"
    Box.Fill.BackColor = 16777215
    Box.Fill.ForeColor = 10092543
    Box.Fill.Transparency = 0.5
End Sub