Dikgedrukt naar tussen sterretjes

[evanhoefsmit]

Beste lezer,

Ik ben nu al een tijdje bezig met het aanpassen van ingrediënten naar de toekomstige allergenenwet.
Ik heb dit document (zie afbeelding) tot mijn beschikking, maar de dikgedrukte woorden moeten vervangen worden door hetzelfde woord, maar dan met een sterretje ervoor en erachter. Het gaat om heel veel producten dus ik hoopte dat er een macro zou zijn dat alles in één keer kan worden gewijzigd.
Bijvoorbeeld: melk moet door *melk* worden vervangen.
Dit is omdat het stickerprogramma het allergeen alleen herkent, wanneer het dus tussen sterretjes staat. Helaas krijg ik het echter niet voor elkaar.
Kan iemand mij een korte uitleg geven (het liefst met ondersteuning van plaatjes) hoe ik dit voor elkaar kan krijgen?

Met vriendelijke groet,

E. Hoefsmit

 

[edmoor]

Plaatjes heb je niet zoveel aan. Je kan beter even een voorbeeld document plaatsen.
Kan je het niet met CTRL-F doen?

 

[evanhoefsmit]

Plaatjes heb je niet zoveel aan. Je kan beter even een voorbeeld document plaatsen.
Kan je het niet met CTRL-F doen?

Neen, dit is helaas niet mogelijk.
Het selecteren van de dikgedrukte woorden is misschien wel mogelijk, maar hoe kan ik dan bij 'vervanging' aangeven dat het om hetzelfde woord gaat, en dat het tussen sterretjes moet komen?

Met vriendelijke groet,

Evan Hoefsmit

 

[edmoor]

Ik kan me niet voorstellen dat het niet mogelijk is om een documentje te plaatsen met in een cel de volledige waarde van de gele cel in kolom N van je plaatje.

 

[Niels28]

gewoon met ctrl-H

zoeken naar en vervangen door.
Kun je zelfs aangeven of het dik gedrukt moet zijn.



Niels

 

[sylvester-ponte]

Hallo Evan,
in jouw plaatje staat bvb
Melkeiwit
wat moet dat worden?

en plaats graag een excel_bestandje aub

 

[WHER]

Terechte opmerkingen van Sylvester, maar ik heb toch een poging gewaagd:

 

[sylvester-ponte]

Hallo WHER,

dat is een gave oplossing met die CreateObject("VBScript.regexp")
hoe kom je er op?

ik heb jouw eerste function een beetje aangepast.:

Public Function BoldReplace(myRng As Range)
Dim obj, m As Object, myStr As String
Set obj = CreateObject("VBScript.regexp")
obj.Global = True
obj.Pattern = "(\w+)"
myStr = myRng.Value
For Each m In obj.Execute(myRng.Value)
  If myRng.Characters(m.firstindex + 1, m.Length).Font.Bold = False Then
  Else
    myStr = Replace(myStr, m, "*" & m & "*")
  End If
Next m
BoldReplace = myStr
Set obj = Nothing
End Function

ik denk dat die een goede kans maakt. zie grijze cellen.

 

[WHER]

Hi Sylvester,

hoe kom je er op?

Veel rondneuzen op fora....
De UDF is voor 80% overgenomen van een "guru" genaamd Jindon.

Welke versie best voldoet aan de eisen van de vraagsteller hangt af van:

Melkeiwit
wat moet dat worden?