Sub hotrochuyenkieudapangachchan_tienganh()
Application.UndoRecord.StartCustomRecord ("QUAY LAI")
'On Error Resume Next
Dim ra As Range
Set ra = Selection.Range
If Len(ra) < 3 Then
MsgBox "ban chua boi den cau hoi"
Exit Sub
End If
ra.Find.ClearFormatting
ra.Find.Font.Underline = wdUnderlineSingle
ra.Find.Replacement.ClearFormatting
With ra.Find
.Text = " "
.Replacement.Text = "daucach"
.Forward = True
.Wrap = wdFindStop
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Application.DisplayAlerts = False
ra.Find.Execute Replace:=wdReplaceAll
'TIM DEN DAP AN
ra.Find.ClearFormatting
ra.Find.Font.Bold = True
ra.Find.Replacement.ClearFormatting
With ra.Find
.Text = "([A-D])"
.Replacement.Text = "DAPAN\1"
.Forward = True
.Wrap = wdFindStop
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
ra.Find.Execute Replace:=wdReplaceAll
Dim tu As Range, coll As New Collection, r As Range, para As Paragraph
For Each para In Selection.Paragraphs
If InStr(para.Range.Text, "DAPAN") > 0 Then
para.Range.Delete
End If
Next para
Set r = Selection.Range
For Each tu In Selection.Words
If tu.Words(1).Font.Underline = wdUnderlineSingle Then
coll.Add tu.Words(1)
End If
Next tu
r.InsertAfter "A. " & coll(1) & vbTab & "B. " & coll(2) & vbTab & "C. " & coll(3) & vbTab & "D. " & coll(4) & vbCr
r.Select
'dat tab
Selection.ParagraphFormat.TabStops.ClearAll
ActiveDocument.DefaultTabStop = InchesToPoints(0.5)
Selection.ParagraphFormat.TabStops.Add Position:=InchesToPoints(1.88), _
Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces
Selection.ParagraphFormat.TabStops.Add Position:=InchesToPoints(3.63), _
Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces
Selection.ParagraphFormat.TabStops.Add Position:=InchesToPoints(5.25), _
Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Underline = wdUnderlineSingle
With Selection.Find
.Text = "daucach"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindStop
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Application.DisplayAlerts = wdAlertsAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Paragraphs(Selection.Paragraphs.Count).Range.Select
Selection.Font.Underline = wdUnderlineNone
Selection.Font.Bold = True
If Selection.Font.Italic = True Then
Selection.Font.Italic = wdToggle
End If
Selection.Font.Color = wdColorBlack
Application.UndoRecord.EndCustomRecord
End Sub