Speichern unter Dialogfeld

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

From: Karl Baumann (Karl-Baumann_at_discussions.microsoft.com)
Date: 03/07/05

  • Next message: Marita Betz: "Re: Wie mehrere Tabellenzeilen von Excel in Word Serienbrief einfügen" 
    Date: Mon, 7 Mar 2005 08:49:01 -0800

    Sehr geehrte Damen und Herren,

    Ich bin VBA-Neuling habe in Word folgenden Code geschrieben.
    Diese sollen eine Datei speichern und den Formularschutz vergeben.

    Option Explicit

    Sub FileSaveAs()
        Dim strDocName As String
        Dim intPos As Integer
        
        'Find position of extension in Filename
        strDocName = ActiveDocument.Name
        intPos = InStrRev(strDocName, ".")
        
        If intPos = 0 Then
        'If the document has not yet been saved
        'Ask the user to provide a filename
        strDocName = InputBox("Please enter the name " & _
            "of your document.")
        End If
        If ActiveDocument.ProtectionType = wdNoProtection Then
            ActiveDocument.Protect Type:=wdAllowOnlyFormFields, Password:="test"
        End If
        'Save file with new extension
        ActiveDocument.SaveAs FileName:=strDocName
        ActiveDocument.Close
    End Sub
    Sub NoProtect()
            If ActiveDocument.ProtectionType <> wdNoProtection Then
    ActiveDocument.Unprotect
    End Sub

    Das funktioniert ohne Probleme. Jedoch habe ich bisher keine Möglichkeit
    gefunden, daß Dialogfeld von "speichern unter" einzubinden.

    In der jetzigen Ausführung gebe ich einen Dateinamen an, dieser wird unter
    Eigene Dateien abgelegt.

    Wie muß eine Änderung aussehen, damit ich das Laufwerk und die Ordner wählen
    kann?

    Gibt es eine Möglichkeit die beiden Codes auf separate Icons in eine
    Symbolleiste zu legen?

    Vielen Dank für Eure Unterstützung

    Mit freundlichen Grüßen, 

    -- 
Karl Baumann
  • Next message: Marita Betz: "Re: Wie mehrere Tabellenzeilen von Excel in Word Serienbrief einfügen"

    Relevant Pages

    • Das Kalenderblatt 100817
      ... Obwohl einige Teilnehmer von MathOverflow meine Bemerkungen zum ... I am continuing the suspension process. ... Dann kam aber doch noch eine personalisierte Email: ... Darauf antwortete ich höflich, aber bestimmt: ...
      (de.sci.mathematik)
    • =?Utf-8?Q?RE:_Select-=28SQL=29_in_Variable_=C3=BCbe?= =?Utf-8?Q?rgeben_wie_=3F=3F=3F?=
      ... Das geht seh reinfach. ... Anbei noch eine Prozedur als Beispiel (voraussetzung, ... Public Function GetMembersFromCol1() As Object ... Ich werde noch zum Elch. ...
      (microsoft.public.de.german.entwickler.dotnet.vb)
    • Access DB mit vb.net abfragen
      ... markierten Stelle eine Fehlermeldung ... mit der ich nichts anfangen kann: ... Private Function Access_Connection(ByVal AccessDBFile As String, ... Dim DBDataSet As New DataSet ...
      (microsoft.public.de.german.entwickler.dotnet.datenbank)
    • Re: Falsches Ergebnis bei rs.recordcount
      ... > Ich habe folgendes Konstrukt geschrieben: ... > Private Sub Suchen_Click ... > Dim Consuch As ADODB.Connection ... > strKritSuchObjBez & strKritSuchUrheber & strKritSuchDatierung ...
      (microsoft.public.de.access)
    • Re: Falsches Ergebnis bei rs.recordcount
      ... Wentzell schrieb folgendes: ... > Ich habe folgendes Konstrukt geschrieben: ... > Private Sub Suchen_Click ... > Dim Consuch As ADODB.Connection ...
      (microsoft.public.de.access)