Set myStoryRangeFoot = ActiveDocument.StoryRanges(wdFootnotesStory)
Set myStoryRangeMain = ActiveDocument.StoryRanges(wdMainTextStory)
For Each myStoryRange In Array(myStoryRangeMain, myStoryRangeFoot)
...
Как в Array поварьировать число элементов?
Задача - провести чистку текста (типа заменить пробелы после предлогов на неразрывные пробелы).
Это надо сделать как в осн. тексте, так и в сносках.
Для этого есть конструкция:
Но если сносок в документ нет, возникает ошибка ("запрашиваемый номер семейства не существует").
Я собрался проверить наличие сносок так:
Тогда строка
должна стать короче на один пункт
Можно ли как-то это описать в виде двух вариантов массива, в котором и перебирать элементы?
Типа
mArr = (myStoryRangeMain) и, если сноски есть mArr = (myStoryRangeMain, myStoryRangeFoot)
Это надо сделать как в осн. тексте, так и в сносках.
Для этого есть конструкция:
Код:
Я собрался проверить наличие сносок так:
Код:
On Error Resume Next
Set myStoryRangeFoot = ActiveDocument.StoryRanges(wdFootnotesStory)
If myStoryRangeFoot = Empty Then mFoots = False Else mFoots = True
Set myStoryRangeFoot = ActiveDocument.StoryRanges(wdFootnotesStory)
If myStoryRangeFoot = Empty Then mFoots = False Else mFoots = True
Код:
For Each myStoryRange In Array(myStoryRangeMain, myStoryRangeFoot)
Код:
For Each myStoryRange In Array(myStoryRangeMain)
Типа
mArr = (myStoryRangeMain) и, если сноски есть mArr = (myStoryRangeMain, myStoryRangeFoot)
Код:
On Error Resume Next
Set myFoot = ActiveDocument.StoryRanges(wdFootnotesStory)
Set myMain = ActiveDocument.StoryRanges(wdMainTextStory)
For Each myStory In Array(myMain, myFoot)
If Not IsEmpty(myStory) Then
'...
End If
Next
Set myFoot = ActiveDocument.StoryRanges(wdFootnotesStory)
Set myMain = ActiveDocument.StoryRanges(wdMainTextStory)
For Each myStory In Array(myMain, myFoot)
If Not IsEmpty(myStory) Then
'...
End If
Next
Если действовать строго по Вашему плану, то Array можно заменить на коллекцию, но можно и просто :
или если нужны только wdFootnotesStory, wdMainTextStory
Код:
For Each myStoryRange In ActiveDocument.StoryRanges
'Ваши действия
Next
'Ваши действия
Next
Код:
For Each myStoryRange In ActiveDocument.StoryRanges
Select Case myStoryRange.StoryType
Case wdFootnotesStory, wdMainTextStory
'Ваши действия
End If
Next
Select Case myStoryRange.StoryType
Case wdFootnotesStory, wdMainTextStory
'Ваши действия
End If
Next
А все равно мне надо иметь возможность обработать текст, когда сносок может не быть.
То есть когда
Я начал писать так:
Но VBA не дает поставить инструкцию if внутри case
statments invalid between Select case and first Case
То есть когда
Код:
myStoryRangeFoot = Empty
Код:
If myStoryRangeFoot = Empty Then
Case wdMainTextStory
Else
Case wdFootnotesStory, wdMainTextStory
End If
Case wdMainTextStory
Else
Case wdFootnotesStory, wdMainTextStory
End If
statments invalid between Select case and first Case
Можно ли как-то это описать в виде двух вариантов массива, в котором и перебирать элементы?
Типа
mArr = (myStoryRangeMain) и, если сноски есть mArr = (myStoryRangeMain, myStoryRangeFoot)
Типа
mArr = (myStoryRangeMain) и, если сноски есть mArr = (myStoryRangeMain, myStoryRangeFoot)
Код:
Dim mArr(,)
если сноски есть
Redim mArr(myStoryRangeMain, myStoryRangeFoot)
иначе
Redim mArr(myStoryRangeMain, 0)
если сноски есть
Redim mArr(myStoryRangeMain, myStoryRangeFoot)
иначе
Redim mArr(myStoryRangeMain, 0)
Dmitry2064, Не нужно совмещать свои хотелки с моим ответом, по той простой причине, что в этом цикле - нет <сносок, которых может не быть>
Код:
For Each myStoryRange In ActiveDocument.StoryRanges
'Ваши действия
Next
'Ваши действия
Next
Цитата: pashulka
Dmitry2064, Не нужно совмещать свои хотелки с моим ответом, по той простой причине, что в этом цикле - нет <сносок, которых может не быть>
Код:
For Each myStoryRange In ActiveDocument.StoryRanges
'Ваши действия
Next
'Ваши действия
Next
Спасибо, это я понял. Но как показала практика, "пробежка" во всем StoryRanges оказывается довольно долгой. Поэтому хотелось сократить до двух объектов:
myStoryRangeMain и myStoryRangeFoot.
Но в варианте с отсутствием сносок не смог правильно записать задачу.
Cпасибо за пояснения и Вам и UserNet2008.
Цитата: UserNet2008
на этой строке сразу текст краснеет и пишется Syntax Error.
Может быть так задаче понятнее:
Если wdFootnotesStory не существует, то будет ошибка. Как правильно записать условие, "искать в Main или (если есть и сноски), то и в Foot"?
Код:
Set myStoryRangeMain = ActiveDocument.StoryRanges(wdMainTextStory)
Set myStoryRangeFoot = ActiveDocument.StoryRanges(wdFootnotesStory)
For Each myStoryRange In Array(myStoryRangeMain, myStoryRangeFoot)
...
Next
Set myStoryRangeFoot = ActiveDocument.StoryRanges(wdFootnotesStory)
For Each myStoryRange In Array(myStoryRangeMain, myStoryRangeFoot)
...
Next
Цитата: UserNet2008
Моя бодъя sorry!
надо так
надо так
Код:
Dim mArr()
Ага, прошло. Зато теперь остановка на Redim mArr(myStoryRangeMain, myStoryRangeFoot) - Type mismatch пишет.
Код:
Set myStoryRangeMain = ActiveDocument.StoryRanges(wdMainTextStory) '' определили основной текстовый материал
For Each mStor In ActiveDocument.StoryRanges ''' ищем, есть ли сноски
If mStor.StoryType = wdFootnotesStory Then
Set myStoryRangeFoot = ActiveDocument.StoryRanges(wdFootnotesStory) ''' определили материал со сносками
mSn = True
Exit For
Else
mSn = False
End If
Next
If mSn = True Then
ReDim mArr(myStoryRangeMain, myStoryRangeFoot) ''' type mismatch
Else
ReDim mArr(myStoryRangeMain, 0)
End If
For Each mStor In ActiveDocument.StoryRanges ''' ищем, есть ли сноски
If mStor.StoryType = wdFootnotesStory Then
Set myStoryRangeFoot = ActiveDocument.StoryRanges(wdFootnotesStory) ''' определили материал со сносками
mSn = True
Exit For
Else
mSn = False
End If
Next
If mSn = True Then
ReDim mArr(myStoryRangeMain, myStoryRangeFoot) ''' type mismatch
Else
ReDim mArr(myStoryRangeMain, 0)
End If
как-так
Код:
On Error GoTo errhandler
Set myStoryRangeFoot= ActiveDocument.StoryRanges(wdFootnotesStory)
errhandler:
If Err = 5941 Then MsgBox "Сносок нет."
Set myStoryRangeFoot= ActiveDocument.StoryRanges(wdFootnotesStory)
errhandler:
If Err = 5941 Then MsgBox "Сносок нет."
Цитата: UserNet2008
как-так
Код:
On Error GoTo errhandler
Set myStoryRangeFoot= ActiveDocument.StoryRanges(wdFootnotesStory)
errhandler:
If Err = 5941 Then MsgBox "Сносок нет."
Set myStoryRangeFoot= ActiveDocument.StoryRanges(wdFootnotesStory)
errhandler:
If Err = 5941 Then MsgBox "Сносок нет."
Но дело не в отсутствии сносок.
Остановка на строке даже такого вида:
ReDim mArr(myStoryRangeMain, 0).
Программе не нравится сама запись.
Код:
ReDim mArr(myStoryRangeMain, 0)
Что может быть не так только значение myStoryRangeMain должно быть Integer or Long or Byte.
Or сам код не под строен под такую интерпретацию
В коде есть такая строка после этой строки пишем Stop
Запускаем макрос
Наводим курсор на myStoryRangeMain и правой кнопкой мыши, в меню выбираем Add Watch...
Под Expression: должно быть
myStoryRangeMain
Ok
Смотрим Value и Type должно быть Integer or Long or Byte
Код:
Set myStoryRangeMain = ActiveDocument.StoryRanges(wdMainTextStory)
Stop
Stop
Наводим курсор на myStoryRangeMain и правой кнопкой мыши, в меню выбираем Add Watch...
Под Expression: должно быть
myStoryRangeMain
Ok
Смотрим Value и Type должно быть Integer or Long or Byte
Цитата: UserNet2008
В коде есть такая строка после этой строки пишем Stop
Запускаем макрос
Наводим курсор на myStoryRangeMain и правой кнопкой мыши, в меню выбираем Add Watch...
Под Expression: должно быть
myStoryRangeMain
Ok
Смотрим Value и Type должно быть Integer or Long or Byte
Код:
Set myStoryRangeMain = ActiveDocument.StoryRanges(wdMainTextStory)
Stop
Stop
Наводим курсор на myStoryRangeMain и правой кнопкой мыши, в меню выбираем Add Watch...
Под Expression: должно быть
myStoryRangeMain
Ok
Смотрим Value и Type должно быть Integer or Long or Byte
Эта переменная (myStoryRangeMain) текстовой оказывается. Что логично.
Цитата: pashulka
Код:
On Error Resume Next
Set myFoot = ActiveDocument.StoryRanges(wdFootnotesStory)
Set myMain = ActiveDocument.StoryRanges(wdMainTextStory)
For Each myStory In Array(myMain, myFoot)
If Not IsEmpty(myStory) Then
'...
End If
Next
Set myFoot = ActiveDocument.StoryRanges(wdFootnotesStory)
Set myMain = ActiveDocument.StoryRanges(wdMainTextStory)
For Each myStory In Array(myMain, myFoot)
If Not IsEmpty(myStory) Then
'...
End If
Next
Это то, о чем мечтал. Просто проверить переменку на непустоту.
Хотя
On Error Resume Next
может подложить свинью.
Поэтому написал в внутри цикла в начале On Error GoTo 0
А в конце (внутри же) - On error resume next.
Спасибо за помощь))
Приглашаем всех новичков пройти наши курсы http://best4you.kz/