Trong 3s nhập đầy 200 trang giấy ?

[volga]

Em có vấn đề này xin hỏi ?
Trong Word 2003 ,trong vòng 3 giây mình có thể lấp đầy 200 trang giấy A4 ,Toàn chử không ?Có ai biết vấn đề này không ?
Có người bạn (Thiết Kế ) đố em như thế đấy !
Thanks!!!
Nếu saibox nhờ mod chuyễn giùm em .Thanks!!!!!

 

[BNTT]

Em có vấn đề này xin hỏi ?
Trong Word 2003 ,trong vòng 3 giây mình có thể lấp đầy 200 trang giấy A4 ,Toàn chử không ?Có ai biết vấn đề này không ?
Có người bạn (Thiết Kế ) đố em như thế đấy !
Thanks!!!
Nếu saibox nhờ mod chuyễn giùm em .Thanks!!!!!

Chuyện dễ như ăn ớt.
Bạn vào trong VBA của Word, Insert một module như sau:

Sub Lapchu()
    For i = 1 To 100000
        Selection.TypeText Text:="Gi" & ChrW(7843) & "i pháp Excel "
    Next
End Sub

Rồi ra ngoài Word, cho cái macro này chạy.
Số lượng trang mà có thể lấp đầy trong thời gian 3s còn tùy thuộc vào font chữ gì, size bao nhiêu... (thiết lập trước khi cho chạy macro)... Và tùy máy bạn mạnh hay yếu mà có thể tăng hoặc giảm con số 100000 trong ví dụ ở trên...

 

[Hai Lúa Miền Tây]

Em có vấn đề này xin hỏi ?
Trong Word 2003 ,trong vòng 3 giây mình có thể lấp đầy 200 trang giấy A4 ,Toàn chử không ?Có ai biết vấn đề này không ?
Có người bạn (Thiết Kế ) đố em như thế đấy !
Thanks!!!
Nếu saibox nhờ mod chuyễn giùm em .Thanks!!!!!

Mình cũng đang muốn biết làm như thế nào đây, trong vòng 3s thì làm sao lắp đầy được 200 trang giấy A4 , mình nghĩ trong vòng 3s thì có đủ thời gian để Ctrl C và Ctrl V từ 1 tài liệu nào đó có đầy 200 trang thôi

 

[volga]

Mình cũng đang muốn biết làm như thế nào đây, trong vòng 3s thì làm sao lắp đầy được 200 trang giấy A4 , mình nghĩ trong vòng 3s thì có đủ thời gian để Ctrl C và Ctrl V từ 1 tài liệu nào đó có đầy 200 trang thôi

Anh thử đi !3s Ctrl + C Và Ctrl + V củng bó tay .Chưa chắc đủ thời gian !
Thanks!!!!!
Macro ??? Em thấy anh đó làm sau mà ,em quay mặt đi quay lại đã có rồi ?Không có gì trong đó chứ (VBA).
Nó chỉ là một dòng tiếng Anh lập đi lập lại mới ghê chứ ?
Em nhớ được mấy chử nè ,The quick brown fox jumps... Còn 4 hay 5 chử gì nữa
Thanks!.

 

[PhanTuHuong]

Code này trong cái của bác Tường chạy vẫn chậm lắm, mặc dù thêm cái:

Application.ScreenUpdating=False

cũng không cải thiện được bao nhiêu. Chắc là mẹo nào đó không dùng đến VBA, nhưng quan tâm đến cái này củng chẳng để làm gì cả.

 

[ptlong04x1]

quan tâm đến cái này củng chẳng để làm gì cả.

Em thấy cái này cũng vui vui đó chứ, mang tính giải trí, thực dụng quá không tốt.

 

[volga]

Em thấy cái này cũng vui vui đó chứ, mang tính giải trí, thực dụng quá không tốt.

Đúng vậy !!!!
Trong bộ Office vẫn còn nhiều cái bí ẩn thật !
Công ty em ,em là người củng khá Excel .Nhưng gập câu hỏi này thì bó tay .
Chiều nay phải tốn Caphê thôi hi hi
Thanks All !!!!!!

 

[Hai Lúa Miền Tây]

Anh thử đi !3s Ctrl + C Và Ctrl + V củng bó tay .Chưa chắc đủ thời gian !
Thanks!!!!!
Macro ??? Em thấy anh đó làm sau mà ,em quay mặt đi quay lại đã có rồi ?Không có gì trong đó chứ (VBA).
Nó chỉ là một dòng tiếng Anh lập đi lập lại mới ghê chứ ?
Em nhớ được mấy chử nè ,The quick brown fox jumps... Còn 4 hay 5 chử gì nữa
Thanks!.

