Office Forum www.Office-Loesung.de Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: ---> Neu: Office 2010 Forum <- Forum-Regeln :: FAQ :: Forum-Suche :: Mitgliederliste :: Benutzergruppen :: Favoriten ::  Registrieren :: Profil :: Briefkasten :: Login

Ausdruck suchen, Zeile kopieren und neu Einfügen.

Office Forum -> Word Forum -> Word VBA Programmierung (Makros)
zurück: Bestimmtes Feld vor Aktualisierung sperren und entsperren weiter: Excel ole Objekt bearbeiten			Unbeantwortete Beiträge anzeigen
	Status: Antwort		Diese Seite Freunden empfehlen Zu Browser-Favoriten hinzufügen

Autor	Nachricht
valle2 Neuling Verfasst am: 11. Dez 2009, 15:29 Rufname:	- Ausdruck suchen, Zeile kopieren und neu Einfügen. Nach oben        Version: Office 2003 Hallo Leute, ich bitte Euch um Hilfe. Ich brauche ein Makro für Word 2003. Dieses Makros soll folgende Aufgabe erledigen: Suche nach einem Ausdruck (Wort), die kompletten Zeile kopieren und in eine neue erstellte Dokument automatisch einfügen. Beispiel: Vorhandenes Dokument: … Text Ausdruck_1 ,Text_1… Text Text Ausdruck_2, Text_2… Text Ausdruck_3, Text_3… … Nach der Ausführung von Makro wird ein neues Dokument erstellt mit dem Inhalt: Ausdruck_1 ,Text_1… Ausdruck_2, Text_2… Ausdruck_3, Text_3… Danke im vorraus. Valentin
Gast500 Gast Verfasst am: 13. Dez 2009, 13:06 Rufname:	- AW: Ausdruck suchen, Zeile kopieren und neu Einfügen. Nach oben        Version: Office 2003 Probiers mal hiermit. Das Ausgabedokument muss angelegt werden, dafür wird jeder neu eingetragene Wert abgespeichert. Sub zeilenanfang() ' Makro für Word 2003 ' Suche nach einem Ausdruck (Wort) Dim suchbegriff As String Dim Ausgabe As String Dim oDoc As Document Dim rDoc As Document Set oDoc = ActiveDocument ' Das aktuelle Dokument wird der Variable zugewiesen suchbegriff = Trim(InputBox("Hier kommt der Suchbegriff rein. ", "Abfrage")) ' Jetzt beginnt die Suche nach dem Wort Selection.Find.ClearFormatting With Selection.Find .Text = suchbegriff .Replacement.Text = "" .MatchWildcards = False .MatchCase = True ' Es wird unterschieden nach Klein- und Großbuchstaben .Wrap = wdFindContinue .Format = False End With ' Jetzt beginnt eine Schleife, mit der das Dokument ausgelesen wird Do While Selection.Find.Execute If Selection.Find.Found = True Then ' Wenn der Begriff gefunden wird Selection.StartOf unit:=wdLine Selection.EndOf unit:=wdLine, Extend:=wdExtend ' Zeile wird bis zum Ende markiert Ausgabe = Selection.Range.Text ' Der Text der Markierung geht in die Variable "ausgabe" ein Selection.EndOf unit:=wdParagraph ' Der Cursor muss weiter, sonst gibts eine Endlosschleife! ' Jetzt gehts ins Ausgabe-Dokument Set rDoc = Documents.Open("C:\Dokumente\ersetzen.doc") Selection.EndKey unit:=wdStory Selection.TypeText Text:=Ausgabe & vbCrLf ' Ausgabe des Textes ActiveDocument.Close savechanges:=wdSaveChanges ' Ausgabe-Dokument schließen und speichern Set oDoc = ActiveDocument ' Das Ausgangsdokument wird wieder aufgerufen End If Loop End Sub
valle2 Neuling Verfasst am: 15. Dez 2009, 15:42 Rufname:	- AW: Ausdruck suchen, Zeile kopieren und neu Einfügen. Nach oben        Version: Office 2003 Hallo Gast500, vielen Dank für die Hilfe. Deine Lösung erfühlt die Aufgabe, aber ich hätte es etwas Komfortabel. Das ständige Datei-Öffnen, Datei-Schließen bei ca. 100 gefundenen Ausdrucken machen die Augen richtig müde. Ich währe Dir sehr Dankbar wenn Du denn Makro programmieren könntest nach folgender Vorstellung: 1 - Cursor am Dokumentanfang positionieren // Selection.HomeKey Unit:=wdStory 2 - Suche nach Ausdruck 3 - Wenn der Ausdruck gefunden ist, Zeile markieren und in ein Array speichern 4 - Suche fortsetzen bis zum Dokumentende 5 - Ein Neues Dokument wird geöffnet // Documents.Add DocumentType:=wdNewBlankDocument 6 - In das neue Dokument der Inhalt des Array wiedergeben 7 - Das neue Dokument bleibt Aktiv zur Weiterbearbeitung Vielen Dank Valentin

