Hallo,
mein komplettes Projekt läuft bisher mit Option Strict ON.
Mit meinem letzten Code fülle ich Textmarken in einer Word.dot, wobei ich für Bilder die Datenbank-ID und die Anzahl der Zeilen benötige.
Ich starte in Word von VB aus ein Makro, das auf die beiden Zahlen zugreift. Diese stehe je in einer geschlossenen Textmarke, die beim normalen Füllen weg ist. Ich brauche sie aber für das Makro! Deshalb müssen beide mit dem Inhalt wieder da sein.
So weit, so gut. Aber hier bringt mir Strict On den Fehler: "System Strict On disallows...
Mit Strict Off läuft das Programm und macht, was es soll. Ich will aber Strict On wieder einschalten und habe schon alles gegoogelt, wurde aber nicht schlauer.
In der Zeile 9 und 17 ist der Fehler bei TMRange von Range:=TMRange
Hier mal der Code:
Grüße
EliotM
mein komplettes Projekt läuft bisher mit Option Strict ON.
Mit meinem letzten Code fülle ich Textmarken in einer Word.dot, wobei ich für Bilder die Datenbank-ID und die Anzahl der Zeilen benötige.
Ich starte in Word von VB aus ein Makro, das auf die beiden Zahlen zugreift. Diese stehe je in einer geschlossenen Textmarke, die beim normalen Füllen weg ist. Ich brauche sie aber für das Makro! Deshalb müssen beide mit dem Inhalt wieder da sein.
So weit, so gut. Aber hier bringt mir Strict On den Fehler: "System Strict On disallows...
Mit Strict Off läuft das Programm und macht, was es soll. Ich will aber Strict On wieder einschalten und habe schon alles gegoogelt, wurde aber nicht schlauer.
In der Zeile 9 und 17 ist der Fehler bei TMRange von Range:=TMRange
Hier mal der Code:
Visual Basic-Quellcode
- If tsmDruckBild.Checked Then
- blnSichtbar = False
- RezMessenL() 'Anzahl Zeilen feststellen
- Dim TMRange As Word.Range
- If WordApp.ActiveDocument.Bookmarks.Exists("Tm_Zeilen") Then
- With WordApp.ActiveDocument
- TMRange = .Bookmarks.Item("Tm_Zeilen").Range
- TMRange.Text = txtZeilAnz.Text 'Anzahl Zeilen
- .Bookmarks.Add(Name:="Tm_Zeilen", Range:=TMRange)
- 'TMRange = Nothing
- End With
- End If
- If WordApp.ActiveDocument.Bookmarks.Exists("Tm_Bild") Then
- With WordApp.ActiveDocument
- TMRange = .Bookmarks.Item("Tm_Bild").Range
- TMRange.Text = txtID.Text 'DB-ID-Nr
- .Bookmarks.Add(Name:="Tm_Bild", Range:=TMRange)
- 'TMRange = Nothing
- End With
- End If
- WordDoc.Application.ActiveDocument.RunAutoMacro(Word.WdAutoMacros.wdAutoNew) 'Start Word-Makro: Bilder
- tsmDruckBild.Checked = False
- End If
Grüße
EliotM