DạyhọcIntel.net  

Bộ Giáo dục
Đào tạo

Chương trình dạy học
của Intel tại Việt Nam

Tài liệu
Hướng dẫn Kỹ năng

Viện Nghiên cứu Giáo dục
ĐH Sư Phạm TP. HCM

Intel Teach Elements


Trở lại   DạyhọcIntel.net > Góc tin học - công nghệ > Phần mềm > Văn phòng > Microsoft Word

Reply
 
Công cụ chủ đề Kiểu hiển thị
Old 18-09-2008, 23:09   #1
Hướng dẫn trộn đề thi trắc nghiệm trên WORD
tungld tungld is offline 18-09-2008, 23:09

I. Cài đặt Macro.
Bước 1: Trên thanh công cụ vào Tools\Macro\Record new macro để xuất hiện hộp thoại

(hình 1)
Đặt tên macro rồi nháy OK.
Bước 2: Trên thanh công cụ Tools\Macro\StopRecording
Bước 3: Nháy chọn Tools\Macro\macros để mở hộp thoại:

(hình 2)
Ta nháy chuột chọn nút Create để xuất hiện khung soạn thảo macro.


(hình 3)
Tại khung soạn thảo ta soạn đoạn mã sau vào thân chương trình macro.
Mã lệnh:
      n = Selection.Tables(1).Rows.Count
  For i = n To 1 Step -1
      a = Int(ActiveDocument.Tables(1).Rows.Count * Rnd + 1)
      Selection.Tables(1).Rows(a).Select
      Selection.Cut
      Selection.EndKey Unit:=wdStory
      Selection.Paste
  Next i
   
  For i = 1 To n
          Selection.Tables(1).Rows(i).Select
          Selection.HomeKey Unit:=wdLine
      Selection.Find.ClearFormatting
      With Selection.Find
          .Text = ":"
          .Replacement.Text = ""
          .Forward = True
          .Wrap = wdFindContinue
          .Format = False
          .MatchCase = False
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
      End With
      Selection.Find.Execute
      Selection.MoveLeft Unit:=wdCharacter, Count:=1
      Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
      a = Selection.Characters.Count
      Selection.HomeKey Unit:=wdLine
      Selection.MoveRight Unit:=wdCharacter, Count:=4
      If a = 6 Then
      Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
      Selection.Delete Unit:=wdCharacter, Count:=1
      Else
      Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
      Selection.Delete Unit:=wdCharacter, Count:=1
      End If
      Selection.HomeKey Unit:=wdLine
      Selection.MoveRight Unit:=wdCharacter, Count:=3
      Selection.TypeText Text:=" "
      Selection.TypeText Text:=i
      Next i
      
      For i = 1 To n
      Selection.Tables(1).Rows(i).Select
      a = Selection.Paragraphs.Count
      m = a - 1 - Int((Rnd * 3) + 1)
      Selection.Paragraphs(m).Range.Cut
      Selection.Tables(1).Rows(i).Select
      Selection.EndKey Unit:=wdLine
      Selection.TypeParagraph
      Selection.Paste
      For j = 2 To 5
      Selection.Tables(1).Rows(i).Select
      b = Selection.Paragraphs.Count
      y = b - j
      Selection.Paragraphs(y).Range.Select
      Selection.HomeKey Unit:=wdLine
      Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
      Selection.Delete Unit:=wdCharacter, Count:=1
      Select Case j
      Case 2
      z = "D"
      Case 3
      z = "C"
      Case 4
      z = "B"
      Case 5
      z = "A"
      End Select
      Selection.TypeText Text:=z
      Next j
      Selection.Tables(1).Rows(i).Select
      Selection.EndKey Unit:=wdLine
      Selection.TypeBackspace
  Next i
II. Soạn đề.
Trên word tạo 1 bảng gồm 1 cột, n hàng. soạn đề trắc nghiệm trên word sao cho mỗi câu nằm trong 1 ô. Và đánh dấu * vào cuối phương án đúng, mỗi phương án nằm trên 1 dòng.
Ví dụ:

