Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Dokument per ButtonKlick speichern
zurück: Die Macros in diesem Projekt sind deaktiviert ... weiter: über button bestehende Tabelle einfügen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
kv-tommy
Gast


Verfasst am:
24. Apr 2006, 14:59
Rufname:

Dokument per ButtonKlick speichern - Dokument per ButtonKlick speichern

Nach oben
       

Hallo,

ich habe ein Worddokument mit mehreren Feldern (Feld1, Feld 2 Feld 3). Ich möchte nun per Click auf einen Button (Speichern) das Gesamte Dokument speichern.

Und zwar soll der Pfad aus Feld1 wie folgt erstellt werden:

Bsp.: Feld1 = A1234

Pfad = .....\A\A12\A1234

Wer kann mir beim VBA Code helfen. (Erstellen der Ordner und PRüfen ob ORdner schon vorhanden). Dateinname = Inhalt Feld2
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
24. Apr 2006, 22:35
Rufname:
Wohnort: Leipzig


AW: Dokument per ButtonKlick speichern - AW: Dokument per ButtonKlick speichern

Nach oben
       

Hallo kv-tommy,

okay, das ist eine Menge. Fangen wir einfach mal an. Eine Funktion, die testet, ob ein Ordner bereits existiert, habe ich hier:
Code:
Function IsDiskFolder(ByVal fName As String) As Boolean
    'liefert True zurück, wenn der Ordner existiert

    If (Dir(fName, vbDirectory) <> "") Then
        IsDiskFolder = True
    Else
        IsDiskFolder = False
    End If

End Function

Dann die Funktion, die testet, ob eine Datei bereits existiert:
Code:
Function IsDiskFile(fName As String) As Boolean
    'liefert True zurück, wenn fName gefunden wurde, ansonsten False

    If (Dir(fName) <> "") Then
        IsDiskFile = True
    Else
        IsDiskFile = False
    End If

End Function

Damit kann man schon mal anfangen. Den Pfadnamen kann man einfach mit String-Funktionen "behandeln", um aus den Feldinhalten den Pfad zu erzeugen, z. B. so:
Code:
Sub PfadnamenErzeugen()

    Dim Feld1 As String
    Dim Pfad As String
    Const Vorpfad = "C:\Eigene Dateien\"
   
    Feld1 = "A1234"
    Pfad = Vorpfad & Left$(Feld1, 1) & "\" & Left$(Feld1, 3) & "\" & Feld1 & "\"
    MsgBox Pfad

End Sub


Jedoch die große Frage lautet: Welche Art Felder meinst du, die du auswerten willst? Textformularfelder? Textfelder (aus der Zeichnen-Leiste)? Feldfunktionen? Serienbrieffelder? Textmarken? Inhalte einer Tabellenzelle?

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
kv-tommy
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Apr 2006, 10:52
Rufname:

AW: Dokument per ButtonKlick speichern - AW: Dokument per ButtonKlick speichern

Nach oben
       

HAllo Lisa !

Folgende Erläuterung:

Ich möchte ein Formulart erstellen, das 3 oder mehr Eingabefelder hat. Wenn die Felder ausgefüllt worden sind, soll durch Klick auf einen Button (SPEICHERN) das Dokument komplett als Word-Dokument abgespeichert werden. Wobei Feld1 (A1234) den Pfad des Dokumentes festlegt und z.B. Feld 2 den Dateinamen bildet.

Hilft dieses evtl weiter ?
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
30. Apr 2006, 20:28
Rufname:
Wohnort: Leipzig


AW: Dokument per ButtonKlick speichern - AW: Dokument per ButtonKlick speichern

Nach oben
       

Hallo Tommy,

OK, dann brauchst du ja nur noch den Code, um auf das Formularfeld zuzugreifen, nämlich so:
Code:
Dim DName As String
    DName = ActiveDocument.FormFields("TextBox1").Result

Damit hast du die Variable DName, die den Text des Formularfeld mit dem Namen Textbox1 enthält. Auf die Variable DName kannst du dann die obigen Stringmethoden anwenden.
Und so kannst du das Formular speichern:
Code:
With Dialogs(wdDialogFileSaveAs)
    .Name = DName
    .Show
End With

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Seriendruck per Mail (als Anlage) - funktioniert nicht 6 Gast 4502 22. Dez 2010, 09:32
Gast Seriendruck per Mail (als Anlage) - funktioniert nicht
Keine neuen Beiträge Word Serienbriefe: Serienbrief in neues Dokument --> erster Datensatz fehlt! 1 Shoeppse 2143 04. März 2010, 08:59
Shoeppse Serienbrief in neues Dokument --> erster Datensatz fehlt!
Keine neuen Beiträge Word Serienbriefe: adressfelder festsetzen, mit tastenkombi im dokument "h 3 m.h. 1325 15. Feb 2010, 14:41
Schneewittchen adressfelder festsetzen, mit tastenkombi im dokument "h
Keine neuen Beiträge Word Serienbriefe: Briefkopf im Dokument abbilden, aber nicht ausdrucken!!! 2 tanja. k. 2880 03. Jan 2010, 22:52
tanja k. Briefkopf im Dokument abbilden, aber nicht ausdrucken!!!
Keine neuen Beiträge Word Serienbriefe: Word Dokument mit Datenbank verknüpfen (ähnlich Serienbrief) 3 Greenkeeper 4653 04. Dez 2009, 17:36
charlybrown Word Dokument mit Datenbank verknüpfen (ähnlich Serienbrief)
Keine neuen Beiträge Word Serienbriefe: Serienbrief - Dokument schützen 2 FeMuD 3078 13. Nov 2009, 10:26
spaengle Serienbrief - Dokument schützen
Keine neuen Beiträge Word Serienbriefe: Einfügen versch. Adressen aus einer Datenqu. in ein Dokument 9 Gast 921 04. Nov 2009, 15:02
charlybrown Einfügen versch. Adressen aus einer Datenqu. in ein Dokument
Keine neuen Beiträge Word Serienbriefe: Makro ausführen bei Seriendruck in neues Dokument 1 websven 3360 09. Okt 2009, 09:51
klein-artur Makro ausführen bei Seriendruck in neues Dokument
Keine neuen Beiträge Word Serienbriefe: Text einer Textmarke an anderer Stelle im Dokument anzeigen? 8 bbask 3233 07. Apr 2009, 13:07
Gast Text einer Textmarke an anderer Stelle im Dokument anzeigen?
Keine neuen Beiträge Word Serienbriefe: Seriendruck in neues Dokument 1 Bogusine 614 05. Sep 2008, 08:03
Dominik C. Seriendruck in neues Dokument
Keine neuen Beiträge Word Serienbriefe: VBA zum Verwenden der Outlook Adressen in Word Dokument 0 IonTichy 1228 30. Okt 2007, 14:40
IonTichy VBA zum Verwenden der Outlook Adressen in Word Dokument
Keine neuen Beiträge Word Serienbriefe: Worddokumetn splitten und die Seiten einzeln speichern 2 motec 6483 12. Okt 2007, 13:03
majce Worddokumetn splitten und die Seiten einzeln speichern
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps