Задача пo Word

[paul_8]

Кто знает как сделать так: Ворд должен проверять правильность заполнения кроссворда, вывод об ошибке или успешном результате на ваш вкус.

[Iska]

paul_8, и в чём проблема?

[paul_8]

Iska, В том и проблема, что мы вводим ответы кроссвордов, а Ворд должен проверять верны ли ответы!

[Iska]

Куда именно вводим ответы?

[Amiranchik]

Мда, paul_8, вы как-то запутанно это всё объясняете, давайте ещё раз по-порядку.

[paul_8]

Amiranchik, в каждую ячейку вводится буква слова..

[Amiranchik]

paul_8, такую задачу, проделать легче и при этом грамотнее в MS Excel-е а не в MS Word-e, по крайней мере стандартными средствами.

[Iska]

paul_8, я не вижу на скриншоте ячеек. Вижу криво нарисованную сетку.

Выкладывайте образец документа.

[paul_8]

Amiranchik, Iska, Помогите пожалуйста решить эту олимпиадную задачу.. Конечно в Эксэле легче... Но задание нужно решить в Ворде, на рисунке в таблице, и таблицу нужно использовать!!

[Iska]

задание нужно решить в Ворде, на рисунке в таблице, и таблицу нужно использовать!! »
Повторяю:
Выкладывайте образец документа. »

[paul_8]

оIska, образец не выкладываю так как задания у меня нет.. В документе просто таблица в виде кроссворда вот и все... что сложного??

[Iska]

Ух… Третий раз говорю: выложите этот документ с таблицей.

[paul_8]

Вот

[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

[paul_8]

Iska, куда вставлять код?

[Iska]

В Ваш документ.

Открыть документ. Нажать Alt-F11. Вставить код в модуль «ThisDocument» этого самого документа. Я не знаю, какой у Вас конкретно Office, 2007 или 2010.

Управление макросами с помощью редактора Visual Basic - Поддержка - Office.com (http://office.microsoft.com/ru-ru/help/HA001042959.aspx)
Getting Started with VBA in Word 2010 (http://msdn.microsoft.com/en-us/library/office/ff604039(v=office.14).aspx)

[paul_8]

Iska, конечно спасибо, но должен быть способ сделать проверку попроще! Ведь на олимпиаде запрещалось использовать VBA!!!

[Iska]

но должен быть способ сделать проверку попроще! Ведь на олимпиаде запрещалось использовать VBA!!! »
Как узнаете — расскажете нам?