02 мар 2016, 15:13
Здравствуйте скачал пример. Спасибо автору.
Подскажите пожалуйста почему при попытке запуска макроса:
Private Sub Test()
Dim iPath$, iFileName$, iText$
Dim iCount&, iCounter&, iArrText As Variant
Dim iWordApp As Object, iWordDoc As Object
iPath = "C:\Users\pc\Desktop\CHINESE TRANSLATIONS"
iFileName = Dir(iPath & "*.doc*")
If iFileName <> "" Then
With Range(Cells(2, "A"), Cells(Rows.Count, "B").End(xlUp))
iArrText = .Value: iCount = UBound(iArrText)
End With
Set iWordApp = CreateObject("Word.Application")
iWordApp.Visible = False
'iWordApp.DisplayAlerts = 0 'wdAlertsNone
Do
Set iWordDoc = iWordApp.Documents.Open(iPath & iFileName)
With iWordDoc.Content.Find
For iCounter = 1 To iCount
.Execute FindText:=iArrText(iCounter, 1), _
ReplaceWith:=iArrText(iCounter, 2), Replace:=2 'wdReplaceAll
Next
End With
iFileName = Dir: iWordDoc.Close -1 'wdSaveChanges
Loop Until iFileName = ""
iWordApp.Quit
Else
MsgBox "files with extension .doc not found", vbCritical, ""
End If
.............................................................
макрос сразу перескакивает в предупреждение
Else
MsgBox "files with extension .doc not found", vbCritical, ""
End If
то есть не находит ни одного файла с расширением "*.doc*"?
Спасибо