opmaak verwijderen voor return

[AVBEER]

Wie heeft er een script of een opzet om voordat er in Word een return (nieuwe regel) gegeven wordt alle opmaak (underline, bold, etc.) te verwijderen om zodoende de volgende regel schoon te beginnen.

 

[MDN111]

Hallo AVBEER,

Moet het echt met de Enter-toets zijn of mag het ook een toetsencombinatie zijn, bijvoorbeeld Alt+M ?

Groeten,
MDN111.

 

[AVBEER]

Opmaak verwijderen VB script

Onderstaand script is de oplossing:

Sub OpmaakOpschonen()

Dim oRg As Range

Set oRg = ActiveDocument.Range



'Underline

With oRg.Find

.ClearFormatting

.Replacement.ClearFormatting

.Format = True

.Font.Underline = wdUnderlineSingle

.Replacement.Font.Underline = wdUnderlineNone

.Text = "^p"

.Replacement.Text = "^p"

.Forward = True

.Wrap = wdFindStop

.Execute Replace:=wdReplaceAll

'Do While .Execute(Replace:=wdReplaceOne)

'oRg.Font.Reset

'oRg.Collapse Direction:=wdCollapseEnd

'Loop

End With

'Bold

With oRg.Find

.ClearFormatting

.Replacement.ClearFormatting

.Format = True

.Font.Bold = True

.Replacement.Font.Bold = False

.Text = "^p"

.Replacement.Text = "^p"

.Forward = True

.Wrap = wdFindStop

.Execute Replace:=wdReplaceAll

'Do While .Execute(Replace:=wdReplaceOne)

'oRg.Font.Reset

'oRg.Collapse Direction:=wdCollapseEnd

'Loop

End With

'Italic

With oRg.Find

.ClearFormatting

.Replacement.ClearFormatting

.Format = True

.Font.Italic = True

.Replacement.Font.Italic = False

.Text = "^p"

.Replacement.Text = "^p"

.Forward = True

.Wrap = wdFindStop

.Execute Replace:=wdReplaceAll

'Do While .Execute(Replace:=wdReplaceOne)

'oRg.Font.Reset

'oRg.Collapse Direction:=wdCollapseEnd

'Loop

End With

End Sub

 

[MDN111]

Hallo !

Ja, ik zie dat je de oplossing al hebt. Ik had enkel gereageerd omdat ik zag dat er nog geen enkele reactie was gekomen. Ik was tevens zo stom om niet te zien dat je vraag als de status van "opgelost" had gekregen. Al met al heb ik er toch van bijgeleerd.

Grtz,
MDN111.