[vb] in word een textbox tekenen.

[Verwijderd]

Ik heb een script geschreven welke automatisch word opent en hierin gegevens uit de database zet, en vervolgens dit uitprint. Nu wil ik ook graag dat er naast text ook een textbox in het document komt te staan, met een zwarte rand hieromheen. Ik heb zowel internet als dit forum gezocht, maar zonder resultaat. Is dit mogelijk (lijkt me wel ), en zo ja, weet iemand hoe, of heeft iemand een link voor me met alle vb word instructies.

[Kappie]

textbox ziet hij als een shape. Kijk eens bij de help van shape voor meer info.

Als bonus geef ik je een klein stukje code om een textbox shape aan te maken in word:

code:

Sub InsertTextBox()
  ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 43.1, 14.15, 252.55, 64).Select ' Add textbox and select it
  ' Add line
  Selection.ShapeRange.Line.Visible = msoTrue
  ' set postition
  Selection.ShapeRange.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
  Selection.ShapeRange.RelativeVerticalPosition = wdRelativeVerticalPositionPage
  'set achor
  Selection.ShapeRange.LockAnchor = True
  ' set margins
  Selection.ShapeRange.TextFrame.MarginLeft = 0
  Selection.ShapeRange.TextFrame.MarginTop = 0
  Selection.ShapeRange.TextFrame.MarginBottom = 0
  Selection.ShapeRange.TextFrame.MarginRight = 0
End Sub