Поиск текста в Word

[kminas]

Поставил я в документе который надо открыть, букву в виде скрытого текста. (Программа должна открывать один из двух файлов и в каждо я поставил разные метки) В начале при проверке буква обнаруживалась, но после доработки кода, при отладке вместо быквы рисуется текст в виде квадратика, а код простой, к примеру:

Код: Выделить всё

If Selection.Text = "м" Then...

. Что-то я не так сделал. А может быть кто-нибудь подскажет может быть есть более простые способы проверки, какой файл открыт. Только одно условие имя файла заранее не известно. Отличие между файлами: разные нижние колонтитулы первой страницы, например, различаются высотой.

[RayShade]

Используй в качестве метки буквый английского алфавита или цифры.

[kminas]

RayShade
Спасибо, тоже пробовал english. However, result was the same.

[RayShade]

Хм... Значит дело может в шрифтах там быть... Я тут кстати подумал, а почему бы не хранить ключевой символ в custom document properties? Зачем скрытым текстом заморачиваться?

[kminas]

Дело в том, что сначала-то буква находилась. У меня файл с таблицей в которой одна строчка. Дальше таблица с помощью программы заполняется и строчки добавляются. Букву я поставил ниже последней строки. Она перемещается вместе со вставленными строками, но я проверял только при наличии одной строчки, а потом понял, что надо вставить код нахождения последней заполненной строки, как в самой программе. Вставил. Код работает, а буква перестала определяться. Я проверял, код ее находит, ставил провелы и до и после буквы (на всякий случая) с функцией Trim, но ничего. Надо еще раз попробовать. У меня уже так было пару раз. Вроде ничего не менял, а потом пошло нормально.
Мне тут на другом форуме подсказали внедрить в файлы некую функцию с разными идентификаторами и, затем проверять ее. Может это и лучше будет? Надо попробовать.

[RayShade]

Самое простое - это не городить огород, а воспользоваться уже имеющимися средствами. Коллекция custom document properties - это как раз отличное средство.



Внедрять функцию - это заморачиваться с макросами, доступом в проект через word api и, как следствие - document security, антивирусами и прочим.



К чему лишняя головная боль?

[kminas]

RayShade
Поковырялся я в свойствах, сделал защиту от их изменения и все. А как программно к ним обратиться, не ведаю. Подскажи, А? Где про то прописано?

[RayShade]

Чтение:

Код: Выделить всё

With ActiveDocument.CustomDocumentProperties
For i = 1 To .Count
Debug.Print "Property " + Item(i).Name+ " value "+ .Item(i).Value + " type " +.Item(i).Type
Next i
End With


Добавление:

Код: Выделить всё

ActiveDocument.CustomDocumentProperties.Add (Name:="MyProperty", LinkToContent:=False, Value:="MyValue", Type:=msoPropertyTypeString)


[kminas]

RayShade спасибо!