|
1 | 1 | Option Explicit |
2 | 2 |
|
| 3 | +Const GBOU_LINK = "https://komsomol.minobr63.ru/" |
| 4 | +Const GIT_LINK = "https://github.com/KSOSH/TimeTableWord2Pdf/" |
| 5 | +Const PROJECTSOFT_LINK = "https://projectsoft.ru/" |
| 6 | + |
3 | 7 | Const PDF = 17 |
4 | 8 | Const cPrefixTitle = " КЛАССА НА " |
5 | | -Const windowW = 1024 |
6 | | -Const windowH = 740 |
| 9 | +Const windowW = 900 |
| 10 | +Const windowH = 650 |
7 | 11 |
|
8 | 12 | Dim WShell: Set WShell = CreateObject("WScript.Shell") |
9 | 13 | Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject") |
@@ -239,15 +243,15 @@ Sub OU_OnChange() |
239 | 243 | End Sub |
240 | 244 |
|
241 | 245 | Sub GIT_OnClick() |
242 | | - WShell.Run "https://github.com/KSOSH/TimeTableWord2Pdf" |
| 246 | + WShell.Run GIT_LINK |
243 | 247 | End Sub |
244 | 248 |
|
245 | 249 | Sub ProjectSoft_OnClick() |
246 | | - WShell.Run "https://projectsoft.ru/" |
| 250 | + WShell.Run PROJECTSOFT_LINK |
247 | 251 | End Sub |
248 | 252 |
|
249 | 253 | Sub GBOU_OnClick() |
250 | | - WShell.Run "https://komsomol.minobr63.ru/" |
| 254 | + WShell.Run GBOU_LINK |
251 | 255 | End Sub |
252 | 256 |
|
253 | 257 | Sub btnHelp_OnClick() |
@@ -285,12 +289,18 @@ Sub btnConvert_OnClick() |
285 | 289 | regExc.Global = False |
286 | 290 | regExc.Pattern = "^~\$" |
287 | 291 | If Not regExc.Test(objFile.Name) Then |
| 292 | + DoEvents(0) |
| 293 | + fCount = fCount + 1 |
| 294 | + current = CStr(Round((fCount * 100) / (count))) & "%" |
| 295 | + ProgressLine.style.width = current |
| 296 | + ProgressVal.innerText = current |
| 297 | + DoEvents(0) |
288 | 298 | tFName = objFile.Name |
289 | 299 | ' Запускаем Word если он ещё не запущен |
290 | 300 | If objWord Is Nothing Then |
291 | 301 | Set objWord = CreateObject("Word.Application") |
292 | 302 | End If |
293 | | - output.innerText = tFName |
| 303 | + output.innerText = "Конвертирование: " + tFName |
294 | 304 | ' Пустой заголовок |
295 | 305 | docTitle = "" |
296 | 306 | ' Открываем документ |
@@ -332,12 +342,9 @@ Sub btnConvert_OnClick() |
332 | 342 | objDocument.Close |
333 | 343 | ' Обнуляем переменную |
334 | 344 | ' Set objDocument = Nothing |
335 | | - fCount = fCount + 1 |
336 | | - current = CStr(Round((fCount * 100) / (count - 1))) & "%" |
337 | | - ProgressLine.style.width = current |
338 | | - ProgressVal.innerText = current |
339 | | - DoEvents(0) |
340 | 345 | End If |
| 346 | + Else |
| 347 | + count = count - 1 |
341 | 348 | End If |
342 | 349 | Next |
343 | 350 | ' Если Word запущен - закроем его |
|
0 commit comments