Trích:
Do While Not EOF(1)
Line Input #1, txt
txt = .ReadLine 'Doc dong thu 1 & gan vao bien txt1
j = InStr(txt, "=") 'Neu dong khong co dau = thi bo qua
If j <> 0 Then
Arr = Split(txt, "=", 2)
txt1 = Trim(Arr(0)) & " "
txt2 = Trim(Arr(1)) & " "
With Selection.Find 'thuc hien replace txt1 boi txt2
.Text = txt1
.Replacement.Text = txt2
End With
Selection.Find.Execute Replace:=wdReplaceAll
End If
Loop
|
Mình đã bổ sung hôm qua về trường hợp không có dấu "=" rồi. Hiện tại mình vẫn dùng tốt.
Nhưng đúng là chưa có thêm vào không phân biệt chữ HOA và chữ thường. Word mình để mặc định như vậy rồi nên mình cũng không để ý :2 (45): Thanks.