• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Tìm và thay thế từ trong MS Word

Các mẹo vặt linh tinh khác, không thuộc nhóm nào
Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4763
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 517 time

Tìm và thay thế từ trong MS Word

Gửi bàigửi bởi truongphu » T.Năm 29/05/2008 3:56 pm

Thủ thuật: Tìm và thay thế từ trong MS Word
Tác giả: truongphu
Mô tả: Hiện ít ai dùng file TXT mà phổ biến là Word. Do đó VB6 phải thích ứng với các thao tác trên Word. Bài viết sau trình bày Tìm và thay thế từ trong MS Word


Mã: Chọn hết

  1. Private Sub Form_Load()
  2. Const wdReplaceAll = 2
  3. Set objWord = CreateObject("Word.Application")
  4. objWord.Visible = True
  5. Set objDoc = objWord.Documents.Open("C:\Mùa Thu Lá Bay.doc")
  6. Set objSelection = objWord.Selection
  7.  
  8. objSelection.Find.Text = "anh" '<-- tu` tìm
  9. objSelection.Find.Forward = True
  10. objSelection.Find.MatchWholeWord = True
  11.  
  12. objSelection.Find.Replacement.Text = "Em" '<-- tu` thay
  13. objSelection.Find.Execute , , , , , , , , , , wdReplaceAll
  14. objWord.quit
  15. End Sub


o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Quay về “[VB] Mẹo vặt khác”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.0 khách