Как я могу сгенерировать или создать последовательность файлов слов, используя макрос Excel?

Question

Как я могу создать последовательность файлов слов с именем файла в качестве ячеек в B (2-9999)?

Я могу создавать файлы, но он сохраняется как 1,2,3,4....

Например

A       B
Title   Titletopic
11111   Fantasy Golf Resort
222     Golden Palms Resort & Spa
3333    Guest Line Hotels & Resorts
4444    Parkfield Resotel
555     Shreyas Retreat
666     Patels Inn
777     Plantation Trails
888     giri
9999    neil

мой код

Sub ControlWord()

    Dim appWD As Word.Application

    Set appWD = CreateObject("Word.Application.12")
    appWD.Visible = True

    Sheets("Sheet1").Select

    FinalRow = Range("A9999").End(xlUp).Row
    For i = 2 To FinalRow
        Sheets("Sheet1").Select

        Range("A" & i & ":B" & i).Copy


        appWD.Documents.Add

        appWD.Selection.Paste

        appWD.ActiveDocument.SaveAs Filename:="" & i

    Next i

End Sub

Answer 1

Вы используете переменную-счетчик, а не значение ячейки, поэтому вы предполагаете, что хотите "11111 Fantasy Golf Resort.docx"

appWD.ActiveDocument.SaveAs Filename:= Range("A" & i).Value & " " & Range("B" & i).Value

Или, альтернативно, предполагаете, что первая интересующая вас ячейка имеет значение "A2";

dim cell as range
for each cell in range("A2", range("A2").end(xldown))
    ...
    ...
    appWD.ActiveDocument.SaveAs Filename:= cell.value & " " & cell.offset(0, 1).value
    ...
next