Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1920to1924
1920to1924
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Code mit Excel in Worddatei auslesen

Forumthread: VBA-Code mit Excel in Worddatei auslesen

VBA-Code mit Excel in Worddatei auslesen
10.03.2023 11:28:50
Mathias
Hallo,
ich möchte mit Excel den VBA-Code in einer Worddatei zeilenweise komplett auslesen,
jede Zeile bearbeiten und anschließend alles speichern.
Hat jemand dafür einen Quellcode? Dankeschön.
Viele Grüße
Mathias
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Code mit Excel in Worddatei auslesen
10.03.2023 12:52:57
ChrisL
Hi
http://support.microsoft.com/de-de/help/282830
Laufzeitfehler '6068': Dem programmatischen Zugriff auf das Visual Basic-Projekt wird nicht vertraut.
Office fügt eine Sicherheitsoption hinzu, um programmatischen Zugriff auf das VBA-Objektmodell von jedem Automatisierungsclient aus absichtlich zu sperren, es sei denn, ein Benutzer möchte solche Zugriffe zulassen. Dies ist eine Einstellung, die pro Benutzer und pro Anwendung gilt und Zugriffe standardmäßig verweigert.
Diese Sicherheitsoption macht es für nicht autorisierte Programme schwieriger, "selbstreplizierenden" Code zu erstellen, der Endbenutzersysteme beschädigen kann.
Ich denke es wäre nicht empfehlenswert die Sicherheitseinstellungen zu ändern. Den nachfolgenden Schnipsel (als Ansatz) konnte ich darum auch nicht testen.
Sub t()
Dim wdApp As Object, wdDoc As Object
Dim CodeZeile As Long
Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Open("C:\Pfad\Dok1.docm")
'wdApp.Visible = True
With wdApp.VBE.VBProjects(1).VBComponents.Item(1).CodeModule
    For CodeZeile = 1 To .CountOfLines
        Debug.Print .Lines(CodeZeile, 1)
    Next CodeZeile
End With
'wdDoc.Close
Set wdApp = Nothing
Set wdDoc = Nothing
End Sub
cu
Chris
Anzeige
AW: VBA-Code mit Excel in Worddatei auslesen
10.03.2023 13:37:43
Mathias
Hallo,
vielen lieben Dank für den Quellcode.
Das scheint soweit zu funktionieren, allerdings nur für das erste VBA-Modul (ThisDocument)
Ich denke da müsste noch eine Schleife rein, so dass alle Codemodule nacheinander ausgelesen werden.
For Each "MODUL" In AppWD.Documents.VBProject.VBComponents ... oder so ähnlich
Aber wie genau sag ich es in VBA, damit Excel das auch versteht?
Viele Grüße
Anzeige
AW: VBA-Code mit Excel in Worddatei auslesen
10.03.2023 14:10:45
ChrisL
Hi
Module dürften die "Items" sein, schätzungsweise... For i = 1 to ...Items.Count
cu
Chris
AW: VBA-Code mit Excel in Worddatei auslesen
10.03.2023 16:32:36
Mathias
Hallo,
soweit bin ich jetzt gekommen. Habe die Anzahl der 6 Module ersteinmal direkt reingeschrieben. Mit item.count hab ich es leider nicht hinbekommen.
Ich komme damit ersteinmal weiter aber vielleicht hat ja noch jemand eine Idee, wie man an die Modulanzahl kommt. Dankeschön.
' For i = 1 To wdApp.VBE.VBProjects.VBComponents.Item.Count GEHT NICHT
For i = 1 To 6
With wdApp.VBE.VBProjects(1).VBComponents.Item(i).codemodule
For CodeZeile = 1 To .countoflines
Debug.Print .Lines(CodeZeile, 1)
Next CodeZeile
End With
Next i
Anzeige
AW: VBA-Code mit Excel in Worddatei auslesen
10.03.2023 16:59:40
ChrisL
Hi
Mit den Code Schlüsselwörtern mal im Internet gucken. Anscheinend erfolgt Count bei den VBComponents.
For i = 1 To wdApp.VBE.VBProjects(1).VBComponents.Count
        With wdApp.VBE.VBProjects(1).VBComponents.item(i).CodeModule
cu
Chris
Anzeige
AW: VBA-Code mit Excel in Worddatei auslesen
11.03.2023 00:10:49
Mathias
Dankeschön, jetzt läuft's perfekt :-)
;

Forumthreads zu verwandten Themen

VBA Word / Excel / Datendatei
Franjo

Hallo an alle,
ich möchte aus Word-VBA (Userform) Daten aus einer Datei auslesen und bei Bedarf den Sprung zur Dateneingabe in diese Datei machen.
1. Gedanke: Textdatei anlegen und die Daten auslesen/schreiben
habe ich verworfen, da mir das Wissen fehlt, eine Textdatei nach bestimmt...
09.04.2009 19:40:47
Thread-ID: 1068109
2 Beiträge
VBA Datei speichern gleich wieder öffnen
Timonski

