vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: RTF Dokument bearbeiten 
Autor: Oly
Datum: 23.06.09 22:09

Schade das niemand eine Lösung kennt
Das es scheinbar nicht anderes geht, den Weg über Word zu gehen habe ich es anders versucht.
Leider habe ich selbst dabei ein kleines Problem und hoffe das Ihr mir hierbei helfen könnt?

Das Problem ist, dass der zu suchende Begriff "#Briefanrede#" gefunden und selektiert wird, aber nicht durch "Hallo" ersetzt wird, warum?



Dim wApp As Object
Dim vFindText As Variant
Dim vReplText As Variant
Dim i As Long
' Word-Objekt erzeugen
Set wApp = CreateObject("Word.Application")

With wApp
' Word anzeigen
.Application.Visible = True
.Application.Activate

' Word-Dokument laden und anzeigen
.documents.Open App.Path & "\text.rtf"


.Application.Selection.Find.ClearFormatting
.Application.Selection.Find.Replacement.ClearFormatting
vFindText = Array("#BRIEFANREDE#") 'hier die zu suchenden Wörter eingeben
vReplText = Array("Hallo") 'hier die Ersetzungen

With .Application.Selection.Find
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Format = True
.MatchCase = True


For i = LBound(vFindText) To UBound(vFindText)
.Text = vFindText(i)
.Replacement.Text = vReplText(i)
.Replacement.Highlight = True 'hier wird Hervorhebung vorgenommen
.Execute Replace:=wdReplaceAll
Next i
End With

End With
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
RTF Dokument bearbeiten2.743Oly16.06.09 21:54
Re: RTF Dokument bearbeiten1.973ModeratorDieter17.06.09 06:10
Re: RTF Dokument bearbeiten2.001Oly17.06.09 09:02
Re: RTF Dokument bearbeiten1.997ModeratorDieter17.06.09 09:45
Re: RTF Dokument bearbeiten1.932Oly17.06.09 22:29
Re: RTF Dokument bearbeiten1.901Oly20.06.09 21:44
Re: RTF Dokument bearbeiten1.893Oly20.06.09 22:38
Re: RTF Dokument bearbeiten1.921Oly21.06.09 10:50
Re: RTF Dokument bearbeiten1.875Oly22.06.09 22:24
Re: RTF Dokument bearbeiten1.878Oly23.06.09 22:09
Re: RTF Dokument bearbeiten2.195Lisa (NR)26.06.09 23:10

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel