Ghép nhiều file PowerPoint thành một

Giới thiệu.

Bạn có nhiều bản trình bày PowerPoint và muốn kết hợp chúng thành một file duy nhất? Đây là một nhu cầu phổ biến khi bạn cần tổng hợp thông tin từ nhiều nguồn hoặc chuẩn bị cho một bài thuyết trình lớn. Trong bài viết này, chúng tôi sẽ hướng dẫn bạn từng bước cách ghép nhiều file PowerPoint lại với nhau, từ việc sử dụng tính năng tích hợp trong PowerPoint đến các công cụ trực tuyến và phần mềm bên ngoài.

1. Sử Dụng Microsoft PowerPoint Để Kết Hợp Các File.

Microsoft PowerPoint cung cấp một cách đơn giản để kết hợp nhiều bản trình bày thành một file duy nhất. Dưới đây là các bước để thực hiện điều đó:

• Bước 1: Mở Microsoft PowerPoint và tạo một bản trình bày mới.
• Bước 2: Chuyển đến tab Home (Trang chủ) và chọn mũi tên dưới nút New Slide (Slide mới).
• Bước 3: Chọn Reuse Slides (Tái sử dụng slide) từ menu.
• Bước 4: Bấm vào Browse (Duyệt) và chọn file PowerPoint mà bạn muốn kết hợp.
• Bước 5: Lựa chọn các slide từ file được mở và bấm Insert All Slides (Chèn tất cả slide). Lặp lại quá trình này với các file khác.

2. Sử Dụng Phần Mềm Bên Ngoài Để Kết Hợp Các File.

Nếu bạn cần kết hợp nhiều file PowerPoint nhanh chóng, các phần mềm bên ngoài có thể giúp bạn thực hiện điều này dễ dàng:

• iLovePDF: Truy cập vào trang web iLovePDF, chọn tính năng hợp nhất và tải lên các file PowerPoint của bạn. Hệ thống sẽ tự động kết hợp chúng thành một file duy nhất.
• SmallPDF: Tương tự như iLovePDF, bạn có thể sử dụng SmallPDF để kết hợp các file PowerPoint bằng cách tải lên và kết hợp chúng trực tuyến.

3. Sử Dụng VBA Macro Trong PowerPoint.

Nếu bạn thường xuyên cần kết hợp nhiều file PowerPoint và muốn tự động hóa quy trình, việc sử dụng VBA Macro có thể là giải pháp lý tưởng:

• Bước 1: Mở PowerPoint và nhấn Alt + F11 để mở cửa sổ VBA Editor.
• Bước 2: Chọn Insert (Chèn) > Module (Mô-đun) và dán đoạn mã VBA sau vào cửa sổ mô-đun

Sub CombinePPT()
    Dim fd As FileDialog
    Dim filePaths As Object
    Dim pptApp As Object
    Dim mainPres As Presentation
    Dim tempPres As Presentation
    Dim slide As slide
    Dim i As Integer

    ' Tạo đối thoại để chọn các file PowerPoint
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    fd.Title = "Chọn các file PowerPoint để kết hợp"
    fd.Filters.Clear
    fd.Filters.Add "PowerPoint Files", "*.ppt; *.pptx"
    fd.AllowMultiSelect = True

    ' Hiển thị hộp thoại và lưu các file đã chọn
    If fd.Show = -1 Then
        Set filePaths = fd.SelectedItems
    Else
        MsgBox "Không có file nào được chọn.", vbInformation
        Exit Sub
    End If

    ' Tạo một bản trình bày mới để hợp nhất các file
    Set pptApp = Application
    Set mainPres = pptApp.Presentations.Add

    ' Lặp qua tất cả các file đã chọn và chèn các slide vào bản trình bày chính
    For i = 1 To filePaths.Count
        On Error Resume Next
        Set tempPres = pptApp.Presentations.Open(filePaths(i), ReadOnly:=msoTrue)
        If Err.Number = 0 Then
            For Each slide In tempPres.Slides
                slide.Copy
                mainPres.Slides.Paste (mainPres.Slides.Count + 1)
            Next slide
            tempPres.Close
        Else
            MsgBox "Không thể mở file: " & filePaths(i) & vbCrLf & "Lỗi: " & Err.Description, vbExclamation
            Err.Clear
        End If
        On Error GoTo 0
    Next i

    MsgBox "Các bản trình bày đã được kết hợp thành công!"
End Sub

• Bước 3: Nhấn Alt + F8 để mở cửa sổ Macro, chọn CombinePPT và nhấn Run (Chạy).

Tùy vào số lượng file, bạn có thể cần chờ đợi một chút. Chúng tôi đã thử nghiệm với hơn 25 file và 200 slide kết hợp, và thời gian chờ đợi là khá nhanh.

Kết Luận.

Ghép nhiều file PowerPoint lại thành một file duy nhất không phải là việc khó khăn nếu bạn biết cách sử dụng các công cụ và phương pháp phù hợp. Dù bạn chọn cách sử dụng Microsoft PowerPoint, phần mềm bên ngoài, hay VBA Macro, mỗi phương pháp đều có những ưu điểm riêng giúp bạn hoàn thành công việc một cách hiệu quả.

Lưu ý, nếu bạn có 10 file và muốn ghép chúng theo thứ tự, bạn nên chọn file từ số 10 đến số 1.