Tìm kiếm và thay thế nội dung văn bản trong tài liệu khá là đơn giản nhưng bạn đã bao giờ cố gắng tìm kiếm và thay thế các văn bản chỉ trong phần đầu trang và chân trang [Header And Footer] trong tài liệu Word chưa? Hoặc để tìm kiếm và thay thế nhiều văn bản khác nhau cùng một lúc trong một tài liệu Word hoặc trên nhiều tài liệu? Trong hướng dẫn này Gitiho sẽ chỉ ra một số phương pháp để bạn có thể thực hiện.
Tìm kiếm và thay thế nội dung văn bản trong cùng một tài liệu
Bước 1: Mở tài liệu có chứa các từ bạn muốn thay thế.
Bước 2: Truy cập vào thẻ Home, rồi bấm nút Replace thuộc nhóm tính năng Editing ở góc trên cùng bên phải. Hoặc nhấn tổ hợp phím Ctrl + H cùng lúc để mở hộp thoại Find and Replace.
Bước 3: Trong hộp thoại Find and Replace, bên dưới thẻ Replace, nhập đoạn văn bản cũ cần thay vào khung Find what, tiếp theo nhập nội dung đoạn văn bản mới sẽ thay thế cho văn bản cũ vào khung Replace with.
Bước 4: Bấm nút Replace All để thực hiện.
Bước 5: Sau đó, một hộp thoại bật lên để cho bạn biết có bao nhiêu thay thế đã được thực hiện. Nhấn OK để hoàn tất.
Nếu bạn chỉ muốn tìm và thay thế trong đầu trang và chân trang [Header And Footer] thì Word không có tính năng trực tiếp để thực hiện. Thay vào đó bạn sẽ phải sử dụng mã VBA, cách thực hiện như sau:
Bước 1: Mở tài liệu bạn sẽ tìm và thay thế văn bản trong đầu trang và chân trang, nhấn các phím Alt + F11 để mở cửa sổ Microsoft Visual Basic for Applications .
Bước 2: Trong cửa sổ Microsoft Visual Basic for Applications, truy cập vào menu Insert > Module, rồi sao chép mã VBA bên dưới vào cửa sổ Module.
Sub FindAndReplaceOfHeaderAndFooter[]
Dim xDoc As Document
Dim xSelection As Selection
Dim xSec As Section
Dim xHeader As HeaderFooter
Dim xFooter As HeaderFooter
On Error Resume Next
Set xDoc = Application.ActiveDocument
For Each xSec In xDoc.Sections
For Each xHeader In xSec.Headers
xHeader.Range.Select
Set xSelection = xDoc.Application.Selection
With xSelection.Find
.Text = "I've found header text" 'Enter the old header text here!
.Replacement.Text = "I've found header text" 'Enter the new header text here!
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
Next xHeader
For Each xFooter In xSec.Footers
xFooter.Range.Select
Set xSelection = xDoc.Application.Selection
With xSelection.Find
.Text = "I've found footer text" 'Enter the old footer text here!
.Replacement.Text = "I've found footer text" 'Enter the old footer text here!
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
Next xFooter
Next xSec
xDoc.ActiveWindow.ActivePane.Close
If xDoc.ActiveWindow.View.SplitSpecial = wdPaneNone Then
xDoc.ActiveWindow.View.Type = wdPrintView
Else
xDoc.ActiveWindow.View.Type = wdPrintView
End If
xDoc.Activate
End Sub
Lưu ý: Trong bảng mã trên, chỉ cần thay thế “Find header text” và “Find footer text” bằng nội dung văn bản bạn muốn tìm trong đầu trang và chân trang; Thay thế “I’ve found header text” và “I’ve found footer text” bằng văn bản đầu trang và văn bản chân trang mới.
Bước 3: Cuối cùng điều hướng đến mục Run nằm ở thanh trên cùng và chọn Run Sub User Formhoặc nhấn F5 để chạy mã. Sau đó, các văn bản cụ thể trong đầu trang và chân trang sẽ được thay thế bằng các văn bản mới.
Trên đây Gitiho vừa hướng dẫn các bạn cách sử dụng tính năng Find and Replace trong Word. Nếu thấy bài viết hữu ích, hãy chia sẻ với bạn bè của mình nhé. Chúc các bạn thành công.
CÓ THỂ BẠN CŨNG QUAN TÂM
Hướng dẫn cách tìm và thay thế định dạng trong Word
Hướng dẫn cách cài đặt font chữ mặc định trong Word đơn giản nhất
Hướng dẫn cách định vị hình ảnh trong Word chi tiết nhất
Ngoài ra nếu muốn tìm hiểu kỹ hơn về Word, chúng tôi xin giới thiệu khóa học WOG01 – Tuyệt đỉnh Microsoft Word – Chuyên gia soạn thảo văn bản hoặc MOSW – Chinh phục MOS Word 2013 cùng Nimbus với các bài học từ cơ bản tới nâng cao rất hay và bổ ích. Chi tiết xem tại: Gitiho.com.
Gitiho.com - Nền tảng học online duy nhất tại Việt Nam tập trung vào phát triển kỹ năng làm việc dành cho người đi làm
Với sứ mệnh: “Mang cơ hội phát triển kỹ năng, phát triển nghề nghiệp tới hàng triệu người”, đội ngũ phát triển Gitiho.com đã và đang làm việc với những học viện, trung tâm đào tạo, các chuyên gia đầu ngành để nghiên cứu và xây dựng lên các chương trình đào tạo từ cơ bản đến chuyên sâu xung quanh các lĩnh vực: Tin học văn phòng, Phân tích dữ liệu, Thiết kế, Công nghệ thông tin, Kinh doanh, Marketing, Quản lý dự án...
Gitiho tự hào khi được đồng hành cùng:
- 50+ khách hàng doanh nghiệp lớn trong nhiều lĩnh vực như: Vietinbank, Vietcombank, BIDV, VP Bank, TH True Milk, VNPT, FPT Software, Samsung SDIV, Ajinomoto Việt Nam, Messer,…
- 100.000+ học viên trên khắp Việt Nam
Tìm hiểu ngay các khóa học của Gitiho TẠI ĐÂY
0 câu trả lời