ايجاد فايل ورد مجزا از داده هاي اكسل

[Peiman3]

درود بر شما دوستان و ممنون از سايت خوبتون
ممنون ميشم اگر بتونيد من را راهمايي كنيد.
من يك فايل اكسل دارم كه ستون يك اون حاوي نام و نام خانوادگي و ستون دو حاوي شماره ماي هست .
حالا مي خوام اطلاعات را به برنامه ورد انتقال بدم و يك فايل ورد احتياج دارم، فايل وردم مي خوام هر سطر به صورت مجزا در يك صفحه ورد ذخيره بشه(شايد مثل ايجادفاكتور) اما خودم مي خوام يك متن يكسان به تمام داده ها اضافه كنم
براي مثال گل پري با كد ملي ١٢٣٤ در شركت غذا مي خوره.
بعدم فايل ورد به اسم اون شخص ذخيره بشه،
پيشاپيش ممنون از راهنماييتون

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[amir_ts]

با سلام
با این کد میتونید یک رنج مشخص رو در قالب یک فایل word ، با دادن نام ذخیره کنید.
شاید قسمتی از جواب سوال شما باشه.

Sub test()
    Dim wb As Workbook
    Dim saveFile As String
    Dim Rng As Range
    On Error Resume Next
    Set Rng = Range("a1:c20")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set wb = Application.Workbooks.Add
    Rng.Copy
    wb.Worksheets(1).Paste
    saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.doc), *.doc")
    wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
    wb.Close
    Application.CutCopyMode = False
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    End Sub

[Peiman3]

با سلام
با این کد میتونید یک رنج مشخص رو در قالب یک فایل word ، با دادن نام ذخیره کنید.
شاید قسمتی از جواب سوال شما باشه.

Sub test()
    Dim wb As Workbook
    Dim saveFile As String
    Dim Rng As Range
    On Error Resume Next
    Set Rng = Range("a1:c20")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set wb = Application.Workbooks.Add
    Rng.Copy
    wb.Worksheets(1).Paste
    saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.doc), *.doc")
    wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
    wb.Close
    Application.CutCopyMode = False
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    End Sub

Mresi dadasham.
kheyli komak kard. ama bazam kheyli mayelam bedonam chetor mishe be sorat mmojaza har safhe ra zakhereh kar.