• Đọc số sang chữ chuyển sang Word ( mail merge) không được
  • Đọ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?