Độ hot 1||
Code:
Sub RemoveHeadAndFoot()
Dim oSec As Section
Dim oHead As HeaderFooter
Dim oFoot As HeaderFooter
For Each oSec In ActiveDocument.Sections
For Each oHead In oSec.Headers
If oHead.Exists Then oHead.Range.Delete
Next oHead
For Each oFoot In oSec.Footers
If oFoot.Exists Then oFoot.Range.Delete
Next oFoot
Next oSec
End Sub
Sau đó click "SAVE" hình ổ đĩa. xong bạn click vào biểu tượng word cạnh bên "SAVE" để trở lại màng hình làm việc của word.Phòng tối|THƯ VIỆN XÂY DỰNG CHUYÊN NGHIỆP
Phần mềm dự toán xây dựng excel | Hướng dẫn lập dự toán xây dựng | Phần mềm tư vấn giám sát | Phần mềm quản lý chất lượng xây dựng |
Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng
Phần mềm luyện thi sát hạch chứng chỉ hành nghề xây dựng
Phần mềm luyện thi sát hạch chứng chỉ hành nghề Kiến Trúc sư
GMT+7, 6/5/2024 14:07 , Processed in 0.952788 second(s), 17 queries .
Powered by Discuz! X3.2
© 2001-2013 Comsenz Inc.