Marco copy một vùng trong excel rồi paste vào 1 file word mới (Office 2003) ? (1 người xem)

[Hamedanger]

E có sưu tầm được 1 đoạn code

view plaincopy to clipboardprint?

• Sub CopyToWord()
• Dim objWord As New Word.Application
• 'Copy the range Which you want to paste in a New Word Document
• Range("A1:B10").Copy
• With objWord
• .Documents.Add
• .Selection.Paste
• .Visible = True
• End With
• End Sub

Nguồn http://www.learnexcelmacro.com/wp/2012/01/copy-from-excel-and-paste-in-word/

Không hiểu máy tính của e có vấn đề gì ko mà báo lỗi khai báo biến
Dim objWord As New Word.Application

 

[ndu96081631]

E có sưu tầm được 1 đoạn code


Nguồn http://www.learnexcelmacro.com/wp/2012/01/copy-from-excel-and-paste-in-word/

Không hiểu máy tính của e có vấn đề gì ko mà báo lỗi khai báo biến
Dim objWord AsNew Word.Application

Xoá dòng

[COLOR=#006699][FONT=Consolas][B]Dim[/B][/FONT][/COLOR][COLOR=#000000][FONT=Consolas][B] objWord [/B][/FONT][/COLOR][COLOR=#006699][FONT=Consolas][B]As[/B][/FONT][/COLOR][COLOR=#006699][FONT=Consolas][B]New[/B][/FONT][/COLOR][COLOR=#000000][FONT=Consolas][B] Word.Application[/B][/FONT][/COLOR]

và sửa thành:

Dim objWord As Object
Set objWord = CreateObject("Word.Application")

Thử xem

 

[Hamedanger]

Được rồi ạ, E cảm ơn thầy