There's so much comedy on television. Does that cause comedy in the streets?
Ik ben er inmiddels uit, misschien niet de sjiekste oplossing, maar hier is hij nog even voor de volledigheid:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| Public Sub FindReplace()
Dim r As Range
Set r = ActiveDocument.Range
With r.Find
.Text = "PlatteTekst"
While .Execute(MatchWholeWord:=True, MatchCase:=True)
r.Select
r.Fields.Add Range:=Selection.Range, _
Type:=wdFieldEmpty, Text:="DOCVARIABLE VariabeleNaam", _
PreserveFormatting:=True
r.End = ActiveDocument.Range.End
Wend
End With
End Sub |
There's so much comedy on television. Does that cause comedy in the streets?
'E's fighting in there!' he stuttered, grabbing the captain's arm.
'All by himself?' said the captain.
'No, with everyone!' shouted Nobby, hopping from one foot to the other.