-
Copy Paste Value Doc.FormField toàn bộ tất cả các trang Word
vuthaiha90 > 27-06-20, 06:59 PM
Em xin chào các bác ạ. Em có vướng mắc này: em dùng code chuyển các dữ liệu cần thiết nhập từ form trên access vào từng formfield cố định trong Hợp đồng ở Word rồi, cho em hỏi là có thể sau khi ra được bản cuối đúng rồi thì loại bỏ tất cả FormField đi mà vẫn giữ nguyên định dạng văn bản được không ạ. Em có thử từng trường 1 copy paste value thì được, nhưng nếu Ctrl A toàn bộ văn bản rồi copy paste value thì không còn giữ được định dạng đẹp của hợp đồng. Mục đích em phải bỏ đi FormField vì có 1 số trường muốn chỉnh sửa, thêm bớt ngôn từ hay đại loại vậy (do sếp bảo chỉnh sửa thêm, tuỳ theo từng trường hợp khách hàng, cái này nó kiểu không cố định nên mỗi lần sửa 1 tý), mà để FormField thì nó nguyên 1 cục, ân del hay gì cái là mất nguyên, vào đoạn giữa của trường cần chỉnh hơi khó khăn, nếu mất FormField thành văn bản thường thì dễ. Cho em hỏi các bác có cách nào không ạ. Em xin cảm ơn ạ -
RE: Copy Paste Value Doc.FormField toàn bộ tất cả các trang Word
tranthanhan1962 > 28-06-20, 10:39 AM
Đê xủ lý viec này, người ta không copy pats đâu. Dùng mail merge mới nhanh -
RE: Copy Paste Value Doc.FormField toàn bộ tất cả các trang Word
vuthaiha90 > 28-06-20, 09:31 PM
(28-06-20, 10:39 AM)tranthanhan1962 Đã viết: Đê xủ lý viec này, người ta không copy pats đâu. Dùng mail merge mới nhanh
Vâng ạ, Doc.FormField của em làm như kiểu mail merge mà, nhưng khi ra đến kết quả cuối cùng thì em muốn loại bỏ những cái formfield đó đi trở thành text thường để edit cho dễ dàng. Vì 1 số trường hợp thì cần edit đoạn giữa lại 1 tý. dùng lệnh if thì cũng khá nhiều trường hợp, và có thể mình chưa nghĩ ra được hết trường hợp mà nêu if ra -
RE: Copy Paste Value Doc.FormField toàn bộ tất cả các trang Word
vuthaiha90 > 28-06-20, 11:51 PM
Em có dùng RecordMacro để ra code, xong em có chỉnh sửa lại như thế này, mà nó không chạy ra như ý, các bác ngó qua giúp em xem lỗi ở đâu ạ:
Mã:Sub FormFieldsRemoval()
Dim objFld As FormField
Dim intCount, intLoop As Integer
For Each objFld In ActiveDocument.FormFields
intCount = intCount + 1
Next
For intLoop = 1 To intCount
ActiveDocument.FormFields(intLoop).Select
With Selection
.Copy
.PasteAndFormat (wdFormatPlainText)
End With
Next intLoop
End Sub
Xong dùng Call FormFieldsRemoval ở bản Word nào cần -
RE: Copy Paste Value Doc.FormField toàn bộ tất cả các trang Word
Xuân Thanh > 29-06-20, 10:56 AM
Dùng MailMerge dạng Text thì chỉnh sửa thoải mái còn nếu dùng FormField thì không thể chỉnh sửa vì FormField là cả một khối thống nhất nên không thể chỉnh sửa