Tìm cách nối một dòng được phân tách bằng tab từ word sang excel với macro

Hoặc một cái gì đó ....
Word được tích hợp với phần mềm của chúng tôi để nó chỉ thực hiện một tài khoản tại một thời điểm.

Mỗi dòng được phân tách bằng tab được định dạng như: tên địa chỉ acct # dob amtdue

Đối với mỗi tài khoản, tôi phải tải lên một tài liệu từ mới, sao chép dán các giá trị vào một bảng excel hiện có và gửi nó trên đường đi.

Đây là rất nhiều nút đẩy cho tôi, có cách nào để tự động hóa điều này? Tôi đã thực hiện một vài macro đơn giản mà không cần phải lập trình bất cứ điều gì.

Tôi có các phiên bản sau của ... thứ

Excel 2002 10,6501,6714 SP3
Word 2002 10.6612.6714 SP3
Trình soạn thảo cơ bản trực quan: VB 6.3 v.9969 Bán lẻ VBA 6.4.8869
MS Script Editor 10.0

— gpryatel
nguồn

Câu hỏi của bạn không có nhiều ý nghĩa. dữ liệu không kéo bất cứ điều gì. Tôi đoán bạn có nghĩa là bạn muốn một số macro lấy nội dung của một loạt các tài liệu từ và dán chúng vào một tài liệu excel. Tôi không biết nhiều về macro, nhưng nên có thể.

— barlop

Ý tôi là, sẽ chỉnh sửa OP. Tôi gõ nhanh hơn tôi nghĩ.

— gpryatel

Bạn có thể thích nghi một cái gì đó như thế này. Ngay bây giờ, nó chọn toàn bộ tài liệu từ vào một bảng tính mới. Thay vào đó, bạn có thể dán vào sổ làm việc mẫu hoặc vị trí trang tính hiện tại của mình và cũng có nhiều lựa chọn hơn trong từ, nhưng bạn có ý tưởng.

Sub paste2excel()
Selection.WholeStory
Selection.Copy
Dim excelObj As Object
Set excelObj = CreateObject("excel.application")
excelObj.Visible = True
excelObj.Workbooks.Add
excelObj.Range("a1").Select
excelObj.ActiveSheet.Paste
End Sub

Điều này hoạt động trong office 2003 và có thể sẽ ổn trong phiên bản của bạn

— datatoo
nguồn