Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
VBA Korrektur erbeten.
zurück: Textfeld - Datum weiter: Dateiübergröße, speichern verweigern 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
soigroeg
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Feb 2013, 22:16
Rufname:

VBA Korrektur erbeten. - VBA Korrektur erbeten.

Nach oben
       Version: Office 2007

Hallo Freunde,

ich habe folgenden VBA-Code, der eine Adressänderung herbeiführen soll, indem er auf die "Benutzerdefinierten Eigenschaften" einen String ändern soll.

Dafür lege ich die Datei in den Ordner, indem auch alle anderen Dateien sind, trotzdem zeigt er mir an, dass "0" Dateien geändert wurden.

Kann mir jemand helfen?

gruß,
Georg

Code:

Sub dok_eig_ändern()
On Error GoTo fehler
Dim zähler As Integer
Dim pfad As String
Dim dateiname As String
Dim neuerwert As String
neuerwert = "Bleicherstr. 7" '''''''''''''Anpassen


pfad = ThisDocument.Path & "\Fertig\" ''''''''''''Anpassen
dateiname = Dir(pfad & "*.doc*")

While dateiname <> ""
zähler = zähler + 1

Documents.Open (pfad & dateiname)

With ActiveDocument
.CustomDocumentProperties("Strasse").Value = neuerwert '''''Anpassen
.Fields.Update 'aktualisiert alle Felder, also auch ein ggf. vorhandenes docproperty-Feld
.Save
.Close
End With

dateiname = Dir

''''''''If zähler = 10 Then Exit Sub

Wend
MsgBox "Die Dokumenteigenschaft 'Strasse' wurde in " & zähler & " Dokumenten geändert"
Exit Sub
fehler:
MsgBox Err.Number & " - " & Err.Description
End Sub


MarkMH_K
z.Z. gaanz unregelmäßig online


Verfasst am:
27. Feb 2013, 00:52
Rufname: Markus
Wohnort: Köln rrh


AW: VBA Korrektur erbeten. - AW: VBA Korrektur erbeten.

Nach oben
       Version: Office 2007

Hi,

zu später Stunde und ungetestet nur einige Ideen:
- On Error Goto würde ich einmal auskommentieren und gucken, was er dann meldet, der Makro
- der Dateiname wird vor dem While von Dir() gefüllt, aber in der Schleife nicht mehr - also bricht die Schleife ab
- die Syntax zum Arbeiten mit Dir() ist m.E. nicht korrekt: normalerweise enthält der Array* alle Dateien, die er im Verzeichnis gefunden hat, und man braucht nur zu prüfen While Dir <> ""
- und ganz am Rande, vielleicht nicht zutreffend: Strasse ist falsch geschrieben. Es muß auch nach der neuen Rechtschreibung Straße heißen (denn a ist lang

HTH.

Markus
-----------------------
* oder ist das eine Collection? Die richtigen Programmierer bitte ich hier höflich um Hilfe, wenigstens um einen Link.
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 Hilfe: dringende Hilfe für Vorlage erbeten 0 maginon 78 18. Okt 2013, 17:04
maginon dringende Hilfe für Vorlage erbeten
Keine neuen Beiträge Word VBA Programmierung (Makros): Über Checkboxen Auswahl einfügen - Hilfe erbeten 19 ruhls 397 06. Nov 2012, 23:44
ruhls Über Checkboxen Auswahl einfügen - Hilfe erbeten
Keine neuen Beiträge Word VBA Programmierung (Makros): Hilfe erbeten: Dokumentinhalt kopieren in anderes Dokument 1 ruhls 198 15. Okt 2012, 14:23
ruhls Hilfe erbeten: Dokumentinhalt kopieren in anderes Dokument
Keine neuen Beiträge Word Hilfe: *T*Rechtschreibprüfung + KORREKTUR 1 lexy 204 02. Jul 2012, 19:59
Netzverbindung *T*Rechtschreibprüfung + KORREKTUR
Keine neuen Beiträge Word Hilfe: Wie ohne Textreduktion Korrektur vornehmen? 2 AnnEnnA 413 28. Jan 2012, 17:22
AnnEnnA Wie ohne Textreduktion Korrektur vornehmen?
Keine neuen Beiträge Word Serienbriefe: Word-Serienbriefadresse (Korrektur) 4 Ullifix 370 12. Nov 2011, 14:32
Ullifix Word-Serienbriefadresse (Korrektur)
Keine neuen Beiträge Word VBA Programmierung (Makros): Korrektur/Fehlersuche im Text (wie AutoKorrektur) 6 Makro.Tiede 1373 07. Sep 2010, 08:05
Makro.Tiede Korrektur/Fehlersuche im Text (wie AutoKorrektur)
Keine neuen Beiträge Word Hilfe: Hilfe !!! Warum kann ich nach der Korrektur im Text nur ??? 1 Nivek 434 05. Mai 2010, 20:44
rolip Hilfe !!! Warum kann ich nach der Korrektur im Text nur ???
Keine neuen Beiträge Word Formate: Kein Seitenumbruch trotz Korrektur? 1 hansih007 427 02. Mai 2010, 19:50
hyba Kein Seitenumbruch trotz Korrektur?
Keine neuen Beiträge Word Hilfe: Dauerhafte Korrektur automatische Silbentrennung 6 Jorinde 8651 28. Feb 2010, 14:27
Lisa Dauerhafte Korrektur automatische Silbentrennung
Keine neuen Beiträge Word Hilfe: Word hängt sich bei Auto Korrektur auf 2 Zacharias 523 15. Dez 2009, 17:20
Zacharias Word hängt sich bei Auto Korrektur auf
Keine neuen Beiträge Word Hilfe: Word Dokument, Korrektur alle Seiten gleichzeitig? 0 lis 1522 16. Jun 2009, 18:50
lis Word Dokument, Korrektur alle Seiten gleichzeitig?
 

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