changkhoonline77 > 24-05-13, 11:25 AM
domfootwear > 24-05-13, 04:25 PM
(24-05-13, 11:25 AM)changkhoonline77 Đã viết: Mình làm được lưu file tên file word rồi
thêm dòng này vào code button oApp.ActiveDocument.SaveAs FileName:=CurrentProject.Path & txtTen txtTen là textbox trên form
Nhưng mà có một vấn đề phát sinh đó là mặc định file word lưu tại nơi file access hoặc theo đường dẫn chỉ định trước. Mình muốn nó lưu như khi bấm Save as hỏi nơi lưu thì làm như thế nào vậy các bạn
oApp.ActiveDocument.Save
changkhoonline77 > 24-05-13, 07:53 PM
(24-05-13, 04:25 PM)domfootwear Đã viết:(24-05-13, 11:25 AM)changkhoonline77 Đã viết: Mình làm được lưu file tên file word rồi
thêm dòng này vào code button oApp.ActiveDocument.SaveAs FileName:=CurrentProject.Path & txtTen txtTen là textbox trên form
Nhưng mà có một vấn đề phát sinh đó là mặc định file word lưu tại nơi file access hoặc theo đường dẫn chỉ định trước. Mình muốn nó lưu như khi bấm Save as hỏi nơi lưu thì làm như thế nào vậy các bạn
Mình nghĩ thay đoạn trên = đoạn như sau
Mã PHP:oApp.ActiveDocument.Save
chatchut > 04-07-13, 09:47 AM
paulsteigel > 04-07-13, 03:49 PM
Sub AttachToWord()
'Muc dich: Co gang thiet lap ket noi voi mot phien lam viec cua Word neu duoc. Neu khong thi tao moi
Dim wrdApp As Object
Dim wrdApp As Object
'Co gang tao ket noi
On Error Resume Next
Set wrdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
'Khong tao duoc ketnoi
Err.Clear
On Error GoTo ErrHandler
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Else
'Ket noi thanh cong, thuc hien cac lenh tiep theo va kich hoat bay loi
On Error GoTo ErrHandler
End If
' Doan code chinh...
Set wrdApp = wrdApp.Documents.Add
' Them mot doan van ban
wrdApp.Paragraphs.Add
' Viet noi dung cho doan
wrdApp.Paragraphs(1) = "'Release the object and resume normal error handling"
ErrHandler:
'Giai phong cac bien va dua che do bay loi ve binh thuong
Set wrdApp = Nothing
Set wrdApp = Nothing
On Error GoTo 0
End Sub
chatchut > 04-07-13, 05:56 PM
(04-07-13, 03:49 PM)paulsteigel Đã viết: Xin được chia sẻ với các bạn một cách làm để tránh gây những phiền toái của việc tạo ra quá nhiều phiên làm việc của Word.
Khi cần tương tác với chương trình ngoài, đa số chúng ta đều cố gắng tạo ra một phiên làm việc mới. Việc này đôi khi cũng phiền lắm. Tôi thì hay sử dụng biện pháp, xem có phiên làm việc nào chưa, nếu có rồi, thì thôi không tạo nữa mà kết nối luôn với nó và thực hiện luôn các việc cần làm!
Bạn có thể ứng dụng vào tình huống của mìnhMã PHP:Sub AttachToWord()
'Muc dich: Co gang thiet lap ket noi voi mot phien lam viec cua Word neu duoc. Neu khong thi tao moi
Dim wrdApp As Object
Dim wrdApp As Object
'Co gang tao ket noi
On Error Resume Next
Set wrdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
'Khong tao duoc ketnoi
Err.Clear
On Error GoTo ErrHandler
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Else
'Ket noi thanh cong, thuc hien cac lenh tiep theo va kich hoat bay loi
On Error GoTo ErrHandler
End If
' Doan code chinh...
Set wrdApp = wrdApp.Documents.Add
' Them mot doan van ban
wrdApp.Paragraphs.Add
' Viet noi dung cho doan
wrdApp.Paragraphs(1) = "'Release the object and resume normal error handling"
ErrHandler:
'Giai phong cac bien va dua che do bay loi ve binh thuong
Set wrdApp = Nothing
Set wrdApp = Nothing
On Error GoTo 0
End Sub
paulsteigel > 05-07-13, 09:49 AM
(04-07-13, 05:56 PM)chatchut Đã viết: Em chưa hiểu lắm cách làm này. Em chỉ hỏi lúc trước thì làm được bây giờ in ra lấy có dòng chử {formtext}Đấy là tên trường dữ liệu trong file word của bạn, bạn cần nhấn phải chuột, chọn Toggle Field Code là được.
Xin cám ơn nhiều
chatchut > 05-07-13, 03:03 PM
nct1972 > 16-07-13, 08:03 PM
paulsteigel > 16-07-13, 10:34 PM