Find en Replace werkt niet meer

[icehat]

Het onderstaande VBA programma werkt niet in Office 2007, maar wel in Office 2003...:

Private Sub VerwijderTags(Tag, Stijl)

	    Dim rngTemp As Range

	    Set rngTemp = docMaster.Content
	    With rngTemp.Find
	        .ClearFormatting
	        .Replacement.ClearFormatting
	        .MatchWholeWord = True
	        .Text = Tag
	        .Replacement.Style = Stijl
	        .Replacement.Text = " "
	        'docMaster.ActiveWindow.Selection.Delete (was al weg)
	        
	        End With

	rngTemp.Find.Execute Replace:=wdReplaceAll

	End Sub

De code vervangt HTML-tags (bv. < b >) door spaties en maakt de tekst op (bv. naar bold). Het wordt gebruikt voor overdracht van gegevens uit Access naar Word.

Alvast hartelijk bedankt voor de hulp! :thumb:

edit: html tag aangepast met spaties zodat het forum niet begint op te maken

 

[Axel Hagg]

Dag Icehat,

.Replacement.Style = Stijl zal niet werken. Wel .Replacement.Style.Bold = True

Overigens heeft een jaartal toch niets te maken met de functie Find?

Succes,

Axel.

 

[icehat]

Dag Icehat,

.Replacement.Style = Stijl zal niet werken. Wel .Replacement.Style.Bold = True

Overigens heeft een jaartal toch niets te maken met de functie Find?

Succes,

Axel.

De jaartallen verwijzen naar de versie van Office (Office 2003 en 2007).

Het is de bedoeling dat Word ook andere dingen kan aanpassen zoals bv. cursief en niet alleen bold...

 

[Axel Hagg]

Dag Icehat,

Ja italic is ook mogelijk, maar wel zo: .Replacement.Style.Italic = True

Succes,

Axel.

 

[icehat]

Maar als je dat vast programmeert is het ook niet echt variabel hé... Da's het probleem

 

[Axel Hagg]

Dag Icehat,

Het begin van programmeren is een (uitgebreide) analyse maken van de gegevens die je hebt en wat je ermee wilt bereiken.

Als je me vertelt wat je precies wilt dan wil ik proberen je te helpen.

Gegroet,

Axel.