Servus
ich habe eine Exceldatei mit viel VBA und bei einem Tabellenblatt wird die Datei sehr langsam,
dann speicher ich und lad sie gleich wieder...
und diesen Befehl würde ich gern als Icon in der Symbolleiste hinterlegen...
hätte mir da einer einen Vorschlag?
vielen Dank
21.10.2009 09:36:11
Thread-ID: 1110986
4 Beiträge
Anzeige
Word Datei aus Excel heraus öffnen?
Micha

Hallo liebe Spezialisten,
ich habe hier im Forum den unten stehenden Code gefunden, mit dem ich über einen Button in meiner Excelmappe die Word Datei öffnen kann.
Da beide Dateien auf dem Server liegen und nicht alle User das gleiche Laufwerksmapping "P:\ " haben, möchte ich fragen ob m...
05.11.2009 13:02:10
Thread-ID: 1114713
5 Beiträge
Mit VBA Datei auf Server öffnen
egon.kernien@online.de

Hallo Experten!
Ich lasse mit diesem Code eine Exceldatei pda.xls die auf einem Server liegt so öffnen, Daten aus einer Tabelle lesen-kopieren, schliessen.:
ChDir Pfad
strFile = Application.GetOpenFilename
If strFile = "Falsch" Then Exit Sub
Set wbSource = Workbooks.Open(Fi...
03.12.2009 11:32:17
Thread-ID: 1121538
3 Beiträge
Anzeige
mit VBA Word-Dokumente ausdrucken WICHTIG!!!!
Stefan Sasse

Hallo,wer kann mir hier weiterhelfen? Ich will in Excel-VBA Word-Dokumente automatisiert ausdrucken, d.h. ich habe mehrere Dateien, die in einer Schleife gesucht werden und dann verschoben werden, nach dem Verschiebe-Vorgang soll die Datei ausgedruckt werden. Wie mache ich dass?Bitte um Antwort...
26.04.2002 09:44:31
Thread-ID: 116512
2 Beiträge
per vba hyperlink von excel in worddokument
excel

Hallo,
ich öffne in einem makro ein word-dokument und füge dort zellinhalte in textmarken ein.
in einer der zellen steht ein hyperlink. wie bekomme ich es hin, dass ich in word dann auch einen hyperlink habe und nicht nur den text der zelle
Gruß
effha
25.10.2010 19:58:40
Thread-ID: 1183824
3 Beiträge
VBA in Word
Jesús

Hallo Zusammen,
nach dem mein letztes Problem hier erfolgreich gelöst wurde, stehe ich vor einer neuen Hürde.
Folgendes:
Ich habe ein Word Dokument mit einer Tabelle (siehe Anhang). https://www.herber.de/bbs/user/73584.doc
In dieser Tabelle soll die Versionierung gepflegt werde...
16.02.2011 16:41:33
Thread-ID: 1201211
22 Beiträge
vba Datei öffnen, Erweiterung unbekannt
Daniel

Hallo VBA - Experten,
Wie öffne ich in vba eine Exceldatei, ohne dass ich die Dateierweiterung kenne? Mein Problem: ich habe ein Makro erhalten, welches Dateien im Excel 2003 - Format öffnet. Das Öffnen sollte auch funktionieren, wenn die Dateien in einem neueren Format mit anderer Erweiter...
09.04.2011 16:16:22
Thread-ID: 1209733
4 Beiträge
Öffnen einer Datei per VBA
Christian

Hallo Forum,
ich möchte per VBA eine Datei öffnem, deren Pfad und Namen als Text in einer Zelle steht.
in A1 steht "D:\test.xls"
dann will ich im Macro den Befehl:
Datei$ = Cells(1, 1).Select
verwenden, um den Namen in der Variablen Datei$ zu speichern.
Das geht nicht....
18.08.2011 12:48:10
Thread-ID: 1226611
4 Beiträge
Aus Excel Worddokument öffnen
Niko

Hallo zusammen,
ich will aus Excel ein Dokument in Word öffnen und gebe dazu folgenden Code ein. Sub Brief_oeffnen() Dim wdAnw As Object Dim wdDok As Object Set wdDok = GetObject(Worksheets("Klasse").Range("C40")) Set wdAnw = wdDok.Parent wdAnw.Visible = True wdAnw.Activate End Sub
Ic...
19.02.2012 16:27:34
Thread-ID: 1251517
6 Beiträge
Macro in Word ausführen
Benedikt

Guten Morgen und ein gutes neues Jahr
Obwohl zu diesem Thema zig Beiträge existieren schaffe ich es auch am zweiten Tag nicht, dass nach dem Öffnen von Word per VBA aus Excel ein Macro in Word ausgeführt wird.
Das Wordmacro soll eine Userform öffnen und heisst MenuAnzeigen. Hinterlegt i...
04.01.2013 11:09:17
Thread-ID: 1292851
8 Beiträge
xldialogprintersetup beim öffnen der Datei per vba
Marcel

Hallo zusammen,
Ich habe folgendes Problem:
Beim öffnen meiner Exceldatei öffnet sich das Dialogfenster "Printersetup".
Ich möchte das dieser Vorgang per VBA-Code abgebrochen wird.
Könnt Ihr mir helfen?
Gruß Marcel
09.01.2013 07:21:01
Thread-ID: 1293347
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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