microsoft.public.word.vba.general
back to index
Group: microsoft.public.word.vba.general
From: =?Utf-8?B?SGVsbXV0IFdlYmVy?=
Date: Wednesday, March 26, 2008 4:10 AM
Subject: RE: Position in Text
From: =?Utf-8?B?SGVsbXV0IFdlYmVy?=
Date: Wednesday, March 26, 2008 4:10 AM
Subject: RE: Position in Text
Hi Jokobe,
like that:
Sub Makro1()
Dim x As Single
Dim y As Single
x = Selection.Information(wdHorizontalPositionRelativeToPage)
y = Selection.Information(wdVerticalPositionRelativeToPage)
ActiveDocument.Shapes.AddTextbox( _
msoTextOrientationHorizontal, x, y, _
100, 100).Select
End Sub
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
Windows XP, Office 200
