MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Word
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 08.02.2018, 10:25   #1
hajosch
MOF User
MOF User
Standard Word 2007 - vba-Makro funktioniert nicht mehr

Hallo,

mein Makro:

Zitat:


Sub allFiles()
'
datei = Dir("H:Temp1") 'Ordnernamen anpassen
While datei > ""
Documents.Open FileName:=datei, ReadOnly:=False, Format:=wdOpenFormatAuto
' Makro-Code oder der Aufruf des entsprechenden Makros
Call DelDoku
datei = Dir
Wend
End Sub

bringt neuerdings den Laufzeitfehler 5174 'Diese Datei wurde nicht gefunden'.

Angezeigt wird die erste Datei im Ordner.

Die Fehlernachricht kommt bei verschiedenen 'Call'-Einträgen, die für sich (auf eine Einzeldatei bezogen) einwandfrei funktionieren.

Was ist hier falsch?

Danke und Gruß hajosch

__________________

Gruß
hajosch
hajosch ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 10:51   #2
haklesoft
MOF Koryphäe
MOF Koryphäe
Standard

Hallo hajosch,

weder Document.Open noch Deine Subroutinen sind auf wechselnde individuelle Pfade ausgerichtet. Hänge also noch den Pfad vor Datei.

__________________

Hang loose, haklesoft
haklesoft ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 13:59   #3
hajosch
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo haklesoft,

der Pfad ist doch definiert:

datei = Dir("H:Temp1") : das war falsch geschrieben;

im Original heißt es : datei = Dir("H:Temp1") ; mit '' nach 'H:'

Wenn das nicht reicht, schreib mir (vba-Laie) doch bitte die richtigen Zeilen hin.

Danke und Gruß hajosch

__________________

Gruß
hajosch
hajosch ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 19:40   #4
czil
MOF User
MOF User
Standard

Das ist zum einen kein Windows Pfad, der geht mit H:\irgendwohin. Und dann gibt dir Dir () dir den Datei Namen zurück, ohne Pfad. Also den Pfad datei = “H:\irgendwohin“ & Dir(H:\irgendwohin)
Dann klappt das auch

__________________

theo
czil ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 09:06   #5
hajosch
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo czil,

so funktioniert das nicht mit einem Laien;

alle Versuche, Deinen Tipp umzusetzen, führten nicht zum Erfolg.

Setze doch bitte Deine Lösung in mein Makro im Beitrag #1 ein.

__________________

Gruß
hajosch
hajosch ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.02.2018, 21:13   #6
Luschi
MOF Koryphäe
MOF Koryphäe
Standard

Hallo hajosch,

hier mal die Erklärung von haklesoft in die Praxis umgesetzt:
Code:

Sub test()
    Dim sDoc As Document, _
        sDatei As String, sPfad As String, sTyp As String
    
    sPfad = "H:\Daten\MeineBriefe\"
    sTyp = "*.doc?"
    sDatei = Dir(sPfad & sTyp, vbNormal)
    Do While sDatei <> ""
    Set sDoc = Documents.Open(FileName:=sPfad & sDatei, ReadOnly:=False, Format:=wdOpenFormatAuto)
    'tue irgendwas...
    sDoc.Close True
    Loop
End Sub
Gruß von Luschi
aus klein-Paris
Luschi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.02.2018, 09:20   #7
hajosch
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Luschi,

die Prozedur bringt in Zeile 'Set sDoc = ' den Laufzeitfehler 5981:
'Makrospeicher konnte nicht geöffnet werden':
das bedeutet lt. Google:
'im VBA-Editor ist unter Extras-Verweise ein ungültiger Verweis vermerkt'

Ich habe an der Stelle alle Verweise auf Office 12 = WORD 7 aktiviert.
Welcher Verweis ungültig sein soll, wird nicht angezeigt und kann von mir nicht ermittelt werden.

__________________

Gruß
hajosch
hajosch ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.02.2018, 09:39   #8
czil
MOF User
MOF User
Standard

Ich hab mir jetzt deine Ausgangsfrage noch mal durchgelesen. Du meinst ja, dass die Makros schon mal funktioniert haben in der Form.
Wenn das das dann beim Aufruf einer anderen Prozedur zu Fehlern kommt, ist da vielleicht VBA einfach durch Nichteindeutgkeit Nichteindeutgkeit durcheinander. Schreib mal bei dem call das Modul vorneweg. Also Call Modul1.DelDindsbums
Wie das Modul bei dir hslt heißt.

__________________

theo
czil ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.02.2018, 09:58   #9
hajosch
Threadstarter Threadstarter
MOF User
MOF User
Standard

