David는 학생들에게 작곡에 반드시 사용해야하는 약 20 개의 단어와 구문을 학생들에게 할당하는 교사입니다. 각 단어 또는 구는 한 번 이상 사용해야합니다. 중복에 대한 추가 사항은 없지만 학생들은 단어 또는 구문 중 하나를 사용할 때마다 1 점을받습니다. David는 각 단어와 구를 검색하고 사용 기록을 만드는 매크로를 사용하여 작업을 표시 할 수있는 쉬운 방법을 찾고 있습니다. Dave의 바람은 Word가 검색 및 계산을 수행하여 작곡의 품질을 평가하는 데 집중할 수 있도록하는 것입니다.

특정 단어 나 구가 몇 개 있는지 수동으로 파악하려면 Word의 찾기 기능을 사용할 수 있습니다.

  1. Ctrl + F를 누릅니다. Word는 찾기 및 바꾸기 대화 상자의 찾기 탭을 표시합니다.

  2. 찾을 내용 상자에 찾으려는 단어 나 구를 입력합니다.

  3. 사용 가능한 경우 자세히 버튼을 클릭합니다.

  4. 단일 단어를 검색하는 경우 전체 단어 만 찾기 확인란을 클릭합니다.

  5. 찾은 모든 항목 강조 표시 확인란을 클릭합니다.

  6. 모두 찾기를 클릭합니다.

Word는 대화 상자에서 사용자의 단어 또는 구에서 찾은 횟수를 보여줍니다. 이 기법은 편리하지만 35 개의 다른 학생 작곡에서 20 개의 단어와 구문에 대해 반복해야 할 경우 그 매력을 잃어 버립니다. 실제로 매크로는보다 실용적인 접근 방식입니다.

찾기 및 바꾸기 대화 상자에 표시된 항목 수를 VBA를 통해 액세스 할 수 있으면 매우 편리합니다. 내가 결정할 수있는 한이 값은 액세스 할 수 없습니다. 즉, 매크로 자체에서 반복되는 검색 및 계산에 의존해야합니다. 이를 수행하는 방법에 대한 한 가지 좋은 예는 Microsoft 기술 자료에서 찾을 수 있습니다.

http://support.microsoft.com/kb/240157

이 페이지의 코드는 일련의 단어 나 구를 검색하고 모든 결과를 한 번에 표시하도록 비교적 쉽게 변경할 수 있습니다.

또 다른 독특한 접근 방식은 학생 작곡에 대한 가정을 뒤집는 것입니다. 각 단어 나 구를 사용한다고 가정합니다 (단어와 구가 20 개인 경우 20 점으로 시작합니다)

포인트 중 하나를 사용하지 않는 경우에만 포인트를 뺍니다.

Sub ScoreCard()

Dim iScore As Integer     Dim iTopScore As Integer     Dim WordList As Variant     Dim i As Integer     Dim sUnused As String

' Enter the words or phrases in the array below;     ' each word or phrase in quotation marks and     ' separated by commas     WordList = Array("Mr.", "jelly", "wince", _       "proper", "fix", "compound", "high and dry")



' Counts the number of words in the array     iTopScore = CInt(UBound(WordList)) + 1     iScore = iTopScore

' Counts the number of "misses"

sUnused = ""

For i = 1 To iTopScore         With Selection.Find             .Forward = True             .Wrap = wdFindContinue             .Format = False             .MatchCase = False             .MatchAllWordForms = False             .MatchWholeWord = True             .Execute FindText:=WordList(i - 1)

End With         If Selection.Find.Found = False Then            iScore = iScore - 1            sUnused = sUnused & vbCrLf & WordList(i - 1)

End If     Next i

' Displays the score     If iScore = iTopScore Then         sUnused = "All words and phrases were used."

Else         sUnused = "The following words and phrases" & _           " were not used:" & sUnused     End If     sUnused = vbCrLf & vbCrLf & sUnused     MsgBox Prompt:="The score is " & iScore & _       " of " & iTopScore & sUnused, Title:="What's the Score?"

End Sub

매크로는 작문에 대한 점수를 표시하고 작문에 사용되지 않은 단어 나 구도 표시합니다.

_ 참고 : _

이 페이지 (또는 WordTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / wordribbon-WordTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_WordTips_는 비용 효율적인 Microsoft Word 교육을위한 소스입니다.

(Microsoft Word는 세계에서 가장 널리 사용되는 워드 프로세싱 소프트웨어입니다.)이 팁 (333)은 Microsoft Word 97, 2000, 2002 및 2003에 적용됩니다. Word의 리본 인터페이스에 대한이 팁 버전 (Word 2007)을 찾을 수 있습니다. 이후) 여기 :

link : / wordribbon-Checking_for_Words_and_Phrases [단어 및 구문 확인].