-
Đọc số sang chữ chuyển sang Word ( mail merge) không được
ginkgo > 17-03-13, 12:38 PM
Chào các anh, chị,
Em làm bảng dữ liệu từ access để mail merge sang Word, nhưng em không biết làm thế nào để giá trị của mục "đọc số sang chữ" chuyển được sang dạng text để khi merge sang word nó hiểu.
Em còn gà mờ lắm, nhờ anh chị hướng dẫn cụ thể giúp em, em cám ơn ạ.
http://www.mediafire.com/?z7tl3map6ec0a2u -
RE: Đọc số sang chữ chuyển sang Word ( mail merge) không được
changkhoonline77 > 17-03-13, 09:16 PM
Không hiểu ý bạn lắm. Mình làm như thế này, bạn sửa lại theo ý bạn
http://www.mediafire.com/?g65a0l7o9o5h4ao -
RE: Đọc số sang chữ chuyển sang Word ( mail merge) không được
ginkgo > 17-03-13, 10:37 PM
Cám ơn changkhoonline77 nha,
Mình đã thêm phần màu đỏ ( bên dưới vào) nhưng kết quả là nó lại tạo thành 2 file word khác nhau, ( 1 cái convert cho stvay), 1 cái convert cho tongsodu. Trong khi đó, mình lại muốn 2 cái này cùng convert 1 lúc trên 1 file word đó.
Private Sub Conver_Click()
Dim oApp As Object, doc As Object
Dim strDocName As String
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
strDocName = CurrentProject.Path & "\ccSTK.dot"
Set doc = oApp.Documents.Add(strDocName)
doc.FormFields("cvstvaytxt").Result = Me.stvaytxt
Set doc = oApp.Documents.Add(strDocName)
doc.FormFields("cvtongsodutxt").Result = Me.tongsodutxt
On Error Resume Next
Set oApp = Nothing
End Sub -
RE: Đọc số sang chữ chuyển sang Word ( mail merge) không được
changkhoonline77 > 18-03-13, 09:58 AM
sửa lại như thế này
Private Sub Conver_Click()
Dim oApp As Object, doc As Object
Dim strDocName As String
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
strDocName = CurrentProject.Path & "\ccSTK.dot"
Set doc = oApp.Documents.Add(strDocName)
doc.FormFields("cvstvaytxt").Result = Me.stvaytxt
doc.FormFields("cvtongsodutxt").Result = Me.tongsodutxt
On Error Resume Next
Set oApp = Nothing
End Sub
mình onl = dt nên không kiểm tra lại đúng không nữa -
RE: Đọc số sang chữ chuyển sang Word ( mail merge) không được
ginkgo > 19-03-13, 10:32 PM
Cho mình hỏi thêm điều này nữa,
Mình chuyển số tiền ( có định dạng #,###) từ access sang word thì bị mất đi định dạng đó. Nếu dùng mail merge thì có thể khắc phục được, nhưng lại không thể chuyển phần đọc chữ qua word nếu như không dùng code covert bên trên.
Thế nên mình đã dùng bookmark của text form field, chọn định dạng là number và chọn format #,###, nhưng không thực hiện được.
Vậy có code nào mà đáp ứng được yêu cầu là mang dữ liệu sang đúng định dạng và đọc được số tiền bằng chữ đó không?