Thema Datum  Von Nutzer Rating
Antwort
19.03.2019 12:47:06 VBA_Noob1
NotSolved
Blau Fehler in VBA-Projekt für Word
 19.03.2019 12:50:40 Gast66790
NotSolved

Ansicht des Beitrags:
Von:
Gast66790		 Datum:
19.03.2019 12:50:40		 Views:
576		 Rating:
     
Antwort:
  Ja
Thema:
Fehler in VBA-Projekt für Word
?
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
Sub AutoOpen()
    Dim dname As String
    dname = ActiveDocument.Name
If dname = "DTS2.0_MASTER.dotm" Then
    UserForm2.Show
Else
    UserForm3.Show
End If
End Sub
 
 
...
 
 
Private Sub CommandButton1_Click()
    UserForm2.Hide
    UserForm1.Show
End Sub
 
Private Sub CommandButton2_Click()
    UserForm2.Hide
    MsgBox "Das Dokument wird geschlossen."
    ActiveDocument.Close
End Sub
 
 
...
 
 
Sub Neues_Projekt()
 
' -----------------------------------------------------------------
  
'   Abfrage, zur Erfassung des Typen (Variable Type_No)
 
Type_No = InputBox("Bitte geben Sie den Produkt-Typ im folgenden Format ein: XXXX!", "Bitte Produkt-Typ eingeben")
If Type_No = "" Then
    MsgBox "Vorgang abgebrochen! Das aktive Dokument wird geschlossen."
    ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges   '     CloseAllDocuments
    Exit Sub
End If
 
'   Abfrage, zur Erfassung des Typen (Variable Type_Name)
 
If MsgBox("Handelt es sich bei Ihrem Produkt-Typ um eine Standard-Variante? (bzw. NICHT um eine Sondervariante (Clamp / ATEX / ...)?", vbYesNo) = vbNo Then
    Type_Name = InputBox("Bitte geben Sie die Produkt-Variante im folgenden Format ein: Tube_Valve_Body / Weld / ATEX / ...!", "Bitte Produkt-Variante eingeben")
    If Type_Name = "" Then
        MsgBox "Vorgang abgebrochen! Das aktive Dokument wird geschlossen."
        ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges   '     CloseAllDocuments
        Exit Sub
    End If
Else
    Type_Name = "Standard"
 
End If
 
'   Projekt-Verzeichnis vorhanden? Ja = Ok!, Nein = Ordner erstellen
 
Dim Datum As String
Dim Path As String
Dim Path1 As String
Dim Path2 As String
Dim Path3 As String
Dim Path4 As String
 
 
Datum = Format(Date, "yyyymmdd")
Path = "\\BURKERT\Marketing\DataSheetReview\1_PROJEKTE\" + Type_No + "_" + Type_Name
Path1 = Path + "\1_LATEST_VERSION_WORD"
Path2 = Path + "\2_LATEST_VERSION_PDF"
Path3 = Path + "\3_FILES"
Path4 = Path + "\4_PREV_VERSIONS_WORD"
 
If Dir(Path, vbDirectory) = "" Then
  MkDir (Path)
  MkDir (Path1)
  MkDir (Path2)
  MkDir (Path3)
  MkDir (Path4)
  MsgBox "Ein Projekt-Ordner f¸r das gew¸nschte Projekt wurde automatisch angelegt!"
'   Nein...
Else
  MsgBox "Ein entsprechender Projekt-Ordner ist bereits vorhanden! Bitte pr¸fen Sie eventuelle Dubletten oder w‰hlen Sie einen anderen Namen!"
 
  MsgBox "Vorgang abgebrochen! Das aktive Dokument wird geschlossen."
  ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges   '     CloseAllDocuments
  Exit Sub
 
End If
 
 
'   Abfrage, zur Erfassung des Editors (Variable Editor_name)
 
Dim Editor_name As String
 
Editor_name = InputBox("Bitte geben Sie Ihren Namen im folgenden Format ein: NameVorname!", "Bitte Ihren Namen eingeben")
If Editor_name = "" Then
    MsgBox "Vorgang abgebrochen! Das aktive Dokument wird geschlossen."
    ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges   '     CloseAllDocuments
    Exit Sub
End If
      
'   Definition Benennung Review-Datei "FILENAME_yyyymmdd_MusterMax.docm"
 
Dim DocName As String
DocName = "DS" & Type_No & "_" & Type_Name & "_" & "ENTWURF" & "_" & Format(Date, "yyyymmdd") & "_" & Editor_name & ".docm"
DocName2 = Path1 + "\" + DocName
 
Dim strPfad As String
strPfad = Options.DefaultFilePath(wdDocumentsPath)
Options.DefaultFilePath(wdDocumentsPath) = Path1
 
With Dialogs(wdDialogFileSaveAs)
   .Name = DocName2
   .Format = Word.WdSaveFormat.wdFormatXMLDocumentMacroEnabled
   .Show
End With
 
'14.03.2019: Deaktiviere ƒnderungsmodus
'ActiveDocument.TrackRevisions = True
'ActiveDocument.ShowRevisions = True
ActiveDocument.Save
MsgBox "Sie kˆnnen nun mit der Bearbeitung des Dokuments beginnen. Editieren Sie das Dokument wie gew¸nscht." & vbNewLine & "Die Datei wurde automatisch im Unterordner 1_LATEST_VERSION_WORD des Projektordners abgelegt." & vbNewLine & "Bitte legen Sie Bild-Dateien etc. im Unterordner 3_FILES ab."
 
'ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges   '     CloseAllDocuments
'ActiveDocument.Close SaveChanges:=wdSaveChanges
 
End Sub

 

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
19.03.2019 12:47:06 VBA_Noob1
NotSolved
Blau Fehler in VBA-Projekt für Word
 19.03.2019 12:50:40 Gast66790
NotSolved