Nhập văn bản vào file Word đang mở

[cybershoot]

Các cô chú giàu kinh nghiệm ơi,
Em mới tập tành học VBA gần đây để phục vụ cho công việc. Hiện tại em muốn gửi 1 đoạn văn bản "chúc mừng sinh nhật" đến file "TEST VBA" có đường dẫn sau thì làm như thế nào ạ?

Sub test()
CreateObject("Shell.Application").Open "C:\Users\Desktop\TEST VBA.docx"
End Sub

Em đã tìm tòi rất nhiều ở các trang forum rồi mà vẫn không biết làm sao. Mong anh chị giúp đỡ ạ.

 

[donghung1512]

Các cô chú giàu kinh nghiệm ơi,
Em mới tập tành học VBA gần đây để phục vụ cho công việc. Hiện tại em muốn gửi 1 đoạn văn bản "chúc mừng sinh nhật" đến file "TEST VBA" có đường dẫn sau thì làm như thế nào ạ?

Sub test()
CreateObject("Shell.Application").Open "C:\Users\Desktop\TEST VBA.docx"
End Sub

Em đã tìm tòi rất nhiều ở các trang forum rồi mà vẫn không biết làm sao. Mong anh chị giúp đỡ ạ.

Sub ExcelToWord()
Dim xPath As String
Dim DocApp As Object
Dim DocFile As Object
Dim DocName As String
xPath = ThisWorkbook.Path & "\"
Sheet1.Range("A1").Copy
Set DocApp = CreateObject("Word.Application")

DocApp.Visible = True
DocName = xPath & "TEST_VBA.docx"
DocApp.Activate
Set DocFile = DocApp.Documents.Open(DocName)
DocFile.Activate
DocFile.Range.Paste
DocFile.Save
DocApp.Quit
Set DocFile = Nothing
Set DocApp = Nothing
Application.CutCopyMode = False
End Sub

 

[cybershoot]

Sub ExcelToWord()
Dim xPath As String
Dim DocApp As Object
Dim DocFile As Object
Dim DocName As String
xPath = ThisWorkbook.Path & "\"
Sheet1.Range("A1").Copy
Set DocApp = CreateObject("Word.Application")

DocApp.Visible = True
DocName = xPath & "TEST_VBA.docx"
DocApp.Activate
Set DocFile = DocApp.Documents.Open(DocName)
DocFile.Activate
DocFile.Range.Paste
DocFile.Save
DocApp.Quit
Set DocFile = Nothing
Set DocApp = Nothing
Application.CutCopyMode = False
End Sub

em cảm ơn bác nha. nhưng nếu em cần gởi đoạn văn bản đến 1 ứng dụng khác không phải word. Em có đường dẫn để mở ứng dụng đó thì chỗ câu lệnh này em xử lý sao ạ.

Set DocApp = CreateObject("Word.Application")

 

[donghung1512]

em cảm ơn bác nha. nhưng nếu em cần gởi đoạn văn bản đến 1 ứng dụng khác không phải word. Em có đường dẫn để mở ứng dụng đó thì chỗ câu lệnh này em xử lý sao ạ.

Set DocApp = CreateObject("Word.Application")

Vậy chốt là bạn muốn gửi đến ứng dụng nào? Trên chủ đề bạn để là gửi đến World.

 

[cybershoot]

Vậy chốt là bạn muốn gửi đến ứng dụng nào? Trên chủ đề bạn để là gửi đến World.

hiện em đang có ứng dụng cho đánh văn bản vào (kiểu như WORD). hiện em muốn VBA có thể mở ứng dụng đó lên bằng đường dẫn bên dưới, sau khi ứng dụng được mở lên thì sẽ gửi 1 đoạn văn bản "chúc mừng sinh nhật" vào ứng dụng đó.

Sub turn_on_app()
CreateObject("Shell.Application").Open "C:\Users\Downloads\APP.WS"
End Sub

Mong anh chỉ giáo ạ!

 

[TH2]

hiện em đang có ứng dụng cho đánh văn bản vào (kiểu như WORD). hiện em muốn VBA có thể mở ứng dụng đó lên bằng đường dẫn bên dưới, sau khi ứng dụng được mở lên thì sẽ gửi 1 đoạn văn bản "chúc mừng sinh nhật" vào ứng dụng đó.

Sub turn_on_app()
CreateObject("Shell.Application").Open "C:\Users\Downloads\APP.WS"
End Sub

Mong anh chỉ giáo ạ!

Vấn đề là bạn gửi từ đâu .... và đến đâu (file hay app, hay hộp thoại nhỉ)?
Và nếu chung chung thì bạn nên tìm hiểu SendKey , có thể giải quyết được vấn đề

 

[donghung1512]

hiện em đang có ứng dụng cho đánh văn bản vào (kiểu như WORD). hiện em muốn VBA có thể mở ứng dụng đó lên bằng đường dẫn bên dưới, sau khi ứng dụng được mở lên thì sẽ gửi 1 đoạn văn bản "chúc mừng sinh nhật" vào ứng dụng đó.

Sub turn_on_app()
CreateObject("Shell.Application").Open "C:\Users\Downloads\APP.WS"
End Sub

Mong anh chỉ giáo ạ!

Vì bạn đưa chung chung quá, đành chỉ bạn như này.

Sub Open_Program()

Dim xPath As String, xnameFile As String
xPath = Dia chi Luu file can mo & "\"
xnameFile = "Ten file"

Call Shell("Ten Program " + xPath + xnameFile, vbNormalFocus)
Application.SendKeys Spwd

Application.SendKeys "Chuc Mung Sinh Nhat"


End Sub