Word макросы не открывает файлы

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

Private Sub Test()
    Dim iPath$, iFileName$
    iPath = "C:Мои отчёты"
    
    With Application.FileDialog(msoFileDialogFolderPicker)
         .Title = "Выберите папку с .txt файлами"
         .InitialFileName = iPath
         If .Show = -1 Then
            iPath = .SelectedItems(1) & ""
         Else
            MsgBox "Отказ от выбора папки", vbCritical: Exit Sub
         End If
    End With
    
    iFileName = Dir(iPath & "Report*.txt")
    If Len(iFileName) > 0 Then
       Application.ScreenUpdating = False
       Do
            With Documents.Open(iPath & iFileName, Encoding:=1251)
                 .Content.Font.Size = 8
                 .PrintOut
                 .SaveAs iPath & Replace(iFileName, _
                 ".txt", ".doc", , , vbTextCompare), wdFormatDocument
                 .Close
            End With
            'Kill iPath & iFileName
            iFileName = Dir
       Loop Until Len(iFileName) = 0
       Application.ScreenUpdating = True
    Else
       MsgBox "В выбранной папке нет наших файлов", vbCritical
    End If
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

Private Sub Test2()
    Dim iPath$, iFileName$
    iPath = "C:Мои отчёты"
    
    With Application.FileDialog(msoFileDialogFolderPicker)
         .Title = "Выберите папку с .txt файлами"
         .InitialFileName = iPath
         If .Show = 0 Then Exit Sub
         iPath = .SelectedItems(1) & ""
    End With
    
    iFileName = Dir(iPath & "Report*.txt")
    Do Until Len(iFileName) = 0
       With Documents.Open(iPath & iFileName, , , , , , , , , wdOpenFormatText, 1251, False)
            .Content.Font.Size = 8
            .PrintOut
            .SaveAs iPath & Replace(iFileName, ".txt", ".doc", , , vbTextCompare), wdFormatDocument
            .Close
       End With
       'Kill iPath & iFileName
       iFileName = Dir
    Loop
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

Option Explicit
Dim WordObj As Object
Dim WordDoc As Object
Dim MyPath As String
Dim iFileName As String
Sub Макрос1 ()
Set WordObj = CreateObject("Word.Application")
MyPath = "C:Report" 'указать пут к папке'
iFileName = Dir(MyPath) 'имя первого файла в папке Не менять!'
Do While iFileName <> ""
Set WordDoc = WordObj.Documents.Open(MyPath + iFileName) 'открываем первый файл в папке'
WordObj.Visible = True 'можно отображать можно не отображать'
iFileName = Dir 'получение следующего имени в папке Не менять!!!'
Loop
MsgBox "файлы обработаны", vbOKOnly + vbInformation, "оработка файлов"
End Sub

1
2
3

iPath = "C:Мои отчёты"
 
iPath = .SelectedItems(1) & ""

1

Application.GetOpenFileName

1

Application.FileDialog(msoFileDialogFilePicker)

1
2
3
4
5
6
7
8
9
10
11

With Application.FileDialog(msoFileDialogFilePicker)
     .AllowMultiSelect = False
     .Title = "Выберите .txt файл"
     .Filters.Add "Text Files", "*.txt", 1
     .InitialFileName = Application.Path 'Укажите свою папку
     If .Show = -1 Then
         MsgBox .SelectedItems(1)
     Else
         MsgBox "Отказ от выбора файла", vbCritical
     End If
End With

1
2
3
4
5
6
7
8
9

Sub Test()
 
 ChDir "C:Documents and SettingsuserМои документыTest"  ' путь какой-нужно
   Dim iFileName As Variant
   iFileName = Application.GetOpenFilename(" (*.txt),*.txt")
   
Workbooks.OpenText Filename:=iFileName  
  
 End Sub

1
2
3
4
5
6
7
8
9
10
11
12

Private Sub Test()
     Dim iPath$, iFileName As Variant
     iPath = "C:Documents and SettingsUserМои документыTest"
     ChDrive Left(iPath, 2): ChDir iPath 'Можно просто ChDrive iPath
     
     iFileName = Application.GetOpenFilename("Text Files (*.txt),*.txt")
     If iFileName <> False Then
        Workbooks.OpenText FileName:=iFileName
     Else
        MsgBox "Зачем всё это нужно было ...", vbCritical
     End If
 End Sub