Bạn đã kiểm tra folder chứa file chưa mà biết nó không lưu?Gửi bởi tangtoc1
Bạn đã kiểm tra folder chứa file chưa mà biết nó không lưu?Gửi bởi tangtoc1
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
Tại mình không rành thiệt...Gửi bởi tintam7251
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...
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.
đã 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]
Bạn tham khảo theo đường dẫn sau:
https://nthkmf.wordpress.com/tag/spl...-and-filename/
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..
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..
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]
để 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á..