Câu 1. Trong ngôn ngữ lập trình Pascal, cách khai báo xâu ký tự nào sau đây là đúng?
A. Var S: File of String;
B. Var S: array[1..256] of char;
C. Var S: File of Char;
D. Var S: String;*
Câu 2. Trong ngôn ngữ lập trình Pascal, về mặt cú pháp câu lệnh nào sau đây là đúng?
A. Type mang1c = array[1..100] of char;*
B. Type mang1c = array(1..100) of char;
C. Type mang = array[1 - 100] of char;
D. Type 1chieu = array[1..100] of char;
III. Trộn đề.
Nháy chọn Tools\macro\Macros để hiện hộp thoại như hình 3. Nháy chuột chọn nút RUN.
* Một số lưu ý.
- Chương trình chỉ trộn được vị trí các câu và vị trí các phương án đúng. Sau khi trộn xong đề thì bỏ dấu * ở các phương án đúng.
- Khi chạy Macro, macro sẽ thay đổi nội dung đề gốc do vậy cần lưu lại 1 đề gốc.
- Ở bước soạn đề sau khi tạo ra bảng để soạn, ta làm mờ đường viền của bảng, vì chương trình dựa vào bảng để trộn đề.
Sưu tầm và biên soạn
Tungld.


Danh mục đính kèm
Click image for larger version

Name:	pic1.jpg
Views:	2374
Size:	19.9 KB
ID:	22060   Click image for larger version

Name:	pic2.jpg
Views:	2338
Size:	19.6 KB
ID:	22061   Click image for larger version

Name:	pic3.jpg
Views:	2413
Size:	19.1 KB
ID:	22062  

Các tập tin đính kèm
Kiểu tập tin: doc huong dan.doc (93.5 KB, 1057 lượt xem)

__________________
Biển học là vô bờ
Chuyên cần thì cập bến.
----------
Home page: thptquanguyen.edu.vn

 
tungld's Avatar
tungld
Cao đẳng
Points: 79,930, Level: 87 Points: 79,930, Level: 87 Points: 79,930, Level: 87
Activity: 0% Activity: 0% Activity: 0%
Gia nhập: 02-2008
Đơn vị: Trường THPT Quảng Uyên, Cao Bằng
Bài viết: 542
Cảm ơn: 723
Được cảm ơn 955 lần trong 336 bài
Bài viết blog: 1
Lượt xem: 6555
Trả lời kèm trích dẫn
Đã cảm ơn tungld:
Old 19-09-2008, 00:25   #2
chibi
Lớp 8
Points: 8,453, Level: 27 Points: 8,453, Level: 27 Points: 8,453, Level: 27
Activity: 0% Activity: 0% Activity: 0%
 
chibi's Avatar
 
Gia nhập: 08-2008
Đơn vị: CHIBICOM
Bài viết: 166
Cảm ơn: 15
Được cảm ơn 153 lần trong 72 bài
Mặc định

Có cao thủ nào phát triển đoạn code trên thành Add-Ins để đưa vào Word, tạo ra luôn file cài đặt để mọi người dễ sử dụng thì tuyệt.
chibi is offline   Trả lời kèm trích dẫn
Đã cảm ơn chibi:
Reply


Những người đang xem chủ đề này: 1 (0 thành viên và 1 khách)
 
Công cụ chủ đề
Kiểu hiển thị

Quyền đăng bài
Bạn không thể đăng chủ đề mới
Bạn không thể đăng bài trả lời
Bạn không thể đính kèm
Bạn không thể sửa bài viết của bạn

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Nhảy đến diễn đàn

Những chủ đề liên quan
Chủ đề Người khởi xướng Diễn đàn Trả lời Bài cuối
Science Helper for Ms Word V1.1 - hõ trợ vẽ hình trong word btttntbn Vật Lý 8 22-03-2009 20:30
Word bị lỗi gì rất lạ. Cứu em với! dpsang Microsoft Word 4 14-02-2009 16:14
Sáng kiến kinh nghiệm (SKKN) & Nghiên cứu khoa học (NCKH) Xuân Hùng Công tác quản lý giáo dục 17 04-09-2008 22:21
Thao tác với định dạng docx của word 2007 trong Word 2003 nhipsongthoicongnghe Văn phòng 0 08-06-2008 08:29

Tất cả giờ đều quy về GMT +7. Bây giờ là 17:13.


Powered by vBulletin® Version 3.8.3
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Thuộc quyền sở hữu của DạyhọcIntel.net