Как скопировать имена выбранных файлов в Listbox?

[@лeся]

а какой командой можно выделить ячейку в таблице в которой вставлять текст? Таблица мне известна Table (1), Номер столбца тоже (сделаю проверку и на таблицу,и на номер столбца)

точнее я хочу выделить допустим Cell (i,2) ,и что бы построчно текст вставился ,но в последующие строки.
тут надо как то задать кол-во value в Listboxe, icont -допустим

и далее цикл ,где i- строка выбранной ячейки.

в cell(i,2).range. insertafter 1-е значение с Listboxa
i=i+1

т.е. далее будет выполняться по сути cell(i+1,2).range.insertafter 2-е значение с Listboxa

я наверное сумбурно и непонятно объясняю.
просто я всюду искала как же можно щелкнуть мышью и выбрать ячейку,во всех примерах только задается

[Пименов Александр]

Первое уточнение нумерация в списке начинается с 0 поэтому цикл будет выглядеть так:

Set tbl = Selection.Tables(1)
If ListBox1.ListIndex < 0 Then ListBox1.ListIndex = 0
r = Selection.Cells(1).RowIndex
c = Selection.Cells(1).ColumnIndex
For i = ListBox1.ListIndex to ListBox1.LictCount - 1
     ListBox1.ListIndex = i
        If i > tbl.Rows.Count Then
           tbl.Rows.Add
           tbl.Cell(tbl.Rows.Count, c).Range.Text = ListBox1.Text
        Else
           tbl.Cell(r, c).Range.Text = ListBox1.Text
           r = r + 1
        End if
Next i

Код проверяет выбран ли какое-нибудь значение в списке ListBox1, если нет то присваивает первое значение списка, если да вставка начнется начиная с выбранного списка, вставка в таблице

[@лeся]

о,Спасибо БОЛЬШОЕ! буду использовать

[@лeся]

ну так вот,пришла я вот к чему :

table row count мне не годится,поскольку в одной таблице несколько подразделов,чтобы было яснее в приложении скрин. Вот,и возникло несколько вопросов,надеюсь подможете,чем можете

1. после проверки номера столбца,как сделать правильнее выход? у меня вроде стоит эксит саб.но форма не закрывается
2. далее с проверкой на заполненность выбранной ячейки,тоже самое,либо ее убрать (хотя она скорее всего не лишняя,"от дурака"), тогда аналогичный выход из формы,или делать эту проверку как то заранее ,а не после того как Listbox уже сформирован и заполнен "именами"
3. следующее : при вставке текста,проверяется следующая ячейка (внизу),если не пуста то добавляется строка. Вопрос,может как то можно иначе реализовать?

Private Sub Btn_Insert_Txt_Click()
    Dim oTable As Table
    Dim sStr As String
    
    Set oTable = ActiveDocument.Tables(1)       'создание объекта таблицы (чтобы не обращаться каждый раз через ActiveDocument.Tables...)
        
        'проверка в каком столбце находится курсор
   If Selection.Information(wdEndOfRangeColumnNumber) <> 2 Then
        MsgBox " Выбран не тот столбец" & vbCr & " Вставка данных невозможна.": Exit Sub:

       Selection.MoveRight Unit:=wdCell, Count:=1
  End If
        
'        проверка - заполнена хоть одна ячейка в этой строке, где стоит курсор 
    For iCount = 1 To 8 Step 1
        sStr = oTable.Cell(Selection.Information(wdEndOfRangeRowNumber), iCount).Range.Text
        If Left(sStr, Len(sStr) - 2) <> "" Then
            MsgBox "Строка уже заполнена. Переместите курсор в правильную позицию или очистите ячейки текущей строки.": Exit Sub:
        End If
    Next
    
    If ListBox1.ListIndex < 0 Then ListBox1.ListIndex = 0
        r = Selection.Cells(1).RowIndex
        For i = ListBox1.ListIndex To Me.ListBox1.ListCount - 1
             ListBox1.ListIndex = i
                  oTable.Cell(r, 2).Range.Text = ListBox1.Text
                   r = r + 1
                If oTable.Cell(r, 2).Range.Text <> "" Then
                    Selection.InsertRowsBelow 1
                    Else
                End If
        Next i
    Unload Me
End Sub

[@лeся]

и еще ,не пойму почему multiselect у меня работает так,что в список файлов последний вносится первым?

    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        'Добавляется фильтр по типам файлов DWG и DOC.
        .Filters.Add "Files", "*.dwg; *.pdf;*.doc; *.docx", 1
   
        'Выбор нескольких файлов через Ctrl
        .AllowMultiSelect = True

        'По умолчанию для выбора предоставляется определенный диск
        .InitialFileName = "E:\Test\"
        If .Show = -1 Then
                 For Each vrtSelectedItem In .SelectedItems
'                     s = Mid(vrtSelectedItem, 1, Len(vrtSelectedItem) - InStr(1, StrReverse(vrtSelectedItem), ".")) 'отсечение расширения файла
'                     a = Mid(s, InStrRev(vrtSelectedItem, "\") + 1)                                                 'разбиение по "\",и отсечене пути файла.
                     a = Mid(Mid(vrtSelectedItem, 1, Len(vrtSelectedItem) - InStr(1, StrReverse(vrtSelectedItem), ".")), InStrRev(vrtSelectedItem, "\") + 1)
                     Me.ListBox1.AddItem a
                Next vrtSelectedItem
        Else
        End If
    End With

п.с. не смотрите пожалуйста на фильтры

[@лeся]

нет идей,да?
ну с первой частью я решила так,делать проверку местоположения курсора еще до выборки файлов.
а вот вопрос #25 всё еще открыт )

[Пименов Александр]

По мультиселекту, все нормально, как бы Вы не выбирали файлы в SelectedItems они будут отражаться по порядку сверху вниз.....

[Пименов Александр]

Вообще я так понял в вашей таблице строки обозначенные как 1-2 это шапка, а строки с надписью тип это расширение файла и таблица каждый раз должна пополняться а не создаваться заново. Так?

[@лeся]

Сообщение от Пименов Александр

По мультиселекту, все нормально, как бы Вы не выбирали файлы в SelectedItems они будут отражаться по порядку сверху вниз.....

странно,а у меня именно когда я выбираю хоть с Ctrl, хоть с SHIFt последний файл в списке становится первым. я уже хочу пустить им и этот вариант...пусть стрелочкой вниз опускают,хотя при 20 наименований,это конечно геморрно,но пока решения нет...Правильно у меня становится только когда я выбираю файлы через ctrl+a.Не знаю может это особенность multiselecta.


По второму посту- да таблица одна, ну впрочем первый вопрос (#24), я решила строки вроде добавляются (мне не хватает тестера который все варианты прощелкает :D ), и проверки на :

• заполненность ячейки (в выбранной строке);
• количество столбцов в таблице;
• нахождение курсора в необходимом столбце;

я вставила до появления формы,думаю это логично,так что "корректный" выход не нужен.Но конечно если есть какой то вариант я рассмотрю,потому что я пока может не предвижу проблем


в итоге главная проблема сейчас в multiselect.

[@лeся]

ну и напоследок вопрос чисто на ваш взгляд, как было бы лучше?

выбор файлов,одним разом ограничить?(сделала пока как проще: блокируя после выборки кнопку "выбрать")

или дать возможность "добирать" файлы из других папок в один "набор" Listbox-a?

если второй ,то я так понимаю надо будет поработать с "набором"(собирать в какой то select),и инициализацией формы...?