Hallo,
ik ben bezig aan een macro waarbij de gebruikte tekenstijl gemarkeerd wordt in Word
naderhand zoek ik in Indesign naar deze unieke code om de opmaak terug te zetten
de macro loopt perfect enkel zoekt hij niet in de voetnoot tekst
reeds bedankt voor dit te lezen
ik ben bezig aan een macro waarbij de gebruikte tekenstijl gemarkeerd wordt in Word
naderhand zoek ik in Indesign naar deze unieke code om de opmaak terug te zetten
de macro loopt perfect enkel zoekt hij niet in de voetnoot tekst
reeds bedankt voor dit te lezen
Code:
Sub Markeer_opmaak()
Application.ScreenUpdating = False
With ActiveDocument.Range.Find
'zoek ondelijnde tekst
.ClearFormatting
.Replacement.ClearFormatting
.Format = True
.Forward = True
.MatchWildcards = True
.Wrap = wdFindContinue
.Font.Underline = True
.Text = ""
.Replacement.Text = "X€X^&X€XUn"
.Execute Replace:=wdReplaceAll
'zoek Bold italic
.ClearFormatting
.Font.Bold = True
.Font.Italic = True
.Replacement.Text = "X€X^&X€XBoIt"
.Execute Replace:=wdReplaceAll
'zoek italic
.ClearFormatting
.Font.Italic = True
.Font.Bold = False
.Replacement.Text = "X€X^&X€XIt"
.Execute Replace:=wdReplaceAll
'zoek Bold
.ClearFormatting
.Font.Italic = False
.Font.Bold = True
.Replacement.Text = "X€X^&X€XBo"
.Execute Replace:=wdReplaceAll
'zoek kleinkapitaal
.ClearFormatting
.Font.Italic = False
.Font.SmallCaps = True
.Replacement.Text = "X€X^&X€XKl"
.Execute Replace:=wdReplaceAll
End With
Application.ScreenUpdating = True
End Sub