Я разработал свой код в Word 2013. К сожалению, у него есть проблема, которую я не могу объяснить в Word 2007.
Function getRanges(searchDocument As Document) As Range()
...
For Each sec In searchDocument.Sections
With sec
For Each headerfooter In .Headers
Set result(count) = headerfooter.Range
count = count + 1
For Each s In headerfooter.Shapes
' ERROR 70 Access denied
If s.TextFrame.HasText Then
' ERROR 70 Access denied
Set result(count) = s.TextFrame.textRange
count = count + 1
End If
Next
Next
...
Форма (и) не пуста, и я просто читаю свойство. Почему я не могу получить доступ к тексту в своем заголовке в Word 2007?
Есть идеи?
Jo