Hallo zusammen,
ich bin neu im Forum und auch neu bei Excel und habe folgendes Problem:
Ich habe eine PDF Datei (keine Bilder, echter Text, laesst sich kopieren), und eine bereits vorgefertigte Excel Tabelle.
Die PDF Datei hat folgenden Aufbau. Paragraph, dann ein Datum im Textformat, dann einen kleinen Text. Alles steht hintereinander, und ist nur durch Bindestriche getrennt. Danach wieder das selbe. Und das auf circa 500 Seiten.
In Excel soll ich nun Paragraphennummer, Datum, und Text in den Spalten dafuer eintragen. Momentan mache ich das umstaendlich per Kopieren und einfuegen.
Gibt es dort auch eine andere Moeglichkeit? Es waere mir echt eine grosse Hilfe.
Vielen Dank im Voraus
Hi,
nach dem Einfügen ins Tabellenblatt gehe zu Daten==> Text in Spalten==> Trenner: Bindestrich
Vielen Dank fuer deine Antwort, das wuerde jedoch mein Problem nur fuer einen Absatz loesen. Ich habe jedoch circa 10.000 solcher.
Gibt es da eine Rundum-Loesung?
Hi,
Zitat:das wuerde jedoch mein Problem nur fuer einen Absatz loesen.
das verstehe ich nicht.
Du kannst doch alles aus deiner PDF ins Excel kopieren, danach alles markieren und wie oben beschrieben verfahren.
Hallo,
die Absaetze selbst sind ja nicht per Bindestrich getrennt. Ich zeige das mal.
Anbei eine Seite. Der Text eines Paragraphen kann, wie man hier sieht, auch auf zwei Seiten sein. Ich freue mich sehr ueber jegliche Antwort.
Hi,
sobald ich den kopierten Text ins Excel eingefügt habe, stellt es sich mir so dar:
Tabelle1 | A | B | C |
1 | Decreto Supremo 22129 | 15 de febrero de 1989 | Las importaciones |
2 | relativas y a las adjudicaciones efectuadas por Yacimientos Petrolíferos Fiscales | | |
3 | Bolivianos con anterioridad al 17 de agosto de 1988 por licitaciones o invitaciones | | |
4 | públicas o directas convocadas por dicha empresa estatal o sus agencias de | | |
5 | compras, se regirán por las normas legales vigentes con anterioridad a la | | |
6 | dictación del decreto supremo 21979 de 5 de agosto de 1988. | | |
7 | Decreto Supremo 22044 | 05 de octubre de 1988 | Aprueba la adjudicación |
8 | en favor de la Empresa Boliviana de Comercio Ltda. (EBCO LTDA.) representante | | |
9 | de Alfredo Evangelista y Cía SACI y C. de la Argentina, para provisión de seis (6) | | |
10 | tanques atmosféricos de techo cónico para almacenamiento de petróleo crudo y | | |
11 | mezclas de petróleo crudo y condensado, incluyendo agitadores, medidores de | | |
12 | nivel, instrumentos y otros accesorios. | | |
13 | Decreto Supremo 22027 | 19 de septiembre de 1988 | Aprueba en favor |
14 | de la compañía Servicios Aéreos Generales Helimar S.R.L, para la contratación de | | |
15 | servicios de helicópteros para apoyos de trabajos sísmicos de la brigada portátil | | |
16 | N° 2 de la Gerencia de Exploración. | | |
17 | Decreto Supremo 22026 | 19 de septiembre de 1988 | Autorizando la |
18 | compra directa de periféricos marca WANG. | | |
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Das Datum wird automatisch in Spalte B geschrieben. In Spalte C steht der Anfang des Textes, der bereits zeilenweise in Spalte A eingefügt wurde.
Ich sehe leider keine Möglichkeit, mit Bordmitteln dein Vorhaben zu lösen, da die Texte in unterschiedlich vielen Zeilen aufgeteilt sind. Ob eventuell mit Makros, sofern du sie einsetzen darfst/willst, geht, müssen dir aber unsere Spezalisten sagen.
Hallo,
bei einem Test von Hand würden die Texte recht sauber in den Zellen der Spalte A abgelegt. Diese könnte per Makro in 3 Spalten für Paragraph, Datum und Text umgesetzt werden. Kriterium wäre Schriftart "fett" für die Paragraphen.
D.h., die Struktur darf nicht vorgegeben sein, sondern entsteht mit dem Makro.
mfg
Hallo,
wenn die Daten aus dem pdf so wie in meinem vorher hochgeladenen Sheet stehen, hilft dieser Code, die (hoffentlich) gewünschte Spaltenstruktur zu erzeugen:
Code:
Sub Paragr()
Columns("A:B").Insert
lr = Cells(Rows.Count, "C").End(xlUp).Row
For i = 1 To lr
If Cells(i, "C").Font.Size = 15 Then
Cells(i, "C").Offset(2, -2) = Cells(i, "C")
Cells(i, "C").Offset(2, -1) = Cells(i + 1, "C")
Range("C" & i & ":C" & i + 1).Clear
End If
Next i
End Sub
mfg