VBA word "heading"

[thanhthao195]

Xin các bạn giúp viết lệnh macro word trong trường hợp sau :
Tôi có một quyển sách gồm có nhiều chương, nhiều mục. Mỗi chương, mục đều có cài Heading để phân biệt. Làm thế nào khi copy một đoạn văn nào đó trong sách, thì khi chạy macro, macro sẽ gắn luôn xuất xứ của chương, mục đó vào cliboard.
Ví dụ cụ thể như sau:
Danh Ngôn Đông Tây (File name)
I. DN Châu Á (cài Heading 1)
1. Việt Nam (cài heading 2)
* Đường đi khó không khó vì ngăn sông cách núi ….
* ..................
2.Thái Lan (cài heading 2)
* Biết đủ là giàu nhất
* ....................
II. DN Châu Âu (cài Heading 1)
1. Pháp (cài heading 2)
* Dùng lửa thử vàng, dùng vàng thử ….
2. Đức (cài heading 2)
III. DN Châu Phi (cài Heading 1)

Nếu ta chọn câu "biết đủ là giàu nhất" rồi chạy Macro, Macro sẽ copy câu trên rồi gắn luôn xuất xứ từ mục : 2. Thái Lan, chương I. Danh ngôn Châu Á. trong sách Danh ngôn đông tây (đem vào Clipboard để ta có thể dán vào bất cứ file nào khác).

Tương tự như vậy, nếu ta chọn câu "Dùng lửa thử vàng", chạy macro, macro sẽ gắn thêm phần xuất xứ : Mục 1.Pháp, chương II.Danh ngôn Châu Âu, trong sách Danh ngôn đông tây vào trong Cliboard.

 

[trungnt]

Tôi cũng cần tìm 1 giải pháp tương tự như cái bạn nói nhưng làm trên Excel, các anh chị nào bít xin chỉ giúp hoặc hưóng dẫn cách làm.....