Задача пo Word
Вложений: 1
Кто знает как сделать так: Ворд должен проверять правильность заполнения кроссворда, вывод об ошибке или успешном результате на ваш вкус.
|
paul_8, и в чём проблема?
|
Iska, В том и проблема, что мы вводим ответы кроссвордов, а Ворд должен проверять верны ли ответы!
|
Куда именно вводим ответы?
|
| Amiranchik |
19-12-2012 15:09 2048897 |
Мда, paul_8, вы как-то запутанно это всё объясняете, давайте ещё раз по-порядку.
|
Amiranchik, в каждую ячейку вводится буква слова..
|
| Amiranchik |
20-12-2012 01:24 2049375 |
paul_8, такую задачу, проделать легче и при этом грамотнее в MS Excel-е а не в MS Word-e, по крайней мере стандартными средствами.
|
paul_8, я не вижу на скриншоте ячеек. Вижу криво нарисованную сетку.
Выкладывайте образец документа.
|
Amiranchik, Iska, Помогите пожалуйста решить эту олимпиадную задачу.. Конечно в Эксэле легче... Но задание нужно решить в Ворде, на рисунке в таблице, и таблицу нужно использовать!!
|
Цитата:
Цитата paul_8
задание нужно решить в Ворде, на рисунке в таблице, и таблицу нужно использовать!! »
|
Повторяю:
Цитата:
Цитата Iska
Выкладывайте образец документа. »
|
|
оIska, образец не выкладываю так как задания у меня нет.. В документе просто таблица в виде кроссворда вот и все... что сложного??
|
Ух… Третий раз говорю: выложите этот документ с таблицей.
|
Держите:
читать дальше »
Код:
Option Explicit
Sub ScanCrossword()
Dim objDictionary As Object
Dim objCell As Cell
Set objDictionary = CreateObject("Scripting.Dictionary")
With objDictionary
' 1-я строка
.Add 1, CreateObject("Scripting.Dictionary")
With .Item(1)
.Add 1, "Д"
.Add 2, "Е"
.Add 3, "Р"
.Add 4, "Е"
.Add 5, "В"
.Add 6, "О"
End With
' 2-я строка
.Add 2, CreateObject("Scripting.Dictionary")
With .Item(2)
.Add 1, "Е"
End With
' 3-я строка
.Add 3, CreateObject("Scripting.Dictionary")
With .Item(3)
.Add 1, "К"
End With
End With
If ThisDocument.Tables.Count > 0 Then
For Each objCell In ThisDocument.Tables.Item(1).Range.Cells
With objCell
If UCase(Left(.Range.Text, Len(.Range.Text) - 2)) <> UCase(objDictionary.Item(.RowIndex).Item(.ColumnIndex)) Then
MsgBox "Ошибка"
Exit Sub
End If
End With
Next
MsgBox "Успешный результат"
Else
MsgBox "Кто-то взял да и удалил кроссворд вместо его заполнения"
End If
End Sub
|
Iska, куда вставлять код?
|
Iska, конечно спасибо, но должен быть способ сделать проверку попроще! Ведь на олимпиаде запрещалось использовать VBA!!!
|
Цитата:
Цитата paul_8
но должен быть способ сделать проверку попроще! Ведь на олимпиаде запрещалось использовать VBA!!! »
|
Как узнаете — расскажете нам? |
Время: 21:01.
© OSzone.net 2001-
