Html in VBA voor word

Status
Niet open voor verdere reacties.
P

Paulsilver

Nieuwe gebruiker
Lid geworden
8 jan 2019
Berichten
3
Hoi allemaal,

Ik zit met een klein probleempje ik wil de opgenomen macro ".Replacment.text" gebruiken om een fillerwoord te vervangen door een stukje html.
Nu blijf ik steeds de compileerfout "Verwacht: instructie einde" krijgen. Is er misschien een manier om er voor te zorgen dat hij het stuk html gewoon ziet als tekst in plaats van de html?

Iedereen alvast bedankt voor jullie tijd.

Groeten,

Paul
 
Mijn excuses ik had er niet bij stil gestaan er een uitgebreid voorbeeld bij te geven.

De macro die ik heb is het volgende:
Code: 
Sub QuickHTML()
'
' Macro1 Macro
'
'klantnaam
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Klantnaam"
        .Replacement.Text = "{{ customer.name }}"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Ik kan hier mee het boven staande gewoon vervangen zonder problemen.
Maar nu wilde ik proberen er ook het volgende stuk html mee in te zetten: <header><p style="padding-left:40px"><img height="100" src="{{ customer.logo.path }}"></p></header> .

Hierbij krijg ik steeds de compileerfout

In de code ziet het er dan zo uit:
Code: 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "klantlogo"
        .Replacement.Text = "<header><p style="padding-left:40px"><img height="100" src="{{ customer.logo.path }}"></p></header>"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
Laatst bewerkt door een moderator:
Code: 
Sub M_snb()
   activedocument.content.find.execute "klantlogo", "<header><p style=""padding-left:40px""><img height=""100"" src=""" & customer.logo.path & """></p></header>"
End Sub
 
Hoi snb,

Bedankt voor je snelle reactie.
Ik heb je stukje code uitgeprobeerd en de command opgezocht om te kijken of ik misschien iets verkeerd neerzetten.
Maar zo ver ik kon zien is dit niet het geval.
Maar ik blijf de error krijgen dat hij een object vereist.

Ik moet hier even bij vermelden dat mijn vba kennis basis is. Ik begrijp wat er staat en kan dingen aanpassen maar ben er niet vloeiend in.

Zou je misschien kunnen vertellen hoe ik jou code zou moeten gebruiken of zou het in deze staat meteen moeten werken?

Alvast bedankt.
 
De code loopt bij mij stuk op customer.logo.path

@snb, het linkje is blijkbaar niet doorgekomen achter 'Lees eerst dit:' in jouw reactie in #6.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan