Thema Datum  Von Nutzer Rating
Antwort
Rot Save Makro - Name aus Kontrollelemente - schliessen
 20.10.2020 10:41:29 Jimmy
Solved
20.10.2020 11:18:21 Gast73405
Solved
20.10.2020 11:35:34 Gast74329
Solved
20.10.2020 12:50:41 Gast10307
Solved
20.10.2020 13:06:31 Jimmy
Solved
20.10.2020 14:53:32 Gast10307+Gast73405
NotSolved

Ansicht des Beitrags:
Von:
Jimmy		 Datum:
20.10.2020 10:41:29		 Views:
867		 Rating:
     
Antwort:
 Nein
Thema:
Save Makro - Name aus Kontrollelemente - schliessen

Hallo Zusammen,

ich habe einen Button in meinem Word Doc mit folgendem Makro welches 1. Das Dokument als ein neues in einem eingegebenen Ordner abspeichern soll und zwar soll der Name aus 4 Kontrollelementen ausgefüllt werden. 2. Dokuemnt ohne speichern schliessen.

2. funktioniert aber 1. leider nicht. Könnt ihr mal prüfen was an meinem Code falsch ist?

___Code:____

Private Sub Speichern_Click()

'ContentControls initialize as Strings

Dim dateiname As String, CC1 As String, CC2 As String, CC3 As String, CC4 As String
 
 CC1 = ActiveDocument.SelectContentControlsByTag("CC1").Item(1).Range.Text
 CC2 = ActiveDocument.SelectContentControlsByTag("CC2").Item(1).Range.Text
 CC3 = ActiveDocument.SelectContentControlsByTag("CC3").Item(1).Range.Text
 CC4 = ActiveDocument.SelectContentControlsByTag("CC4").Item(1).Range.Text
 
'Contentcontrols initialize as dateiname
  dateiname = CC1 & "_" & CC2 & "_" & CC3 & "_" & CC4
    
'Save in a specific folder

    With Dialogs(wdDialogFileSaveAs)
        .Name = "C:\Users\schmidim\Desktop\Test Makro\2020\" & dateiname
    End With

'Close open Document and don't Save
 Application.Quit wdDoNotSaveChanges
       
End Sub

__________

die Kontrollelemente im Dokument habe ich die Tags gem. Code (CC1, CC2 etc.) angepasst. Leider schliesst das Dokument nur wenn ich das Makro ausführe.

 

Danke!

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
Rot Save Makro - Name aus Kontrollelemente - schliessen
 20.10.2020 10:41:29 Jimmy
Solved
20.10.2020 11:18:21 Gast73405
Solved
20.10.2020 11:35:34 Gast74329
Solved
20.10.2020 12:50:41 Gast10307
Solved
20.10.2020 13:06:31 Jimmy
Solved
20.10.2020 14:53:32 Gast10307+Gast73405
NotSolved