Textfeld erstellen mit VBA oder Makro

05/03/2008 - 14:11 von Alexander | Report spam
Hallo alle miteinander,

ich würde gern mittels eines Makros oder auch VBA ein Textfeld an eine
bestimmte Position im Dokument zeichnen und das Ding dann noch mit Text
füllen. Aber wie? Ich habe Word 2003.

Für Vorschlàge bin ich sehr dankbar.

MfG

Alexander
 

Lesen sie die antworten

#1 Helmut Weber
05/03/2008 - 14:34 | Warnen spam
Hallo Alexander,

Sub Makro2()
Selection.GoTo what:=wdGoToPage, _
which:=wdGoToAbsolute, _
Count:
' Auf Seite 10 einfügen

Dim oShp As Shape
Dim xLeft As Single
Dim xTop As Single
Dim xWidth As Single
Dim xHeight As Single
xLeft = 100
xTop = 100
xWidth = 100
xHeight = 100
With ActiveDocument.Shapes
Set oShp = .AddTextbox(msoTextOrientationHorizontal, _
xLeft, xTop, xWidth, xHeight)
End With
oShp.TextFrame.TextRange = "xxxxxxxxxxxxxxxxx"
End Sub

Gruss
Helmut Weber, MVP WordVBA
Word 2002, Windows 2000 (german versions)

Ähnliche fragen