Nach oben

Alle Zeiten sind GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1 Gehe zu: Forum auswählen Office Forum Allgemein----------------Office Forum BekanntmachungenFragen & Anregungen zum Office ForumOffice Dienstleistungen && Schulungen || Jobs ~~ SoftwareOffice 2007 ForumOffice 2010 ForumAnwendungsübergreifende FragenForum für OpenOffice und Staroffice  Word Forum----------------Word Tipps & TricksWord FormateWord GestaltungselementeWord SerienbriefeWord VBA Programmierung (Makros)Word Hilfe Excel Forum----------------Excel Tipps & TricksExcel FormateExcel FormelnExcel AuswertungenExcel VBA (Makros)Excel Hilfe Powerpoint Forum----------------PowerPoint Tipps & TricksPowerpoint PräsentationenPowerPoint VBA (Makros) Outlook Forum----------------Outlook Tipps & TricksOutlook MailOutlook KontakteOutlook KalenderOutlook HilfeOutlook VBA und FormulareOutlook Express Access Forum----------------Access Tipps & TricksAccess Tabellen & AbfragenAccess FormulareAccess BerichteAccess Programmierung / VBAAccess Hilfe MS Access und Datenbank-Server----------------Microsoft Access und MS SQL ServerMicrosoft Access und MySQLMicrosoft Access und andere Datenbank-Server Office Software----------------MS Project ForumPublisher ForumMS MapPoint ForumMS Visio ForumMS OneNote ForumMS InfoPath ForumMS Groove ForumMS SharePoint Services Forum HTML Editor Forum----------------Frontpage ForumMS Expression Web ForumMacromedia Dreamweaver ForumHTML Editoren ForumHTML & CSS ForumPHP & JavaScript Forum Computer Forum----------------SicherheitHardware & Betriebssystem ForumWindows Vista & Windows 7 ForumSoftware Forum (Sonstige Software) Workshops----------------WorkshopsWorkshop: RegressionsanalyseWorkshop: Webdesign für EinsteigerWorkshop: Excel Projekte Banken Forum----------------WISO Mein Geld ForumStarmoney ForumGirokonto & Tagesgeld ForumOnline Broker ForumBanking Software Chillout Forum----------------Office Treffen RegionalFußball ForumSmalltalkSchach ForumForum-Spiele

Du kannst Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen. Du kannst Dateien in diesem Forum nicht posten Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen		Antworten	Autor	Aufrufe	Letzter Beitrag
	Word VBA Programmierung (Makros): Button an bestimmter Stelle einfügen	4	firus	146	19. Apr 2010, 14:12 firus
	Word Hilfe: VBA Serienbrief Empfänger suchen und auswählen	1	Gast	130	07. März 2010, 21:35 Hubert_R
	Word VBA Programmierung (Makros): bilder in wordtabelle einfügen!!!	4	rcamma	567	16. Jun 2009, 17:33 Lisa
	Word Formate: Zeichen pro Zeile auf 70 festlegen	3	Ninchen	822	06. Apr 2009, 12:20 Lisa
	Word VBA Programmierung (Makros): Text in Textfelder einfügen per VBA	1	lemp	1126	02. März 2009, 14:43 lemp
	Word VBA Programmierung (Makros): In welcher Zeile Find gefunden?	2	gerwas	217	24. Okt 2008, 08:21 gerwas
	Word VBA Programmierung (Makros): Grafik per VBA in Dokument einfügen	5	julien88	608	06. Aug 2008, 20:28 jensspeedy
	Word VBA Programmierung (Makros): Seitenumbruch nach Wort per Makro/VBA einfügen - WIE??	2	Calvinstefan	1350	17. Jun 2008, 13:07 Calvinstefan
	Word Hilfe: Dateinamen kopieren	0	ArianeH	336	21. Apr 2008, 10:11 ArianeH
	Word Hilfe: Autotext einfügen ist grau hinterlegt	0	Robert Radant	1529	21. Nov 2007, 15:15 Robert Radant
	Word Formate: SEQ Verknüpfung im Text kopieren	0	dbaltaci	324	05. Sep 2007, 01:39 dbaltaci
	Word VBA Programmierung (Makros): Hängende Einzüge suchen und Format zuweisen	3	VBAnause	1176	15. Jun 2007, 15:38 VBAnause

----> Diese Seite Freunden empfehlen <------	Impressum - Besuchen Sie auch: HTML CSS