2つの名前の間にセミコロンを挿入する

Question

私はvbaの新機能です。どのように2つの名前の間にセミコロンを含めるか。私はそのためのカスタムスタイルを適用する必要がセミコロンを挿入した後、私は次のコード

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 

出力

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

ループあなたは数字を見つける文字列を、使用していますその後にスペースが挿入されます。;

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