Tô đậm, in nghiêng, đổi màu trong đề thi trắc nghiệm (2 người xem)

[trungtamcnc]

Mong các bác giúp đỡ: Em có công việc như sau: Trong đề thi trắc nghiệm (Word) chưa fomat gì cả
Vd: Câu 1: Trọng Thủy tìm ra Mỵ Châu theo dấu lông gì?
A. Lông vịt B. Lông gà C. Lông ngỗng D. Lông công
Bây giờ em muốn có đoạn code thực hiện việc tô đậm, in nghiêng, đổi màu các chữ câu: Câu 1: .... Câu 55:....
(đương nhiên là có đề 50 câu, có đề 60 câu) và việc tô đậm, đổi màu các mục đáp án: A. B. C. D. Nhưng tránh việc đổi màu cả chữ a, b, c, d cuối câu. (ví dụ: "chất B." hoặc "cả ba.")
Cảm ơn các bác nhiều nhiều.

 

[PhanTuHuong]

Bạn thực hiện trong Word hay Excel? Theo tôi làm trong Excel dễ hơn nhiều.

 

[trungtamcnc]

Đương nhiên là em muốn làm trong Word rồi. Nhưng nếu bác giúp em cả trong excel thì càng tốt. Cảm ơn sự quan tâm của chuyên gia hàng đầu.

 

[trungtamcnc]

File mẫu

File mẫu đây các bác ơi! Giúp em với nhé. Thank.

 

[huuthang_bd]

File mẫu đây các bác ơi! Giúp em với nhé. Thank.

Phải dùng Macro thôi. Bạn dùng cái này:

Sub Format()
Dim i As Long
Selection.HomeKey Unit:=wdStory
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
    .Bold = True
    .Color = 12611584
End With
For i = 65 To 68
    With Selection.Find
        .Text = "^t" & Chr(i)
        .Replacement.Text = "^t" & Chr(i)
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "^p" & Chr(i) & "."
        .Replacement.Text = "^p" & Chr(i) & "."
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next
Selection.Find.Replacement.Font.Italic = True
i = 0
Do
    i = i + 1
    With Selection.Find
        .Text = "^pCâu " & i & ":"
        .Replacement.Text = "^pCâu " & i & ":"
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Loop While Selection.Find.Execute(Replace:=wdReplaceAll)
End Sub

 

[trungtamcnc]

Em đã thử. Đúng như mong muốn của em. Bác huuthang_bd giúp em nhiều quá rồi đấy nhỉ.