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

[tuan16]

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 ạ

 

[haonlh]

Bạn có thích viết code hay chỉ thao tác bằng tay

 

[Maika8008]

Bạn có thích viết code hay chỉ thao tác bằng tay

Haha. Đương nhiên là làm gì cũng được chứ đừng bắt chép nội dung từng file dán qua file gộp.

 

[tuan16]

Bạn có thích viết code hay chỉ thao tác bằng tay

Dạ em cảm ơn ạ... Đoạn code để gộp file ạ. Em đang phải làm thủ công... Gộp file xong rồi tìm vị trí để xuống trang ạ

 

[giaiphap]

Dạ em cảm ơn ạ... Đoạn code để gộp file ạ. Em đang phải làm thủ công... Gộp file xong rồi tìm vị trí để xuống trang ạ

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

 

[tuan16]

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

Dạ em cam ơn anh đã giúp ạ

 

[tuan16]

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

nhờ anh xem giúp em với ạ. em copy đoạn code của anh về mà chạy không được. em có 3 file tên là 1, 2, 3.. file cuối là kết quả mong muốn của em.

 

[tuan16]

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

em sửa được rồi ạ.