Xin hỏi cách chuyển từ đánh số tự động (Word) sang chế độ thủ công (4 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

trungvdb

Thành viên thường trực
Tham gia
22/8/08
Bài viết
374
Được thích
171
Nghề nghiệp
Tài chính
Nhờ cả nhà giúp em, em có tải được 1 file nhưng các số đều dưới dạng só tự động, nay em muốn giữ nguyên nội dung như vậy, chỉ khác các số tự động sẽ chuyển sang giống như mình đánh thủ cộng thì có làm được không ah (vì file rất dài, nếu mình đánh lại sẽ tốn rất nhiều thời gian ah).
 

File đính kèm

Nhờ cả nhà giúp em, em có tải được 1 file nhưng các số đều dưới dạng só tự động, nay em muốn giữ nguyên nội dung như vậy, chỉ khác các số tự động sẽ chuyển sang giống như mình đánh thủ cộng thì có làm được không ah (vì file rất dài, nếu mình đánh lại sẽ tốn rất nhiều thời gian ah).
Mở 1 File Word mới rồi làm vầy thử xem:
Bước 1: Mở File Word có số tự động nhấn Ctrl+A (chọn tất cả), nhấn Ctrl+C (Copy tất cả).
Bước 2: Sang File Word mới, vào Home > Paste Special > Unformatted Text > OK. Hình 1.
Bước 3: Lúc này File Word mới nó có 1 khoảng trống lớn giữa số và chữ, tiếp theo Copy cái khoảng trống đó, xong nhấn Ctrl+A (chọn tất cả), nhấn Ctrl+H hiện hộp thoại Find and Replace dán khoảng trống lớn vào Find what, click vào Replace with nhấn phím dài cho nó 1 khoảng trắng rồi nhấn Replace All , nhấn Yes, nhấn OK, xong đóng hộp thoại.
A_H1.JPGA_H2.JPG
 
Lần chỉnh sửa cuối:
Mình làm thế rồi nhưng công thức (hóahọc) không còn giữ nguyên như trước nữa ah.
 
Tôi chỉ biết chạy Sub có dòng lệnh sau
ActiveDocument.ConvertNumbersToText

Nếu bạn biết dùng macro thì mở file cần chuyển, gõ Alt - F8, gõ 1 tên macro (ví dụ xxx), gõ Enter
Chuyển về đây chép đoạn văn trên rồi chép vô giữa Sub xxx() và End Sub.

Rồi gõ F5 để chạy
 
Mình làm thế rồi nhưng công thức (hóahọc) không còn giữ nguyên như trước nữa ah.

Thử cầu lệnh này trong VBA.

ActiveDocument.Range.ListFormat.ConvertNumbersToText

Hoặc làm vầy thử xem, cách này thì công thức (hóa học) không còn giữ nguyên như trước:
Bước 1: Mở File Word có số tự động nhấn Ctrl+A (chọn tất cả), nhấn Ctrl+C (Copy tất cả).
Bước 2: Sang File Word mới, vào Home > Paste > Keep Text Only (cái biểu tượng hình chữ A đậm), xem hình.
Bước 3: Lúc này File Word mới nó có 1 khoảng trống lớn giữa số và chữ, tiếp theo Copy cái khoảng trống đó, xong nhấn Ctrl+A (chọn tất cả), nhấn Ctrl+H hiện hộp thoại Find and Replace dán khoảng trống lớn vào Find what, click vào Replace with nhấn phím dài cho nó 1 khoảng trắng rồi nhấn Replace All , nhấn Yes, nhấn OK, xong đóng hộp thoại.

A_H.JPG
 
Lần chỉnh sửa cuối:
Hoặc làm vầy thử xem, cách này thì công thức (hóa học) không còn giữ nguyên như trước:
Bước 1: Mở File Word có số tự động nhấn Ctrl+A (chọn tất cả), nhấn Ctrl+C (Copy tất cả).
Bước 2: Sang File Word mới, vào Home > Paste > Keep Text Only (cái biểu tượng hình chữ A đậm), xem hình.
Bước 3: Lúc này File Word mới nó có 1 khoảng trống lớn giữa số và chữ, tiếp theo Copy cái khoảng trống đó, xong nhấn Ctrl+A (chọn tất cả), nhấn Ctrl+H hiện hộp thoại Find and Replace dán khoảng trống lớn vào Find what, click vào Replace with nhấn phím dài cho nó 1 khoảng trắng rồi nhấn Replace All , nhấn Yes, nhấn OK, xong đóng hộp thoại.
Không chỉ công thức mà toàn bộ text bị mất định dạng - mầu, đậm nhạt, nghiêng ...

Nếu chấp nhận mất định dạng thì cũng không cần tạo tập tin mới, không cần "Copy cái khoảng trống đó"
Cách làm: mở tập tin -> Ctrl + A -> Ctrl + C -> nhấn phím DELETE -> Home -> Paste Special -> Unformatted Text -> OK -> Ctrl + H -> trong trường Find what nhập ^t -> click trường Replace with -> nhấn 1 làn phím SPACE -> Replace All -> OK

Nếu cần thì lưu tập tin với tên mới.
 
Mình đang nghĩ nếu có cách nào mà Word nhận biết và chọn (bôi đen) được tất cả các Numbering tự động đó (bàng ông cụ tìm kiếm Ctrl + F) thì cũng có thể làm thủ công được.
 
Web KT

Bài viết mới nhất

Back
Top Bottom