Cái này mình nghĩ là 1 thủ thuật (Người ta thiết lập sẵn trên máy): đoạn text đó người ta đã lập sẵn đến 200 trang rồi tô khối hết sau đó vào Insert\Auto Text--> chọn enter auto text entries here: bạn đặt tên cho nó la 200 xong bấm nút add cuối cùng OK, cái này được thiết lập sãn trên máy của họ nếu cần biểu diễn cho ai xem thì kêu người đó lại mở 1 doc mới nào đó rồi gọi cái đó lên thì nó chạy trong vòng 3s là nó lắp đầy 200 trang thôi.
Gọi auto text = cách vào insert\Auto text \ Normal, click chọn 200 là ok
Thân

 

[PhanTuHuong]

Xem thêm thủ thuật ở đây:

http://jmm.aaa.net.au/articles/9841.htm

 

[PhanTuHuong]

Đúng vậy !!!!
Trong bộ Office vẫn còn nhiều cái bí ẩn thật !
Công ty em ,em là người củng khá Excel .Nhưng gập câu hỏi này thì bó tay .
Chiều nay phải tốn Caphê thôi hi hi
Thanks All !!!!!!

Xa quá nhỉ!

Dùng = rand (200,99) lên đến 584 trang trong vòng 3 giây cơ, 200 trang nhằm nhò gì.

 

[BNTT]

Xa quá nhỉ!

Dùng = rand (200,99) lên đến 584 trang trong vòng 3 giây cơ, 200 trang nhằm nhò gì.

Hay nhỉ... cái này giống Trứng Phục Sinh trong mấy bộ Office cũ ghê.
Mình vừa thử trong Word2007, mở một file mới, chẳng làm gì hết, nhập cái này: =Rand(200,99), rồi Enter một cái.... 555 trang đầy chữ trong vòng chưa đến 2s.

Đây là nội dung của đoạn text được lập đi lập lại suốt 555 trang giấy:

On the Insert tab, the galleries include items that are designed to coordinate with the overall look of your document. You can use these galleries to insert tables, headers, footers, lists, cover pages, and other document building blocks. When you create pictures, charts, or diagrams, they also coordinate with your current document look. You can easily change the formatting of selected text in the document text by choosing a look for the selected text from the Quick Styles gallery on the Home tab. You can also format text directly by using the other controls on the Home tab. Most controls offer a choice of using the look from the current theme or using a format that you specify directly. To change the overall look of your document, choose new Theme elements on the Page Layout tab. To change the looks available in the Quick Style gallery, use the Change Current Quick Style Set command. Both the Themes gallery and the Quick Styles gallery provide reset commands so that you can always restore the look of your document to the original contained in your current template.

 

[ptlong04x1]

Hay thật, mình gõ =rand(i,j) trong đó i<=200 và j<=100 thì đều cho xuất hiện đoạn văn với nội dung và độ dài khác nhau. Haha, cái này nói không chừng có thể kiếm được mấy bữa cafe đó chớ.

 

[rollover79]

Xa quá nhỉ!

Dùng = rand (200,99) lên đến 584 trang trong vòng 3 giây cơ, 200 trang nhằm nhò gì.

Với World 2003, =RAND(i,j) sẽ cho ra i đoạn i đoạn, mỗi đoạn có j câu có nội dung là " [FONT=&quot]The quick brown fox jumps over the lazy dog.[/FONT]", mặc định i=3, j=5. Nhưng muốn câu "thần chú" có hiệu lực thì phải nhớ bật AutoCorrect lên nhé, không lại mất Cafe oan đấy .
Bật AutoCorrect: Tools/AutoCorrect Options -> Tích chọn vào Replace as you type

 

[volga]

Với World 2003, =RAND(i,j) sẽ cho ra i đoạn i đoạn, mỗi đoạn có j câu có nội dung là " [FONT=&quot]The quick brown fox jumps over the lazy dog.[/FONT]", mặc định i=3, j=5. Nhưng muốn câu "thần chú" có hiệu lực thì phải nhớ bật AutoCorrect lên nhé, không lại mất Cafe oan đấy .
Bật AutoCorrect: Tools/AutoCorrect Options -> Tích chọn vào Replace as you type

Qúa tuyệt vời !
Quá chu toàn ,mới mất Cafe xong ,bây giờ đi tìm lại được là cài chắc !
Thanks All !

 

[haonlh]

Cách tạo ra dữ liệu giả để thử nghiệm 1 việc gì đó, ví dụ định dạng cột, đánh số trang... là rất cần thiết
Tất nhiên sao chép 1 đoạn văn có sẵn cũng được. Nhưng dùng "hàm" RAND thì hay vì nhanh, và tỏ ra là người sành điệu.