Trang web hiển thị tốt nhất trên các trình duyệt mới và được bật Javascript.

Chào mọi người Chào mọi người em có 1 câu hỏi, mn xem có giải pháp gì giúp em

MinhVuong

Chào mọi người
em có 1 câu hỏi, mn xem có giải pháp gì giúp em không nhé:
- e có 1 đoạn văn bản (có nhiều chữ giống nhau)
- yêu cầu trong đoạn văn bản có chữ nào thì chữ đó chỉ xuất hiện 1 lần trong văn bản đó
- công việc cần làm là tìm ra cách để loại bỏ những chữ bị trùng (cần loại bỏ tất cả những chữ bị trùng đó nhưng để lại 1 lần xuất hiện chữ đó)
vd: có rất nhiều chữ "người" trong văn bản, chỉ giữ 1 chữ "người", các chữ còn lại loại bỏ hết.
hehe
Cám ơn mn :3

DucThanhNguyen

Up file lên ko là bot xoá bài

HuynhTrongTrung

ctrl +H. giữ lại 1 cáu đâu tien thôi. còn nhiêu xoa ""

MinhVuong

Để e viết bài khác nhé. bài này ko sửa dc

DucThanhNguyen

Mình đoán bạn đang làm glossary đúng ko

SonDoan

Nếu không thích kiểu liệt kê mà chỉ cần replace thì xài cái này
Sub ReplaceDupplicateWord()
Dim temp As String, tempWor as String
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
For Each Wor In ActiveDocument.Words
tempWor = Trim(Wor)
If tempWor <> "," And tempWor <> "." And tempWor <> ":" And tempWor <> ";" And tempWor <> "(" And tempWor <> ")" And tempWor <> "!" And tempWor <> "?" Then
If Not dic.Exists(tempWor) Then
dic.Add tempWor, tempWor
temp = temp & " " & tempWor
End If
Else
temp = temp & tempWor
End If
Next
Selection.EndKey Unit:=wdStory
Selection.TypeText vbCrLf & temp
Set dic = Nothing
End Sub

***Tặng phần mềm kế toán UNESCO Fee sử dụng vĩnh viễn các Version 6.0 - 5.1- tại sao khi in có dòng mã bên dưới cuối trang và xóa như thế nào -FULL BỘ TÀI LIỆU SINH TRẮC VÂN TAY CỰC HIẾM- Bác nào có phần mềm hoặc file kiểm phiếu bầu cử nhanh bằng Excel không ạ ? Mình cần hỗ trợ từ các bạn Công thức lấy năm hiện tại để ghép vào tiêu đề bảng tính tính tiền ăn mỗi bữa Trả về giá trị nếu thuộc một trong các giá tri đưa ra CÔNG THỨC LIỆT KÊ SỐ PHIẾU GIAO HÀNG TRONG THÁNG CỦA CỬA HANG các anh chị cho em hỏi Xem thêm