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

특정 단어 나 구의 발생 횟수를 수동으로 파악하려면 Word의 찾기 기능을 사용할 수 있습니다. Word 2007을 사용하는 경우 다음 단계를 따르십시오.

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

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

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

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

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

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

Word는 대화 상자에서 사용자의 단어 또는 구에서 찾은 횟수를 보여줍니다. Word 2010 또는 Word 2013을 사용하는 경우 원하는 개수를 더 빨리 찾을 수 있습니다.

  1. Ctrl + F를 누릅니다. Word는 화면 왼쪽에 탐색 작업 창을 표시합니다. 창에서 찾아보기 탭이 선택됩니다.

  2. 한 단어를 검색하는 경우 작은 돋보기 버튼 오른쪽에있는 아래쪽 화살표를 클릭하고 옵션을 선택합니다. 옵션 대화 상자에서 전체 단어 만 찾기를 선택합니다.

  3. 탐색 창 상단의 상자에 찾으려는 단어 또는 구를 입력하고 Enter 키를 누릅니다.

Word는 탐색 작업 창의 맨 위에 해당 단어 또는 구에서 찾은 항목 수를 표시합니다.

이러한 기술은 편리하지만 35 개의 다른 학생 작문에서 20 개의 단어와 구문에 대해 반복해야 할 경우 매력을 잃게됩니다. 실제로 매크로는보다 실용적인 접근 방식입니다.

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

http://support.microsoft.com/?kbid=240157

이 페이지에는 코드가 Word 2000 용이라고 표시되어 있지만 Word 2007 및 Word 2010에서는 잘 작동합니다.이 페이지의 코드는 비교적 쉽게 변경하여 일련의 단어 나 구를 검색하고 모든 결과를 표시 할 수 있습니다. 한 번에. 또 다른 독특한 접근 방식은 학생 작문에 대한 가정을 뒤집는 것입니다. 각 단어 나 구를 사용한다고 가정하고 (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는 세계에서 가장 인기있는 워드 프로세싱 소프트웨어입니다.)이 팁 (9261)은 Microsoft Word 2007, 2010 및 2013에 적용됩니다.

여기에서 Word의 이전 메뉴 인터페이스에 대한이 팁의 버전을 찾을 수 있습니다.

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