Semikolon zwischen zwei Namen einfügen

Question

Ich bin neu in VBA. Wie ich Semikolon zwischen zwei Namen einfüge. Nach dem Einlegen der Semikolon muß ich benutzerdefinierten Stil für, dass ich den folgenden Code verwenden anwenden

Public Sub MakeAuthor() 
     ApplyParaStyle ActiveDocument.Styles("author"), False 
     Application.ScreenRefresh 
End Sub 

INPUT

Sam S,1 Manu D,2 Ananthu-krishna D,3 vivek dk,4 sachin Lee,5 
    Alexander won,6 Binoy S,7 brett Lee,8 

Ausgabe

Sam S,1 Manu D,2; Ananthu-krishna D,3; vivek dk,4; sachin Lee,5; 
    Alexander won,6; Binoy S,7; brett Lee,8 

Answer 1

Schleife der Zeichenfolge, wenn Sie eine Ziffer finden gefolgt von einem Leerzeichen einfügen ;

List = "Sam S,1 Manu D,2 Ananthu-krishna D,3 vivek dk,4 sachin Lee,5 " & vbCrLf & _ 
     " Alexander won,6 Binoy S,7 brett Lee,8" 

Dim i As Long 

For i = 1 To Len(List) - 1 
    If Mid$(List, i, 2) Like "# " Then 
     i = i + 1 
     Mid$(List, i, 1) = ";" 
    End If 
Next 

'if you want a space after ; 
List = Replace$(List, ";", "; ") 

Debug.Print List