Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

RTF Dokumente durchsuchen und in Excel einfügen (Quellcode teilweise vorhanden)

Mitglied: Xplosio

Xplosio (Level 1) - Jetzt verbinden

27.08.2013 um 11:20 Uhr, 2141 Aufrufe, 2 Kommentare

Hallo liebe Community,

ich bin neu hier und hoffe hier Hilfe zu finden Ich habe im Office Forum einen sehr netten und guten Member kennengelernt, der mit mir ein VBA Skript erstellt hat. Dieses soll mehrere Dokumente auf ein bestimmten begriff durchsuchen, und zwar sollen alle wörter die mit $$T_Fix und mit # enden kopiert werden. Das Skript öffnet in Excel ein Fenster, womit ich mehrere Dokumente auswählen kann. Überall wo der Begriff auftaucht, wird dies in einer Zeile in Excel eingefügt. Es Funktioniert auch Prima. Mein einziges Problem ist, dass ich das nicht nur für doc Dokumente brauche, sondern auch für Rich Text files (rtf). Hier der Quellcode:

Sub findeFix1()
Dim appWord As Word.Application
Dim docWord As Word.Document
Dim objWord As Object
Dim objDialogOpen As Object
Dim ranG As Range
Dim DateiAuswaehlen As Variant
Dim objFiledialog As FileDialog
Dim rngZeiler As Range, leer As Boolean, kn As Long
Dim rngwdoc As Word.Range
Dim strFile As String

ThisWorkbook.Worksheets("AufnahmeTab").Activate

Set appWord = CreateObject("Word.Application")
Set objFiledialog = Application.FileDialog(msoFileDialogFilePicker)

With objFiledialog
.AllowMultiSelect = True
If .Show = True Then
For Each DateiAuswaehlen In .SelectedItems


Set docWord = GetObject(DateiAuswaehlen)
docWord.Range.Find.ClearFormatting
Set rngwdoc = docWord.Range


With rngwdoc.Find
.Text = "$$T_FIX*#"
.Replacement.Text = ""
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Do
rngwdoc.Find.Execute
oli = rngwdoc.Find.Found
Debug.Print rngwdoc
If oli = True Then
Set ranG = Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
ranG = rngwdoc
End If
Loop Until oli = False
Set docWord = Nothing
Next DateiAuswaehlen
End If

End With

Set objFiledialog = Nothing

Range("I:O").Columns.AutoFit
Set objDialogOpen = Nothing
Set docWord = Nothing
appWord.Quit False
Set appWord = Nothing
End Sub

Ich habe keine Ahnung wie ich die RTF machen soll, da wir größtenteils mit der Microsoft Word-Objekt gearbeitet haben. Kann mir da jemand weiterhelfen?

LG
Mitglied: amn.ssy
27.08.2013, aktualisiert um 12:07 Uhr
Hallo Xplosio!

schau mal dahin, vieleicht hilft dir das weiter:
http://www.herber.de/forum/archiv/764to768/t764400.htm

... ansonsten könntest du die RTF's nicht einfach als Textdateien behandeln (?) ...

Gruß
amn.ssy
Bitte warten ..
Mitglied: Xplosio
27.08.2013 um 14:40 Uhr
Also ich hab ein neuen Algorithmus erstellt und will jetzt, dass er nur die Anker die mit "T_Fix" anfangen und mit "#" beenden, kopiert und in excel zeilenweise einfügt. Momentan kopiert er einfach alles. Kann mir dabei jemand helfen? Hier der NEUE Quellcode:

Option Explicit
' Pfad anpassen - letzten Backslash nicht vergessen
Const strPath As String = "C:\"
Dim objWDD As Object
Dim objWD As Object
Public Sub RTF_Read()
Application.ScreenUpdating = False
On Error Resume Next
Set objWD = GetObject(, "Word.Application")
Select Case Err.Number
Case 0
Err.Clear
Set objWD = CreateObject("Word.Application")
objWD.Visible = True ' True wenn Du was sehen willst
If Err.Number > 0 Then
MsgBox Err.Number & " " & Err.Description
Set objWD = Nothing
Exit Sub
End If
Case Else
MsgBox Err.Number & " " & Err.Description
Set objWD = Nothing
Exit Sub
End Select
On Error GoTo 0
On Error GoTo Fin
Call Do_Word
Fin:
Set objWDD = Nothing
Set objWD = Nothing
Application.ScreenUpdating = True
If Err.Number <> 0 Then MsgBox "Fehler: " & _
Err.Number & " " & Err.Description
End Sub
Private Sub Do_Word()
Dim objDocRange As Object
Dim strFile As String
strFile = Dir$(strPath & "*.rtf")
Do While strFile <> ""
Set objWDD = objWD.Documents.Open(strPath & strFile)
Set objDocRange = objWDD.Range
objDocRange.Copy
Worksheets.Add After:=ThisWorkbook.Worksheets(Worksheets.Count)
ActiveSheet.PasteSpecial Format:="Text"
Application.CutCopyMode = False
objWDD.Close False
strFile = Dir$()
Loop
objWD.Quit
End Sub
Bitte warten ..
Ähnliche Inhalte
Entwicklung

