Hallo zusammen,
wollte mich erkundigen ob jemand hier eine Ahnung von Makros hat.
Versuche zur Zeit ein Makro zu schreiben, welches mir einen ganzen Pfad mit Worddokumenten einliest, und die Fußzeile der Dokumente ändert, doch ich möchte nicht jeden einzelnden Namen jeder Datei eingeben müssen.. ( bei über 350 Worddokumenten auch ein bißchen mühsehlig, oder 
) dieses Makro soll mir eben das Verzeichnis nach *.doc Dateien Filtern und diese ändern.
Danke im Voraus
Grüßle
Daniel
Hallo zusammen,
ich wollte nur kurz bescheid geben das ich die Sache selber gelöst habe .... für alle die mir helfen wollten:
Trotzdem Danke!!
Liebe Grüßle
Daniel
Hätter Dir ja gerne geholfen, aber von Makros habe ich keinen schimmer 
Wie wäre es, wenn Du Deinen Lösungsweg postest, Daniel? Für zukünftige Fragestellungen? 
Abgesehen davon würde ich auch über Makros gerne mehr lernen, so quasi nebenbei... 
Hallo zusammen,
nun gut dann leg ich mal los....
ihr öffnet Word, geht auf den Menüpunkt "Extras", dann auf den Unterpunkt "Makro" und dann auf "Aufzeichen"....es erscheint daraufhin ein Fenster für den Namen des Makro ( belibigen Namen eintragen )...
Ihr könnt die Aufnahme des Makro sofort wieder, über den kleinen Button beenden....
Geht wieder auf Menüpunkt "Extras", dann auf den Unterpunkt "Makro" und dann auf "Visual Basic-Editor".....( jetzt geht der Spaß erst richtig los 
)....
Ihr erstellt ein neues Formular ( rechtsklick auf den Ordner "Formulare", auf den Unterpunkt "Einfügen" und dann auf "UserForm" ), bennent dieses im Eigenschaftsfenster unter dem Punkt "Name" auf frmTest um.
Ihr fügt auf dieses Formular einfach zwei Buttons ein, die ihr von der Werkzeugsammlung ( die automatisch erscheint ) auf das Formular zieht....benennt diese, wiederrum, im Eigenschaftsfenster unter dem Punkt "Name" in cmdPfadangabe und cmdBeenden....
Klick nun doppelt auf einen der zwei Buttons und fügt folgenden Code ein:
Option Explicit
Dim strPfad As String
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _
"SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _
As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _
"SHGetPathFromIDListA" (ByVal pidl As Long, _
ByVal pszPath As String) As Long
Private Sub cmdBeenden_Click()
End
End Sub
Private Sub cmdPfadangabe_Click()
strPfad = BrowseFolder("Test")
strPfad = strPfad & "\"
Call DateiNameErmitteln
End Sub
Public Function BrowseFolder(szDialogTitle As String) As String
Dim X As Long, bi As BROWSEINFO, dwIList As Long
Dim szPath As String, wPos As Integer
dwIList = SHBrowseForFolder(bi)
szPath = Space$(512)
X = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)
If X Then
wPos = InStr(szPath, Chr(0))
BrowseFolder = Left$(szPath, wPos - 1)
Else
BrowseFolder = ""
End If
End Function
Public Sub DateiNameErmitteln()
Dim strDateiName As String
strDateiName = Dir(strPfad & "*.doc")
'MsgBox "Die Datei heisst " & strDateiName
Documents.Open FileName:=strPfad & strDateiName, ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
'Hier Code für Bearbeitung des Dokuments eingeben!
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.MoveDown Unit:=wdLine, Count:=4
Selection.MoveRight Unit:=wdCharacter, Count:=18
Selection.TypeText Text:=" TEST"
ActiveDocument.Save
ActiveDocument.Close
'Hier muss der Code für der Code für die Bearbeitung des Dokuments aufhören!
Do Until strDateiName = ""
strDateiName = Dir
If strDateiName = "" Then
Exit Sub
End If
'MsgBox "Die Datei heisst " & strDateiName
Documents.Open FileName:=strPfad & strDateiName, ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
'Hier Code für Bearbeitung des Dokuments eingeben!
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.MoveDown Unit:=wdLine, Count:=4
Selection.MoveRight Unit:=wdCharacter, Count:=18
Selection.TypeText Text:=" TEST"
ActiveDocument.Save
ActiveDocument.Close
'Hier muss der Code für der Code für die Bearbeitung des Dokuments aufhören!
Loop
End SubJetzt braucht ihr nur noch im Objektfenster ( den Fenster wo ihr vorher das Formular erzeugt habt ) auf den ordner "Module" klicken, dann auf "Modul1" doppelt und fügt statt:
Sub Test()
'irgend ein Text....
End Subden folgenden ein:
Sub Test()
frmTest.Show
End SubIhr braucht die ganze Sache nur noch abzuspeichern und schon habt ihr ein schickes Makro programmiert!
Eigentlich simpel, oder?
Grüßle
Daniel
Legende:
'Kommentare im Programmcode!
Hallo nochmal,
habe im obrigem Beitrag vergessen zu sagen, dass ihr euch bei Problem oder Anmerungen natürlich an mich wenden könnt...
Grüßle
Daniel
P.S.: Jetzt haben wir doch noch VB Code im Forum.... 
Hallo zusammen,
ich weiß ich bin nervig, doch es gibt nochmal was neues ....
Der lange Code hat noch einen kleinen Fehler.... ich schicke nachher die neue Version, die ist auch ein bißchen besser kommentiert...
der Rechner wo der Code gespeichert ist, arbeitet aber gerade 270 Dokumente ab, das geht noch ne Weile, aber wenn der Rechner wieder greifbar ist und ich dran denke schicke ich euch den Code natürlich...
Grüßle
Daniel
Hallo zusammen,
hier die neue Version...
Option Explicit
Dim strPfad As String 'globale Variable für den Dateipfad
Private Type BROWSEINFO 'benutzerdefinierte Variable
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
'API Funktion für das Einlesen des Dateipfades
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _
"SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _
As Long
'API Funktion für das Einlesen des Dateipfades
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _
"SHGetPathFromIDListA" (ByVal pidl As Long, _
ByVal pszPath As String) As Long
Private Sub cmdBeenden_Click()
End 'Makro beenden
End Sub
Private Sub cmdPfadangabe_Click()
strPfad = BrowseFolder("Test") 'Benutzer soll den Dateipfad eingeben
strPfad = strPfad & "\" 'dem ausgewählten Pfad wird ein "\" hinzugefügt
If strPfad = "\" Then 'wenn der Benutzer bei der Pfadangabe die Abbrechen
Exit Sub 'Schaltfäche gedrückt hat, soll das Programm nicht
End If 'weiter ausgeführt werden
Call DateiNameErmitteln 'die Namen der Worddokumente werden gefiltert
End Sub
Public Function BrowseFolder(szDialogTitle As String) As String
Dim X As Long, bi As BROWSEINFO, dwIList As Long 'Variablen deklaration
Dim szPath As String, wPos As Integer 'Variablen deklaration
dwIList = SHBrowseForFolder(bi) 'Aufruf der API Funktion
szPath = Space$(512)
X = SHGetPathFromIDList(ByVal dwIList, ByVal szPath) 'Aufruf der API
'Funktion
If X Then 'Hier wird abgefragt ob der Benutzer
wPos = InStr(szPath, Chr(0)) 'die Abbrechen Schaltfläche gedrückt hat
BrowseFolder = Left$(szPath, wPos - 1)
Else
BrowseFolder = "" 'wenn der Benutzer die Abbrechen Schaltfläche
'gedrückt hat, ist der Pfad leer
End If
End Function
Public Sub DateiNameErmitteln()
Dim strDateiName As String 'Varable für den Dokumentennamen
strDateiName = Dir(strPfad & "*.doc") 'Zusammensetzung von Dateiname und Pfad
Documents.Open FileName:=strPfad & strDateiName, ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto 'erstes Dokument öffnen
'*****************************
'Hier Code für Makros einfügen
'*****************************
ActiveDocument.Save
Application.Run MacroName:="ConvertToPDF"
'*******************************************
'Hier muss der Code für das Makros aufhören!
'*******************************************
Do Until strDateiName = "" 'Nächstes Dokument öffnen
strDateiName = Dir 'nächsten Dokumentennamen anziehen
If strDateiName = "" Then 'wenn kein Dokument mehr vorhanden soll
Exit Sub 'die Prozedur verlassen werden
End If
Documents.Open FileName:=strPfad & strDateiName, ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto 'Dokument öffnen
'*****************************
'Hier Code für Makros einfügen
'*****************************
ActiveDocument.Save
Application.Run MacroName:="ConvertToPDF"
'*******************************************
'Hier muss der Code für das Makros aufhören!
'*******************************************
Loop
End Sub