[Giúp đỡ] Sửa lỗi thay thế từ Excel sang Word khi ký tự thay thế > 255 ký tự (1 người xem)

[quyenpv]

Liên quan đến Topic này rất hay và tiện lợi cho anh em hay phải làm văn bản. Tuy nhiên chương trình đang có 1 hạn chế là khi chuỗi thay thế có chiều dài > 255 ký tự thì xảy ra lỗi.
Về thuật toán em nghĩ thế này.
+ Ktra chiều dài chuỗi > 0 và < 255 thì code chạy OK
+ Ktra chiều dài chuỗi > 255 ký tự thì thực hiện cắt chuỗi làm 2 chuỗi nhỏ
Mong anh chị sửa và bổ sung đoạn code trên giúp ạ

4       ''''' Xoa key thua trong File Bao cao
        For Each cls In Range(ShTrangChu.[f3], ShTrangChu.[f65000].End(3))
            If cls(1, 2) = 0 Then
                .Selection.Find.Execute cls, , , , , , , , , "_", 2
            End If
        Next
        
5        '''' Noi lai cac doan van trong File In
        .Selection.Find.Execute "_" & Chr(13), , , , , , , , , " ", 2
        .Selection.Find.Execute "_", , , , , , , , , "", 2

 

[Hau151978]

Cái này có vẻ tương tự mail merge. Bạn thử dùng file word làm dữ liệu nguồn cho mail merge xem được không?

 

[quyenpv]

Cái này có vẻ tương tự mail merge. Bạn thử dùng file word làm dữ liệu nguồn cho mail merge xem được không?

Tương tự bạn, nhưng bị hạn chế khi Replace lỗi trường hợp > 255 kỹ tự

 

[Hau151978]

Tương tự bạn, nhưng bị hạn chế khi Replace lỗi trường hợp > 255 kỹ tự

Mình thử thay thế 1140 ký tự vẫn bình thường, không cần chuyển excel đâu. Ví dụ file a.docx lấy dữ liệu từ file b.docx

 

[quyenpv]

Do mình tính toán ở excel nên nhu cầu cần thay thế từ khóa trong excel sang word

 

[be_09]

Liên quan đến Topic này rất hay và tiện lợi cho anh em hay phải làm văn bản. Tuy nhiên chương trình đang có 1 hạn chế là khi chuỗi thay thế có chiều dài > 255 ký tự thì xảy ra lỗi.
......................................................
[/CODE]

Góp ý:
Theo anh thì nên thiết kế cái tờ trình này trên Excel luôn (những chỗ tô đỏ trong Word là làm được tất) sẽ thuận tiện trong việc định dạng bất kỳ thứ gì.
Có thể tham khảo cách làm trong File của bài viết ở Link sau (là tương tự), nếu nhất trí cách làm trên thì ta sẽ tính tiếp.
https://www.giaiphapexcel.com/diendan/threads/theo-dõi-và-truy-vấn-đơn-thuốc-nơi-phòng-khám-bệnh.126073/

 

[quyenpv]

Làm tất trên excel em đã làm rồi anh. Tuy nhiên có những chỗ định dạng tiêu đề đơn vị dài trong excel không được a nên em mới cần lấy dữ liệu từ excel sang word

 

[be_09]

Làm tất trên excel em đã làm rồi anh. Tuy nhiên có những chỗ định dạng tiêu đề đơn vị dài trong excel không được a nên em mới cần lấy dữ liệu từ excel sang word

Làm được anh mới nêu, dài bao nhiêu cũng làm được.
Em có địa chỉ Mail của anh rồi, gửi File đó qua đi.

 

[VetMini]

Làm tất trên excel em đã làm rồi anh. Tuy nhiên có những chỗ định dạng tiêu đề đơn vị dài trong excel không được a nên em mới cần lấy dữ liệu từ excel sang word

Cỡ style và paging như bạn đang làm thì thực hiện luôn ở Excel dễ hơn. Excel chỉ chịu thua Word khi:
1. văn bản của bạn rất dài và cần phân đoạn một cách khoa học (trình độ phân đoạn này là trình độ Word cao cấp)
2. văn bản bắt buộc có những styles mà Excel không thực hiện được (trình độ style này là trình độ thiết kế cao cấp)
3. văn bản thuộc loại có thể publish (cỡ trình độ này tôi cũng không có mấy kinh nghiệm)

 

