Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Word doc öffnen, Kopfzeilen auslesen in Tabelle

Word doc öffnen, Kopfzeilen auslesen in Tabelle
04.01.2006 14:45:49
urs
Guten Mittag allerseits
Ich habe in einem Ordner viele Word Dateien die unter nichtssagende Dateinamen
zum Teil fortlaufende Nummern)abgespeichert sind.
Ich möchte alle Dateien des Ordners öffnen die benötigte Information auslesen und in einer Tabelle speichern.
In der 2. Kopfzeile die ich ganz auslesen will (kopieren ginge auch, ergibt dann 3 Spalten in Excel) und in der ersten Fusszeile die ersten 5 Buchstaben von rechts sollen in eine Zeile in Excel geschrieben werden.
Hat da schon einer etwas ähnliches gelöst?
Oder wie finde ich das in der Recherche?
Vielen Dank urs

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Word doc öffnen, Kopfzeilen auslesen in Tabelle
05.01.2006 10:17:18
Eugen
hi
folgenden code entweder hintzer den click eines buttons legen
oder in makro prozedur
Dim nRow As Integer ' welche zeile im target formular
Dim oWord As Object
Dim szHeader As String, szFooter As String
' action code
Application.ScreenUpdating = False
Set wBMaster = ActiveWorkbook
nRow = 1
szDatei = Dir(szDir + "*.DOC")
Set oWord = CreateObject("word.application")
If IsNull(oWord) Then Exit Sub ' vielleicht noch eine msgbox spendieren
Do While szDatei ""
oWord.documents.Open (szDir + szDatei)
szHeader = oWord.activedocument.sections(1).headers(2).Range.Text
szFooter = Right(oWord.activedocument.sections(1).footers(1).Range.Text, 5)
Sheets(1).Cells(nRow, 1).Value = szHeader
Sheets(1).Cells(nRow, 2).Value = szFooter
' wieder zumachen
oWord.activedocument.Close
szDatei = Dir
Loop
Application.ScreenUpdating = True
' hier sollte man no oWord freigeben
set oWord = nothing
mfg
Anzeige
Es funzt nicht !!
05.01.2006 12:37:28
urs
hallo Eugen , vielen Dank für Deine Unterstützung.
Ich habe den Code in eine Tabelle kopiert und diese Tabelle im gleichen Ordner wie die Worddateien abgespeichert. Ohne alles zu hinterfragen habe ich das Macro gestartet und es kam die Meldung das Visual Basic geschlossen wird. Es wurde keine doc Datei geöffnet.
Was habe ich vergessen oder übersehen?
Einen Auswahl des Ordners wie in untenstehendem Code, wäre dies auch möglich? Ich habe dies aus einer Excelabfrage kopiert und xls durch doc ersetzt.
strPfad = InputBox("Geben Sie bitte den auszulesenden Ordner ein", Default:="C:\1_Intern\Test\")
With Application.FileSearch
.LookIn = strPfad
.SearchSubFolders = False
.Filename = "*.doc"
.Execute
End With
Für weitere Hilfe wäre ich dankbar.
Gruss urs
Anzeige
Etwas funzt schon !!
05.01.2006 13:53:55
urs
Hallo Eugen,
Ich habe nun mein Wissen weiter in das Macro gepackt um zu Informationen zu kommen.
Mit folgendem Macro erhalte ich den gesammten Ausdruck der Kopfzeile und der Fusszeile.
Vermutlich ist der ganze Kopf resp. Fuss in Word ein String.
Wie muss ich vorgehen, wenn ich nur an der Information zwischen dem 4. und 5. Tabulator interessiert bin?
&ltpre&gt
Sub Word_Köpfe_auslesen()
Dim nRow As Integer ' welche Zeile im target formular
Dim oWord As Object
Dim szHeader As String, szFooter As String
'Application.ScreenUpdating = False
Set wBMaster = ActiveWorkbook ' Was bedeutet das?
nRow = 2
' szDatei = Dir(szDir + "*.DOC")
strPfad = InputBox("Geben Sie bitte den auszulesenden Ordner ein", Default:="C:\1_Intern\Test\")
With Application.FileSearch
.LookIn = strPfad
.SearchSubFolders = False
.Filename = "*.doc"
.Execute
End With
For i = 1 To Application.FileSearch.FoundFiles.Count
Application.StatusBar = "Die " & i & ". von insgesamt " & Application.FileSearch.FoundFiles.Count & " Mappen im Verzeichnis " & strPfad & " wird eingelesen"
On Error Resume Next
Set oWord = CreateObject("word.application")
If IsNull(oWord) Then Exit &ltpre&gt
Sub ' vielleicht noch eine msgbox spendieren
'Do While szDatei &lt&gt ""
oWord.documents.Open Application.FileSearch.FoundFiles(i)
szHeader = Right(oWord.activedocument.sections(1).headers(1).Range.Text, 200)
szFooter = Right(oWord.activedocument.sections(1).footers(1).Range.Text, 200)
ActiveWorkbook = "Wordköpfe.xls"
Sheets(1).Cells(nRow, 1).Value = szHeader
Sheets(1).Cells(nRow, 2).Value = szFooter
nRow = nRow + 1
oWord.activedocument.Close ' wieder zumachen
'szDatei = Dir
'Loop
Next
'Application.ScreenUpdating = True
' hier sollte man no oWord freigeben
Set oWord = Nothing
End Sub&lt/pre&gt
Gruss urs
Anzeige
Ich schliesse diesen Thread !
06.01.2006 12:53:53
urs
Hallo Eugen und VBA-ler
Da ich einen Teilerfolg hatte, schliessse ich diesen Thread und Stelle die Frage nun in einem neuen Thread etwas spezifischer.
Ganz herzlichen Dank für die Mitarbeit und ein frohes Wochenende
mfg urs

302 Forumthreads zu ähnlichen Themen

Exceltabelle in Word
S.H.

Hallo,
evtl. bin ich auch im falschen Forum, aber trotzdem meine Frage:
Ich habe ein Excel Arbeitsblatt unter word eingefügt und möchte dort weitere Zeilen einfügen. Das funktioniert auch soweit, am Ende der Word Seite ist allerdings Schluss. Ich schaffe es nicht, das die Tabelle einen...
20.10.2008 20:22:26
Thread-ID: 1017796
3 Beiträge
Anzeige
Excel Tabelle über 2 Seiten in Word
Ralf

Hallo,
ich möchte eine Excel Tabelle in Word einfügen. Das Problem ist, dass die Tabelle sehr lang ist und über 2 Seiten in Word gehen würde. Sie soll auch automatisch aktualisiert werden, wenn die Originaltabelle in Excel verändert wird.
Gibt es da eine Möglichkeit?
Vielen Dank!
16.04.2009 22:29:58
Thread-ID: 1069191
3 Beiträge
Zwei Excel-Tabellen in WinWord verknüpfen
Andreas

Hallo zusammen,
ich habe eine Word-Datei, in der sich an zwei verschiedenen Stellen zwei eingefügte Excel-Dateien befinden. Diese wurde vor langer Zeit mal aus Excel kopiert. Das Original in Excel existiert nicht mehr.
Jetzt möchte ich das Ergebnis einer Berechnung aus der ersten Tabell...
04.08.2009 13:53:46
Thread-ID: 1093412
2 Beiträge
Anzeige
aus Word mit Makro in Excel Tabellenblatt wechseln
Joni

Hi,
ich habe das Problem, dass ich aus einem Worddokument eine Exceltabelle, die bereits geöffnet ist, aktivieren möchte und dann da aus 2 Tabellenblättern Werte auslesen. Ich komm da einfach nicht weiter.
Excel als Object habe ich definiert. Beim Workbook und Sheet klappt das nicht meh...
31.10.2009 00:38:15
Thread-ID: 1113446
3 Beiträge
bestimmte Tabellen ein- resp. ausblenden SWITCH
Peter

Guten Abend
In einer grösseren Datei habe ich einige Tabellen, deren Namen einer der Strings "_FA", "_FV" oder "_FF" enthält.
Nun möchte ich ein Makro, mit dem ich diese Tabellen identifiziere und die einzelnen Tabellen einblende, wenn sie ausgeblendet sind, resp. umgekehrt.
Fragen:...
19.11.2009 17:36:31
Thread-ID: 1118717
19 Beiträge
In Tabelle Zellfarbe abfragen - Spalte ausblenden
Gegga

So und weitergehts :)
Ich baue gerae iene etwas aufwendigere Tabelle, wo ich mit mehreren Hilfsspalten arbeiten muss die ausgeblendet werden.
Ich habe einen Com.Button eingefügt mit folgendem Code:
Columns("BJ:BK").Select
Selection.EntireColumn.Hidden = True
Funzt, klar. Da...
21.12.2009 09:56:44
Thread-ID: 1125270
9 Beiträge
Tabellenblatt per Makro ein-/ ausblenden
Bibabutzel

Hallo Ecxel-Gemeinde,
ich mache gerade meine ersten eigenen Gehversuche in Sachen VBA und benötige mal bitte Eure Hilfe. Das Problem ist (für die, die es können) wahrscheinlich ein relativ einfaches:
Im Bereich A20:A59 stehen Namen und zu jedem dieser Namen gibt es ein Tabellenblatt (da...
17.01.2010 00:16:55
Thread-ID: 1130538
10 Beiträge
Tabellenblätter aus ListBox ein- und ausblenden
Dirk

Hallo,
Ich habe eine Userform mit einer Listbox in der alle eingeblendeten Tabellenblätter und eine Listbox in der alle ausgeblendeten Tabellenblätter enthalten sind. Nun möchte ich per Mausklick auf ein Tabellenblattname in einer der Listboxen das entsprechende Blatt ein- bzw. ausblenden.
17.04.2002 10:18:26
Thread-ID: 113989
3 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
7
2
1
1
2
18
8
9
2
5
2
3
1
1
2
1
1
1
1
5
3
7
1
2