Ich habe die Zeile gändert in 'Call Modul1.mFuß'. Richtig so?

Die folgende Nachricht kommt:

Makrospeicher konnte nicht geöffnet werden'

__________________

Gruß
hajosch
hajosch ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.02.2018, 10:20   #10
czil
MOF User
MOF User
Standard

Das kann ich so kaum beurteilen, denn ich weiß nicht, ob dein Modul so heißt.
Dazu braucht man die Datei selbst.
Die Schrebweise sieht korrekt aus, die Meldung sagt was anderes.

Btw welches Betriebssystem hast du? MAC?

__________________

theo
czil ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.02.2018, 11:46   #11
hajosch
Threadstarter Threadstarter
MOF User
MOF User
Standard

Windows 10

an dieser Stelle bin ich überfordert.

Bei der Funktion 'Grafik einfügen' hier im Forum wird eine Web-Adresse für meine Grafik erwartet. Wie bekomme ich die?

[IMG]H:\TempBild-Makro1.docx[/IMG]

Ich wollte die Projekt-Anzeige aus dem Makro-Editor einstellen:

Normal
New Makros
This Document
Project (Bild-Makro1)
This Document
Verweis auf Normal

Die Anzeige 'Modul1' erscheint nicht mehr.

__________________

Gruß
hajosch
hajosch ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.02.2018, 11:59   #12
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo hajosch,

wenn du die Schaltfläche Anhänge verwalten etwas unterhalb dieses Textfensters verwendest (alternativ die Büroklammer-Schaltfläche, falls sichtbar), brauchst du keine Web-Adresse. Du wählst im Dialogfeld dein Bild einfach via Durchsuchen-Schaltfläche und lädst es ins Forum hoch. Es erscheint dann als Anhang in deinem Beitrag.

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.02.2018, 13:47   #13
hajosch
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Gerhard ,

trotz vielen Beiträge geht es offensichtlich mit meinem Problem nicht weiter.

Du hast mir schon öfter hervorragend geholfen.

Ist es zuviel verlangt, Dich zu bitten, mir eine Makro-Prozedur (für WORD 2007) zu liefern,
mit ich erreichen kann:

alle doc/docx-Dateien in einem Ordner nacheinander öffnen, jeweils mit call ein Makro anwenden und dann wieder schließen. ?

Längeres Suchen mit Google hat keinen Erfolg gebracht, obwohl ich meine, dass das viele Anwender betrifft.

__________________

Gruß
hajosch
hajosch ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.02.2018, 14:22   #14
czil
MOF User
MOF User
Standard

Es wäre für dich besser, du würdest verstehen was du tust.
Zumindest könntest du mal anfangen, die Leute, die dir helfen wollten so zu unterstützen, dass sie das tun können.
Wenn es dich aber schon überfordert, hier ein Dokument hochzuladen, oder wenigstens einen Screenshot, glaube ich nicht, dass es Sinn macht, dir ein fertiges Makro zu liefern.
Du müsstest das schließlich an deinen Pfad anpassen, was dich ja auch schon überfordert.

Würde dir schon gerne geholfen haben, aber unter diesen Umständen bin ich raus.

__________________

theo
czil ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.02.2018, 16:10   #15
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo hajosch,

wenn ich das Makro von Luschi hernehme und es so erweitere, dass es deinem Wunsch nach Auslagerung eines Teiles des Codes entspricht, und du auch kontrollieren kannst, was geschieht, dann läuft das in meinem Word 2010 anstandslos durch:
Code:

Option Explicit
Dim sdoc As Document

Sub test()
Dim sDatei As String, sPfad As String, sTyp As String
    
    sPfad = "H:\Temp1\"
    sTyp = "*.doc?"
    sDatei = Dir(sPfad & sTyp, vbNormal)
    
    Do While sDatei <> ""
        
        Set sdoc = Documents.Open(FileName:=sPfad & sDatei, ReadOnly:=False, Format:=wdOpenFormatAuto)
        zeigsher
        sdoc.Close True
        sDatei = Dir
    Loop
    
End Sub

Sub zeigsher()
MsgBox sdoc.Paragraphs(1).Range.Text
End Sub
Wenn es bei dir diesen Laufzeitfehler 5981 gibt, dann ist wohl was an deiner Installation faul. Ich seh jedenfalls keinen Grund, warum das in Word 2007 nicht laufen sollte.

Dazu gibt es hier https://support.microsoft.com/de-de/...utomating-word einen Hinweis drauf, dass deine normal.dotm kaputt sein könnte. Also mal umbenennen und dann Word neu starten.

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:03 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.