Word-Dok bearbeiten per VBA

05/03/2009 - 17:06 von Kerstin Schiebel | Report spam
Hallo,

ich bearbeite in einer Access-Prozedur ein Word-Dokument und möchte
nun noch die Falzmarken hinzufügen.

Dim newTextbox As Word.Shape

Set newTextbox = objWDDoc.Shapes.AddTextbox _
(Orientation:=msoTextOrientationHorizontal, _
<
Left:=CentimetersToPoints(0.5), _
Top:=CentimetersToPoints(10.5), _
Width:=CentimetersToPoints(0.4), _
Height:=CentimetersToPoints(0.02))

objWDDoc ist dabei das aktuelle Dokument. Lasse ich das Makro direkt in Word
laufen,
funktioniert das prima, allerdings erhalte ich in Access den Fehler:
Variable nicht definiert. (dabei wird msoTextOrientationHorizontal markiert)

Fehlt da noch eine Bibliothek? Aber welche?
Weiß jemand, was ich tun sollte?

Vielen Dank und schöne Grüße
Kerstin
 

Lesen sie die antworten

#1 Gunter Avenius
05/03/2009 - 17:12 | Warnen spam
Hallo Kerstin,

Kerstin Schiebel schrieb folgendes:

ich bearbeite in einer Access-Prozedur ein Word-Dokument und möchte
nun noch die Falzmarken hinzufügen.

Dim newTextbox As Word.Shape

Set newTextbox = objWDDoc.Shapes.AddTextbox _
(Orientation:=msoTextOrientationHorizontal, _
<
Left:=CentimetersToPoints(0.5), _
Top:=CentimetersToPoints(10.5), _
Width:=CentimetersToPoints(0.4), _
Height:=CentimetersToPoints(0.02))

objWDDoc ist dabei das aktuelle Dokument. Lasse ich das Makro direkt in Word
laufen,
funktioniert das prima, allerdings erhalte ich in Access den Fehler:
Variable nicht definiert. (dabei wird msoTextOrientationHorizontal markiert)

Fehlt da noch eine Bibliothek? Aber welche?
Weiß jemand, was ich tun sollte?



Ich vermute Du arbeitest mit LateBinding.
Verwede anstatt der Varaibalen den Wert. Diesen erhàlst Du im
Direktfester des VBEs in Word:

? msoTextOrientationHorizontal
1

also:
Orientation:=1 .

Lese auch mal das Skipt von der AEK9: "Automation von Excel und Word"
von M. Zimmermann (http://www.donkarl.com/AEK/AEK_Downloads.htm)

Gruß
Gunter
__________________________________________________________
Access FAQ: http://www.donkarl.com
home: http://www.avenius.com - http://www.AccessRibbon.de
http://www.ribboncreator.de

Ähnliche fragen