Gộp nhiều file word và giữ nguyên số trang

Chia sẻ bởi:hands

★★★★★

‹ Nhờ hướng dẫn cách gộp các file... Chuyển dữ liệu từ Word sang Excel. ›

Quảng cáo

Trong word trong mục insert có mục Text from file để gộp nhiều file word thành 1 file.. Tuy nhiên việc gộp file bằng cách này có nhược điểm là không giữ nguyên được số trang… File 1 em có 1 trang… File 2 em có 1 trang… File 3 em có 3 trang… Em mong muốn khi gộp lại thành 5 trang.. Em xin phép được hỏi có cách nào khắc phục được không ạ

Cái này hơi bị khó, vì nếu file chuẩn bị chèn và file chèn có canh lề khác nhau thì dĩ nhiên khi chèn vào sẽ khác nhau (Ở đây chỉ đề cập số trang) thôi. Tôi ghi Macro lại và được đoạn code sau đó sửa lại một chút bạn xem có giúp ích được gì hay không.

Public Sub GPE()
Dim i As Integer
With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = True
    .Filters.Clear
    .Filters.Add "Word Files", "*.doc*"
    If .Show = True Then
        For i = 1 To .SelectedItems.Count
            Selection.InsertFile FileName:=.SelectedItems(i), Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False
            If i <> .SelectedItems.Count Then Selection.InsertBreak Type:=wdPageBreak
        Next i
    End If
End With
End Sub