Sub Example()
Dim strCurFolder As String, strNumVal As String, arrPath
Dim blnResFind As Boolean, intCurItem As Integer
strCurFolder = CurDir
MsgBox strCurFolder
arrPath = Split(strCurFolder, "\")
intCurItem = UBound(arrPath)
Do
If IsNumeric(arrPath(intCurItem)) Then
strNumVal = arrPath(intCurItem)
blnResFind = True
End If
intCurItem = intCurItem - 1
Loop While intCurItem >= 0 And blnResFind = False
If blnResFind Then
MsgBox strNumVal
Else
MsgBox "Ничего подходящего не найдено."
End If
End Sub
Как записать название поддиректории в переменную
Такая простенькая задача. Есть директория, в которой происходит обработка Вордовского дока. При создании нового документа (генерирую из программы верстки указатель и вставляю в новый ворд-документ) его надо сохранить в другой директории по сети, но занести в соотв. номер.
Если упростить задачу, то надо в конце имени сохраняемого нового документа приписать номер текущей директории.
Т.е. например работа идет в папке C:\Verstka\Beliakov\662\чб-леспром\
и документ должен быть сохранен, соответственно, с именем (c eminem ;)))
C:\Verstka\Beliakov\662\чб-леспром\lesprom_622.doc.
А в сл. раз уже с номером 623 и т.п. (директории с номерами я создаю сам). Корочо говоря, как выцепить этот номер текущей директории?. Если исп-ть ActiveDocument.Path, то при новом документе (в заголовке пишется "Документ1"), эта переменная оказывается пустой.
Если упростить задачу, то надо в конце имени сохраняемого нового документа приписать номер текущей директории.
Т.е. например работа идет в папке C:\Verstka\Beliakov\662\чб-леспром\
и документ должен быть сохранен, соответственно, с именем (c eminem ;)))
C:\Verstka\Beliakov\662\чб-леспром\lesprom_622.doc.
А в сл. раз уже с номером 623 и т.п. (директории с номерами я создаю сам). Корочо говоря, как выцепить этот номер текущей директории?. Если исп-ть ActiveDocument.Path, то при новом документе (в заголовке пишется "Документ1"), эта переменная оказывается пустой.
Цитата: Dmitry2064
... Корочо говоря, как выцепить этот номер текущей директории?...
Попробуйте так:
Код:
Все прекрасно сработало. Спасибо большое!