[quyenpv]

Cỡ style và paging như bạn đang làm thì thực hiện luôn ở Excel dễ hơn. Excel chỉ chịu thua Word khi:
1. văn bản của bạn rất dài và cần phân đoạn một cách khoa học (trình độ phân đoạn này là trình độ Word cao cấp)
2. văn bản bắt buộc có những styles mà Excel không thực hiện được (trình độ style này là trình độ thiết kế cao cấp)
3. văn bản thuộc loại có thể publish (cỡ trình độ này tôi cũng không có mấy kinh nghiệm)

Dear anh!
Đối với excel em làm đối với các tờ trình, quyết định liên quan đến thể thức văn bản thì excel chịu thua không thể định dạng được như co chữ trong word nên bắt buộc phải chuyển qua word anh ạ.
VD như tiêu đề này

TÊN ĐƠN VỊ

CỘNG HÒA XÃ HỘI CHỦ NGHĨA VIỆT NAM

Bài đã được tự động gộp: 28/6/18

Làm được anh mới nêu, dài bao nhiêu cũng làm được.
Em có địa chỉ Mail của anh rồi, gửi File đó qua đi.

Anh nhắn tin giúp em địa chi email với nhé. Em chuyển từ IP qua Android mất email ròi a

 

[befaint]

như tiêu đề này

Cái này dễ thôi.
Bạn dồn cỡ 25-30 cột lại để vùng cần trình bày giống như trang vở ô li ấy. Muốn vẽ chữ gì ở đâu cũng đẹp.
Nếu bạn chưa quen thì vẽ mấy cái textbox rồi trang điểm nó như bên Word thôi, đặt nó ở đâu tùy thích, gán giá trị từ cell nào đó vào textbox rất dễ dàng (gán dữ liệu tùy biến vào textbox).

 

[quyenpv]

Cái này dễ thôi.
Bạn dồn cỡ 25-30 cột lại để vùng cần trình bày giống như trang vở ô li ấy. Muốn vẽ chữ gì ở đâu cũng đẹp.
Nếu bạn chưa quen thì vẽ mấy cái textbox rồi trang điểm nó như bên Word thôi, đặt nó ở đâu tùy thích, gán giá trị từ cell nào đó vào textbox rất dễ dàng (gán dữ liệu tùy biến vào textbox).

Excel để chèn textbox nhiều sẽ rất nặng file. Anh giúp em đoạn code vba với nhé

 

[VetMini]

Dear anh!
....

Tôi không giao thiệp với người VIệt bằng tiếng ngoại.

@Mót: tuy mót có dặn tôi rằng "nếu không thích thì có quyền không trả lời, chứ không được chế diễu tiếng ngoại"
Xin thưa với mót rằng, tôi cần phải làm gương cho con tôi. Tôi không thể cấm nó nói với tôi "hê đét" trong khi người khác thì nói được.

 

[quyenpv]

Tôi không giao thiệp với người VIệt bằng tiếng ngoại.

@Mót: tuy mót có dặn tôi rằng "nếu không thích thì có quyền không trả lời, chứ không được chế diễu tiếng ngoại"
Xin thưa với mót rằng, tôi cần phải làm gương cho con tôi. Tôi không thể cấm nó nói với tôi "hê đét" trong khi người khác thì nói được.

Vâng anh!
Thói quen khi viết email, rút kinh nghiệm sâu sắc lần sau

 

[batman1]

Xin thưa với mót rằng, tôi cần phải làm gương cho con tôi. Tôi không thể cấm nó nói với tôi "hê đét" trong khi người khác thì nói được.

Bác bây giờ làm gương cho các cháu chứ sao lại làm gương cho các con?

 

[VetMini]

Bác bây giờ làm gương cho các cháu chứ sao lại làm gương cho các con?

Cháu tôi chưa biết vào diễn đàn. Bố mẹ chúng kiểm soát nghiêm hơn tôi.

 

[quyenpv]

Các bác sửa giúp code VBA trên với ạ

 

[thoai]

Code này có thể lam với table nhiều dòng và cột k bạn

Bài đã được tự động gộp: 30/6/18