mấy bác quay lại giúp mềnh với..
làm sao chỉ cần tách trang ra.. tên thì đặt lại sao cũng được... 1 trang là thành 1 file là ok rồi...
mấy bác quay lại giúp mềnh với..
làm sao chỉ cần tách trang ra.. tên thì đặt lại sao cũng được... 1 trang là thành 1 file là ok rồi...
trong trường hợp bạn đọc tiếng Anh mà không hiểu được thì tạm thời bạn cứ học VBA cho Excel đi hen ở trang này đi, rồi từ từ chuyển qua VBA cho MS WordGửi bởi boomxxl
Nhìn thì có vẻ cấu trúc file này giống như file cũ nhưng thực tế nó không giống. Code trước nhận biết các trang dựa vào ký tự xuống trang, trong file này không dùng ký tự đó nên nó không chia theo mong muốn là đúng.Gửi bởi boomxxl
Thông thường thuật toán phụ thuộc rất nhiều vào cấu trúc dữ liệu. Nếu cấu trúc thay đổi thì thuật toán cũng phải thay đổi theo cho phù hợp.
Bạn thử code này xem sao.
Mã nguồn PHP:
Sub SlpipFile()Dim Pages As Long, MainDoc As Document, i As LongApplication.ScreenUpdating = FalseChangeFileOpenDirectory ActiveDocument.PathSet MainDoc = ActiveDocumentSelection.EndKey Unit:=wdStorySelection.InsertBreak Type:=wdPageBreakSelection.Find.ClearFormattingPages = Selection.Information(wdNumberOfPagesInDocument)For i = 1 To Pages - 1 MainDoc.Activate Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="2" Selection.TypeBackspace Selection.HomeKey Unit:=wdStory, Extend:=wdExtend Selection.Cut Documents.Add DocumentType:=wdNewBlankDocument Selection.Paste ActiveDocument.SaveAs "File_" & VBA.Format(i, "000") & ".doc", 0 ActiveDocument.CloseNextApplication.ScreenUpdating = TrueEnd Sub
Code là của anh Thắng, mình chỉ bỏ vào, thêm phần định dạng trang cho gọn lại trong 1 trang, + thêm phím tắt, sử dụng như bài trên.Gửi bởi SoiBien
mềnh có mò được mấy cái VBA làm sẵn nhưng chẳng có cái nào có vụ tách file, lên đây hỏi được hướng dẫn làm mừng lắm chứ.Gửi bởi SoiBien
nhưng cái file này... chả hiểu nó cứ ra file 001 không àh.. y nội dung cũ chả tách được.
Muốn hiểu và làm được thì bạn phải có đam mê + thời gian. Bạn phải tập làm và xem từ những bài đơn giản nhất. Nếu bạn chưa biết gì hết mà cứ cố lao vào đọc để hiểu một đoạn code phức tạp thì chỉ càng làm cho bạn nhanh nản chí mà thôi.Gửi bởi boomxxl
Bạn nên nhận thấy đặc điểm của file của bạn, đó là dòng
ỦY BAN NHÂN DÂN ... CỘNG HÒA...
Đó là dấu hiệu điểm bắt đầu của file. Nếu gặp lại nó thì là dấu hiệu điểm bắt đầu của file tiếp (quyết định có thể có nhiều trang).
Hoặc là mỗi dấu Section Break là 1 dấu hiệu điểm phân cách giữa file trước và sau.
Từ đó, bạn có thể tìm ra cách tạo file mới từ file đã có.
(Xin lỗi, hơi bận, nên ai thấy viết mã cho bạn thì tốt quá) Nếu tốt thì tên của người ở điều 1 sẽ là tên file.
Tuy nhiên tôi thấy cần gì phải tách thành nhiều file. Hãy cân nhắc. Nếu bạn tạo ra 1000 file thì lục tìm 1 file sẽ vất vả thế nào
ớ
cái này chạy rất tốt cảm ơn bạn, nhưng 2 cái mềnh add vô hết cho word để nếu cái này chạy không ok thì chuyển sang chạy cái khác....Gửi bởi huuthang_bd
hai cái code riêng biệt này chạy tốt cho mấy mớ văn bản mềnh có... file nào chạy code 1 bị lỗi thì chuyển sang chạy file 2 ok hết...
hình như lúc trước mềnh được biết có cuốn sách hướng dẫn khá kỹ thủ thuật trong excell không biết có phần VBA này không??
code của bạn SoiBien chạy cũng ok cho các file nhưng mềnh nhấn phím / bên phần chữ không chạy nhưng chuyển sang phần số chạy được...
mấy cái code này phải hiểu về nó chứ mò như mềnh đọc hết chả hiểu j (
mềnh cũng muốn như vậy nhưng quy định là phải tách ra như vậy... cãi cọ mãi không không nên phải làm theo thôi chứ sao bi h... nhiều lúc cả mấy chục văn bản.. lúc trước làm thủ công thì cả buổi tốn time lắm.. mà bắt làm thì phải làm...mấy bác đi làm cũng hiểu rồi đó (
Mình còn có cách này mình đang thực hiện cũng thấy hay hay.
Bạn chỉ cần nhập những dữ liệu chính vào "Ho So" Sheet "Ho So" sẽ lưu trữ toàn bộ giúp bạn.
Bạn thử xem nếu thấy hay thì xin cái bắt tay nhé