Trang 2 của 6 Đầu tiênĐầu tiên 1234 ... CuốiCuối
Kết quả 11 đến 20 của 55

Chủ đề: Tách file word ra từng trang mỗi trang là 1 file

  1. #11
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Trích dẫn Gửi bởi tangtoc1
    ủa, sao em vừa ấn command thì tự file tạo ra các file khác tương ứng nhưng chưa kip save thì nó đã tự động đóng(ko lưu) tất cả lại

    anh chị em xem giúp em đoạn code với, hay là có cần phải chú ý gì hơn khi dùng ko. các chế độ protect và macro em đều đã tắt hoặc đưa về low cả ùi
    Bạn đã kiểm tra folder chứa file chưa mà biết nó không lưu?

  2. #12
    nguyenvanan91 Guest
    HIHI ừ bữa đó khi vào folder lưu thì đã thấy các file rùi, tuy nhiên còn vấn đề tự tắt hết các file sau khi làm xong thì chưa hiểu lắm

  3. #13
    baohanhtivilcd Guest
    Trích dẫn Gửi bởi tintam7251
    -Cách trả lời này dễ khiến cho người giúp bạn phiền lòng.
    -Theo mình, không có cách nào đơn giản hợn là phải dùng code.
    -Mình đã lấy code của bác huuthang_bd làm giúp bạn, bạn mở file bấm vào nút chia file.
    -Nếu chưa thấy hiệu quả thì vào Tools/Macro/Security/Security level - Chọn mức low/OK -Đóng file và mở lại- Bấm vào nút Chia file.
    -Chạy ngon rồi nhớ cám ơn bác huuthang_bd.
    Tại mình không rành thiệt...
    nhưng h mình muốn chạy thì như thế nào bác... code mù thiệt á..

    cảm ơn bác ấy rất nhiều ấy chứ...
    nhưng bây h làm sao đưa vào file word và chạy được bác?...

    mềnh mò thêm 1 buổi thì add vào được nhưng vẫn chưa hiểu nhiều lắm... nhưng sao khi tách file ra nó mất chữ cuối... và nhảy thêm 1 trang trắng nữa...

    vậy.. có file mình import ra rồi.. sao này muốn đưa vào văn bản khác thì nó cũng chay tương tự hay có thiết lập j phức tạp nữa hok... mò tý thấy thích mà ngại quá.. khó bà cố...

    bạn có thể chỉ mình từng công đoạn đưa vào file word được không?

    làm sao dời cái command buton ra chỗ khác, với lại muốn làm ở những văn bản khác thì ta phải thực hiện những công đoạn nào bác...

  4. #14
    lehieuh90 Guest
    1. Muốn dời Command Button, bạn làm như sau:
    -Vào View/Toolbars/Control ToolBox Bấm vào Design Mode ( nút ở góc trái trên)
    -Kích phải vào CB chọn Format Control/Layout/ In front of text/OK
    -Sau đó bạn có thể kéo CB đến vị trí bất kỳ.
    2. Muốn sử dụng cho văn bản khác, bạn copy văn bản mới đó vào file, đặt file vào thư mục khác và bấm CB.

  5. #15
    zphot9x Guest
    đã pm inbox bác... add nick mình với...tks bác

    mà sẵn bác chỉ mềnh làm sao cho nó tách ra chỉ từng trang từng trang thoy....

    cái chữ i trong code có nghĩa là 1 trang, rồi tách ra trang tiếp theo thì i+1 tức là trang 2, và 3 thì cứ thế.. phải hem..

    sao đằng này nó tách ra 1 lần 2 trang... trang trắng không cần thiết....

    nhưng sau này có văn bản cần tách 2 trang ra 1 file thì i lúc này có nghĩa là i = i+2 đúng không bác...[IMG]images/smilies/a03.gif[/IMG][IMG]images/smilies/a03.gif[/IMG]

  6. #16
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Bạn tham khảo theo đường dẫn sau:
    https://nthkmf.wordpress.com/tag/spl...-and-filename/

  7. #17
    MrBen Guest
    Mã:
    Option Explicit
    Sub SlpipFile()
    Dim i As Long
    Application.ScreenUpdating = False
    ChangeFileOpenDirectory ActiveDocument.Path
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "^k"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    ActiveDocument.Range(0, 0).Select
    Do Until Selection.Find.Execute = False
        i = i + 1
        Selection.MoveRight Unit:=wdCharacter, Count:=1
        Selection.MoveDown Unit:=wdParagraph, Count:=999999999, Extend:=wdExtend
        Selection.Cut
        ActiveDocument.SaveAs "File_" & VBA.Format(i, "000") & ".doc", 0
        Documents.Add DocumentType:=wdNewBlankDocument
        Selection.Paste
        ActiveDocument.Range(0, 0).Select
    Loop
        ActiveDocument.SaveAs "File_" & VBA.Format(i + 1, "000") & ".doc", 0
    Application.Quit
    Application.ScreenUpdating = True
    End Sub

    mềnh cày đặt như vậy cho file này.. nhưng sao không hiểu nó không tách ra được nữa..

  8. #18
    chimlonmxh Guest
    hix bác nào giúp mình với... kiếm không ra tài liệu nào hướng dẫn vụ này hết..

  9. #19
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    bạn xem file mềnh làm hộ bạn nha :

    bấm tổ hợp 3 phím sau để thực hiện : Ctrl + Alt + /
    (giữ phím Ctrl, rồi giữ tiếp phím Alt, rồi bấm phím / , phím / ở bên phần các phím chữ, không phải bên phần các phím số đâu nha bạn)

    Muốn sử dụng lại, lần sau bạn cứ mở file này lên, xoá hết nội dung đi, copy toàn bộ nội dung từ file mới sang rồi lại nhấn 3 cái phím ở trên, thế thôi.

    Bạn chú ý mỗi tháng nên tạo riêng một thư mục nha, như vậy dễ quản lý hơn.

    bye bye mềnh nha mềnh [IMG]images/smilies/a01.gif[/IMG]

  10. #20
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    để mai mềnh làm thử h không ở chỗ làm... tks bác trước..

    hix hay quá bác..... cảm ơn bác nhiều ra được cả cái tên luôn... mềnh choáng mấy s luôn....

    mà sao mềnh chép cái khác vô thì nó báo lỗi... debug ra dòng này.....

    "File_" & VBA.Format(i, "000") & "_" & Mid(Selection.Text, 10, Len(Selection.Text) - 11) & ".doc"

    bác giúp luôn cho trót...

    mà học cái này ở đâu vậy bác.. mềnh muốn học.. nó hay quá..

Trang 2 của 6 Đầu tiênĐầu tiên 1234 ... CuốiCuối

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •