asbo
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
IvANANvI
Я понимаю, что скрипты это наше все. Но, не до такой же степени :)
Джентльменам видимо льстит помогать дамам и они стараются, чтобы дамы чаще обращались за помощью :)
suomifinland
Не забивайте себе голову скриптами. Создайте просто пустой файл в Ворде, поместите в него следующий код и дополните его своим обработчиком. Будут обработаны все файлы в папке "C:\DOC\Examples\", имеющие расширение ".doc" и начинающиеся с "Test_":
Код:
Sub sb_Test()
'Dim fso As FileSystemObject, fFiles As Files, fFile As File
Dim fso As Variant, fFiles As Variant, fFile As Variant
Dim tPfx As Byte, tSfx As Byte
Dim sPath$, sFile$, sPfx$, sSfx$
sPfx = "Test_": tPfx = Len(sPfx)
sSfx = ".doc": tSfx = Len(sSfx)
sPath = "C:\DOC\Examples\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fFiles = fso.GetFolder(sPath).Files
For Each fFile In fFiles
sFile = fFile.Name
Debug.Print sFile
If Right(sFile, tSfx) = sSfx Then
Debug.Print "*** " & sFile
If Left(sFile, tPfx) = sPfx Then
Debug.Print "*** *** " & sFile & " Proceed" & vbLf
' Taalla laita koodi (Put your code here) (Здесь поместите свой код)
End If
End If
Next
End Sub
|
|
Всего записей: 1805 | Зарегистр. 03-10-2006 | Отправлено: 13:58 19-06-2011 | Исправлено: asbo, 23:42 19-06-2011 |
|
