Thema Datum  Von Nutzer Rating
Antwort
Rot SaveAs speichert nicht immer (Word 2000, VBA, Makro)
 03.02.2011 12:13:26 John
NotSolved
03.02.2011 15:53:12 Severus
NotSolved
04.02.2011 07:36:50 JohnP
NotSolved
04.02.2011 09:34:45 Severus
NotSolved
04.02.2011 09:47:50 John
NotSolved
04.02.2011 10:48:33 Severus
Solved

Ansicht des Beitrags:
Von:
John		 Datum:
03.02.2011 12:13:26		 Views:
2376		 Rating:
     
Antwort:
  Ja
Thema:
SaveAs speichert nicht immer (Word 2000, VBA, Makro)

Hallo.

Beschreibung des Problems:

Ich habe eine Word2000-Vorlage mit einigen Makros...

  1. Vorlage liegt am Server.
  2. Word-Dokument wird am Client geöffnet und es wird ein Text geschrieben.
  3. Über Schaltfläche "Speichern" wird ein VBA-Funktion aufgerufen, die dann das Dokument unter einem vorgegebenen Namen speichert.
  4. Außerdem gibt es noch eine "Drucken"-Schaltfläche, über die das Dokument zuerst gespeichert (in Datenbank und als Word-Dokument) wird und dann ausgedruckt.
  5. PROBLEM: Das Speichern funktioniert nicht immer. Dokument wird geschloßen, aber es wird nicht gespeichert.

Wer kann mir helfen?

Drucken (Code):

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub PrintSimple()
 
 
On Error GoTo PrintSimpleErr:
 
If b_Object Is Nothing Then                 'kein Object vorhanden
   MsgBox "Fehler beim Drucken des Dokumentes !" & vbCrLf & _
         "Der Server ist derzeit nicht verfügbar !" & vbCrLf & _
         "Versuchen Sie es später !", vbCritical
   Exit Sub
   End If
 
ActionSave
         
 ActiveDocument.PageSetup.FirstPageTray = 266
 ActiveDocument.PageSetup.OtherPagesTray = 266
    
 Application.PrintOut filename:="", Range:=wdPrintAllDocument, Item:= _
 wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
 Collate:=True, Background:=True, PrintToFile:=False
    
 ActiveDocument.Saved = True
    
Exit Sub
   
PrintSimpleErr:
 
  MsgBox Err.Number & " " & Err.Description & vbCrLf & "Fehler beim Drucken des Dokumentes !" & vbCrLf & _
         "Der Server ist derzeit nicht verfügbar !" & vbCrLf & _
         "Versuchen Sie es später !", vbCritical
 
End Sub

 

Speichern (Code):

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub ActionSave()
Dim Text As String
 
On Error GoTo Error:
 
Text = ActiveDocument.Content.Text
 
If Len(Text) < 5 Then
   If MsgBox("Achtung ! Dokument hat keinen Inhalt !" & vbCrLf & _
             "Wollen Sie wirklich speichern ?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
End If
 
b_Object.Text = b_Object.TextT(Text)
'b_Object.TextTWord (ActiveDocument.Path & "\" & ActiveDocument.Name)  'in Wordformat abspeichern
 
ActiveDocument.Saved = False
ActiveDocument.SaveAs ActiveDocument.Path & "\" & ActiveDocument.Name
 
b_Object.Tagesliste.sys_Reload
b_Object.sys_Save (0)                                           'Shallow Save
 
 
'Backup Save
'----------------------------------------------------------------------------------------------------
On Error Resume Next
If BefundBackupPath <> "" Then ActiveDocument.SaveAs filename:=BackupPath & ActiveDocument.Name
'----------------------------------------------------------------------------------------------------
 
On Error GoTo Error:
 
If Text = "" Then
   MsgBox "Fehler beim Speichern !", vbOKCancel + vbCritical
   Exit Sub
End If
 
ActiveDocument.Saved = True
Application.RecentFiles.Maximum = 0
 
Exit Sub
 
Error:
  
 MsgBox "Fehler beim Speichern !", vbOKCancel + vbCritical
 
 
End Sub

 

Danke für die Hilfe im Vorraus!

John

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot SaveAs speichert nicht immer (Word 2000, VBA, Makro)
 03.02.2011 12:13:26 John
NotSolved
03.02.2011 15:53:12 Severus
NotSolved
04.02.2011 07:36:50 JohnP
NotSolved
04.02.2011 09:34:45 Severus
NotSolved
04.02.2011 09:47:50 John
NotSolved
04.02.2011 10:48:33 Severus
Solved