Excel-Tabelle mit Formatierung zu .rtf umwandeln

gelöst Frage von freshman2017Entwicklung3 Kommentare

Liebe Gemeinde, ich suche gerade nach einer Möglichkeit eine Excel-Tabelle mit Formatierung in eine .rtf Datei umzuwnadeln, sodass in ...

VB for Applications

Bilder fest in Excel Dokument speichern

Frage von JinzumiaVB for Applications6 Kommentare

Hallo zusammen, ich bin am rätseln und zwar habe ich mit folgendem Programm Bilder automatisiert in Excel eingebunden Sub ...

Datenbanken

Excel-Spalte mit rtf Steuerzeichen umwandeln in "normalen" Text

Frage von FrankAsDatenbanken6 Kommentare

Ich habe eine Export-Funktion in einem ERP benutzt, um Daten nach Excel zu exportieren. Dabei wurde eine Spalte mit ...

Microsoft Office

Word Dokument (vorausgefüllte Formulare) aus Excel Tabelle generieren

Frage von Server4AlleMicrosoft Office1 Kommentar

Hallo, gibt es eine Möglichkeit aus einer Excel Tabelle (Datenquelle) heraus mehrere Word Dokument (vorausgefüllte Formulare) zu generieren? Oder ...

Neue Wissensbeiträge
Viren und Trojaner

Staatstrojaner soll auch per Einbruch installiert werden können

Information von transocean vor 1 TagViren und Trojaner2 Kommentare

Moin, Bundesinnenminister Horst Seehofer will dem Verfassungsschutz Wohnungseinbrüche erlauben, um den geplanten Staatstrojaner zu installieren. Gruß Uwe

Windows 7
Win7 Update scheitert KB4512506
Information von infowars vor 1 TagWindows 7

Falls jemand auch das Problem hat mit dem: Monatliches Sicherheitsqualitätsrollup für Windows 7 für x64-basierte-Systeme (KB4512506) Das scheint mit ...

Humor (lol)
Wenn hacken nach hinten los geht
Information von em-pie vor 2 TagenHumor (lol)5 Kommentare

Moin, weil heute Freitag ist, nachfolgender kurzer Artikel zum schmunzeln:) l+f: NULL ist ein notorischer Falschparker

Windows Update
Windows: August 2019 Patchday-Probleme
Information von kgborn vor 3 TagenWindows Update3 Kommentare

Ich kippe mal einige kurze Informationen hier rein - vielleicht hilft es Betroffenen. Die August 2019-Updates für Windows haben ...

Heiß diskutierte Inhalte
Switche und Hubs
Glasfaser-Anschluss Telekom muss verteilt werden
Frage von cansoniSwitche und Hubs26 Kommentare

Vorweg: Bin nur Anwender und kein Experte Die Situation: Der Vermieter stellt einen Glasfaseranschluss in der Wohnung bereit. Wir ...

Hyper-V
VMs von Hyper-V auf externer Festplatte
Frage von SnowbirdHyper-V15 Kommentare

Hallo, ich möchte gerne von VirtualBox auf Hyper-V umsteigen und würde auch gerne weiterhin meine VMs auf der externen ...

Ubuntu
Download manchmal langsam oder komplette Abbrüche bzw. Videos spielen nicht bis zum Schluss
Frage von stefanstpUbuntu14 Kommentare

Immer wieder berichten unsere Kunden, dass Downloads abbrechen oder super langsam sind oder Videos nicht abgespielt werden können bzw. ...

Festplatten, SSD, Raid
SSDs durch Lagerung ohne Strom nach 6 Monaten defekt?!?
gelöst Frage von GlobetrotterFestplatten, SSD, Raid13 Kommentare

Moin Gemeinde Ich hatte gerade nen Trauerspiel Habe hier etliche NAS-Geräte herumfahren welche ich mal auf die Seite gelegt ...