Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Word 2007 über VBA Pfad einfügen
zurück: Include Textfelder automatisch aktualisieren weiter: Optionsfelder ersetzen Textmarke in Word Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gummibaer
Gast


Verfasst am:
27. Jul 2009, 17:39
Rufname:

Word 2007 über VBA Pfad einfügen - Word 2007 über VBA Pfad einfügen

Nach oben
       Version: Office 2007

Hallo,
ich habe folgendes Problem, vor kurzem haben wir unser Office von XP auf 2007 umgestellt.
Die Funktion die alle unserer Mitarbeiter benötigen ist eine Schaltfläche mit der Sie mit einem Klick den Pfad der Datei an die Stelle einfügen können wo der Cursor steht. Falls die Datei noch nicht gespeichert wurde soll man zum speichern aufgefordert werden.

Im Office XP sah das wir follgt aus:

Code:
'PfadEinfügen in NORMAL.DOT'

Public Sub MAIN()
Dim a$
Dim B$

PFAD:
Dim rec As Object: Set rec = WordBasic.DialogRecord.FileSummaryInfo(False)
WordBasic.CurValues.FileSummaryInfo rec
If rec.Directory <> "" Then GoTo WEITER Else GoTo SPEICHERN1

WEITER:
a$ = rec.Directory
B$ = rec.FileName
WordBasic.Insert a$
WordBasic.Insert "\"
WordBasic.Insert B$
GoTo ENDE

SPEICHERN1:
SPEICHERN1 = WordBasic.MsgBox("Datei muß zuerst gespeichert werden. Soll das jetzt geschehen?", "PROBLEM:", 36)
If SPEICHERN1 = 0 Then GoTo ENDE
If SPEICHERN1 = -1 Then GoTo SPEICHERN2

SPEICHERN2:
WordBasic.FileSave
GoTo PFAD

ENDE:
End Sub


Das ging wie gesagt mit Office XP 1a, mit 2007 funktioniert es solange man lokal speichert auch, aber sobald man eine Datei auf einem Netzlaufwerk nimmt geht diese Funktion nicht mehr, dann schreibt er da "Profilpfad\Lokale Einstellungen\Temporary Internet Files\Content.MSO\960960D.tmp" hin.

Wäre super wenn mir jemand helfen könnte, danke im Voraus
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
27. Jul 2009, 23:10
Rufname:
Wohnort: Leipzig

AW: Word 2007 über VBA Pfad einfügen - AW: Word 2007 über VBA Pfad einfügen

Nach oben
       Version: Office 2007

Hallo Gummibaer,

der von Dir gezeigte Code stammt noch aus WordBasic. In Word VBA unter Word XP sieht das bei mir so aus:
Code:
Sub PfadEinfuegen()

    Dim intAntwort As Integer
   
    If ActiveDocument.Path = "" Then
        intAntwort = MsgBox(Prompt:="Die Datei muss zuerst gespeichert werden." _
                        & vbCrLf & "Soll das jetzt geschehen?", _
                        Buttons:=vbExclamation + vbYesNo)
        If intAntwort = vbYes Then
            Dialogs(wdDialogFileSaveAs).Show
            DoEvents
        Else
            Exit Sub
        End If
    End If
    Selection.TypeText ActiveDocument.FullName

End Sub

Das sollte auch unter Word 2007 noch funktionieren (ich habe jetzt hier allerdings kein Netz, um es zu probieren). Bitte probier erstmal das.

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

Guter Rat ist teuer!
Gast



Verfasst am:
28. Jul 2009, 14:41
Rufname:


AW: Word 2007 über VBA Pfad einfügen - AW: Word 2007 über VBA Pfad einfügen

Nach oben
       Version: Office 2007

Vielen vielen Dank klappt super Smile
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 - bilder einfügen - rotes x 2 Gast20 4524 12. Aug 2009, 10:33
Gast seriendruck - bilder einfügen - rotes x
Keine neuen Beiträge Word Serienbriefe: Word 2007 Etikett Seriendruck 3 MCTurkey 3163 06. Aug 2009, 10:46
charlybrown Word 2007 Etikett Seriendruck
Keine neuen Beiträge Word Serienbriefe: WORD 2007 Etikettendruck Datensätze nicht Seiten drucken 1 Timo3000 3266 09. Apr 2009, 10:52
charlybrown WORD 2007 Etikettendruck Datensätze nicht Seiten drucken
Keine neuen Beiträge Word Serienbriefe: Verschachtelte Wenn dann sonst Abfrage (Word 2007 / Word 12 2 Gast 6656 17. März 2009, 23:41
charlybrown Verschachtelte  Wenn dann sonst Abfrage (Word 2007 / Word 12
Keine neuen Beiträge Word Serienbriefe: Serienbrief: Vollständige Empfängerliste als Feld einfügen 2 Gast2008 2860 23. Okt 2008, 10:37
Auch Gast Serienbrief: Vollständige Empfängerliste als Feld einfügen
Keine neuen Beiträge Word Serienbriefe: Word 2003/2007 Formular 0 chrigu81 2058 06. Jun 2008, 16:23
chrigu81 Word 2003/2007 Formular
Keine neuen Beiträge Word Serienbriefe: Fritz Serienfax mit Vista und Office 2007 0 chribo00 2552 31. Jan 2008, 11:51
chribo00 Fritz Serienfax mit Vista und Office 2007
Keine neuen Beiträge Word Serienbriefe: Word 2007: Serienbrief mit individueller Tabelle 4 A.Cartschau 8325 28. Jan 2008, 22:09
A.Cartschau Word 2007: Serienbrief mit individueller Tabelle
Keine neuen Beiträge Word Serienbriefe: Wenn dann Textbaustein / Autotext einfügen 0 miricoleo 4173 01. Dez 2007, 21:04
miricoleo Wenn dann Textbaustein / Autotext einfügen
Keine neuen Beiträge Word Serienbriefe: Datenbank einfügen klappt nicht mehr! 2 Schwertfeger 1321 24. März 2007, 21:32
Schwertfeger Datenbank einfügen klappt nicht mehr!
Keine neuen Beiträge Word Serienbriefe: Seriendruckfeld includepicture mit dynamischen pfad - Proble 0 Gast 3761 23. Okt 2006, 10:33
Gast Seriendruckfeld includepicture mit dynamischen pfad - Proble
Keine neuen Beiträge Word Serienbriefe: Grafik immer in gleicher Größe einfügen 0 Maik 2470 05. Sep 2006, 10:47
Maik Grafik immer in gleicher Größe einfügen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe