Thema Datum  Von Nutzer Rating
Antwort
17.05.2019 15:16:55 Kerstin
NotSolved
17.05.2019 15:28:25 Kerstin
NotSolved
17.05.2019 18:31:09 Gast40546
NotSolved
17.05.2019 18:40:44 Kerstin
NotSolved
Rot Speichern unter Dateityp ohne Makro, doch Formular soll weiterhin ausgeführt werden
 18.05.2019 08:35:59 Gast40546
Solved

Ansicht des Beitrags:
Von:
Gast40546		 Datum:
18.05.2019 08:35:59		 Views:
454		 Rating:
     
Antwort:
 Nein
Thema:
Speichern unter Dateityp ohne Makro, doch Formular soll weiterhin ausgeführt werden		 
Private Sub CommandButton3_Click()
Dim strFilePath As String
Dim oFd As FileDialog
Dim sIt As String

    If Documents.Count > 1 Then
      Call MsgBox("Schließen sie alle Word Dokumente" & vbLf & _
      "mit Ausnahme der" & vbLf & ThisDocument.Name, vbExclamation, "Hinweis")
      Exit Sub
   End If
   
   Set oFd = Application.FileDialog(msoFileDialogFolderPicker)
   With oFd
      .Title = "Wähle Ordner zu " & Me.VornameNachname.Value & " - Karne"
      .AllowMultiSelect = False
      .InitialFileName = Documents(1).Path   '************** (2)
      If .Show <> -1 Then Exit Sub
      strFilePath = .SelectedItems(1) & "\" & Me.VornameNachname.Value & " - Karne"
   End With
   
   With Documents(1)
      Application.DisplayAlerts = False
      .Save
      Application.Documents.Add .FullName
      With Documents(1)
         .SaveAs2 FileName:=strFilePath, FileFormat:=wdFormatXMLDocument
         .Close
      End With
      Application.DisplayAlerts = True
   End With
   
   Set oFd = Nothing
   Unload Me

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:



  • 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
17.05.2019 15:16:55 Kerstin
NotSolved
17.05.2019 15:28:25 Kerstin
NotSolved
17.05.2019 18:31:09 Gast40546
NotSolved
17.05.2019 18:40:44 Kerstin
NotSolved
Rot Speichern unter Dateityp ohne Makro, doch Formular soll weiterhin ausgeführt werden
 18.05.2019 08:35:59 Gast40546
Solved