- #1
E
Erich M.
Bekanntes Mitglied
Themenersteller
- Dabei seit
- 17.01.2005
- Beiträge
- 252
- Reaktionspunkte
- 0
- Ort
- Zusmarshausen (Augsburg)
Hallo,
erhalte beim öffnen eines WORD-Dokuments mit Makros folgenden Hinweis:
In den Makros ist unter ThisDocument: kein Eintrag
In den Modulen unter autoopen folgendes Makro:
Public Sub MAIN()
Rem DOT: WWEin (17.01.2001); Makro: Autoopen
System.Cursor = wdCursorWait
Application.ScreenUpdating = True
ActiveDocument.ActiveWindow.View.Type = wdPrintView
If ActiveDocument.ProtectionType = wdNoProtection Then
Selection.WholeStory
Selection.Fields.update
Selection.HomeKey Unit:=wdStory, Extend:=wdMove
Rem ändert die für die Vormerkung erforderlichen Einstellungen
ActiveDocument.ActiveWindow.View.ShowFieldCodes = False
ActiveDocument.Paragraphs.WidowControl = True
With Application.Options
.UpdateFieldsAtPrint = True
.PrintFieldCodes = False
.PrintHiddenText = False
.PrintDraft = False
End With
End If
System.Cursor = wdCursorNormal
'WordBasic.ScreenUpdating
End Sub
Bei einer weiteren Datei mit einem Makro funktioniert das makro; keine Fehlermeldung.
Besten Dank für eine Hilfe!
erhalte beim öffnen eines WORD-Dokuments mit Makros folgenden Hinweis:
In den Makros ist unter ThisDocument: kein Eintrag
In den Modulen unter autoopen folgendes Makro:
Public Sub MAIN()
Rem DOT: WWEin (17.01.2001); Makro: Autoopen
System.Cursor = wdCursorWait
Application.ScreenUpdating = True
ActiveDocument.ActiveWindow.View.Type = wdPrintView
If ActiveDocument.ProtectionType = wdNoProtection Then
Selection.WholeStory
Selection.Fields.update
Selection.HomeKey Unit:=wdStory, Extend:=wdMove
Rem ändert die für die Vormerkung erforderlichen Einstellungen
ActiveDocument.ActiveWindow.View.ShowFieldCodes = False
ActiveDocument.Paragraphs.WidowControl = True
With Application.Options
.UpdateFieldsAtPrint = True
.PrintFieldCodes = False
.PrintHiddenText = False
.PrintDraft = False
End With
End If
System.Cursor = wdCursorNormal
'WordBasic.ScreenUpdating
End Sub
Bei einer weiteren Datei mit einem Makro funktioniert das makro; keine Fehlermeldung.
Besten Dank für eine Hilfe!