Ich weiss wie man sucht und ersetzt, brauche allerdings noch so etwas wie einen Platzhalter.
Weis jemand wie ich das hinbekomme?
Sub a()
Dim a, b, c, d
a = Cells(1, 1).Value
ReDim c(Len(a))
For b = 1 To Len(a)
c(d) = Mid(a, b, 1)
d = d + 1
Next b
For d = 1 To UBound(c) Step 2
c(d) = c(d) & "0"
Next d
a = Join(c, "")
Cells(2, 1).Value = a
End Sub
Sub Makro1()
Selection.HomeKey Unit:=wdStory
Do While Not ActiveDocument.Range.End - 1 = Selection.Range.End
Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.TypeText Text:=Chr(210)
Loop
End Sub
Gruß