Mạc Sương

Mạc Sương

Chuyên sĩ, lẽ đặc sản vùng, miền quê hương!
 
Trang ChínhTrang Chính  ..  Đăng kýĐăng ký  Đăng NhậpĐăng Nhập  

Đăng ký thành viên để hiển thị
các nội dung trong diễn đàn...
Chưa Thành viên:

Thành viên:


Latest topics
» cụ thể là chép vào thư mục này
by macsuong 1/11/2017, 10:55 am

» Địa chỉ facebook
by macsuong 1/11/2017, 10:45 am

» Các trích nướng loại 1
by macsuong 8/2/2017, 2:18 pm

» Cá thu loại 1
by macsuong 8/2/2017, 1:47 pm

» Đặc Sản quê Hương Xứ Nghệ
by macsuong 8/2/2017, 11:03 am

» Cảnh sát biển Việt Nam theo dõi Hải Dương-981 vào Biển Đông
by macsuong 29/12/2015, 3:52 pm

» File word bị lội "This error message can appear if the document you are
by ngoctram.nhim 19/7/2015, 10:02 pm

» Những câu châm ngôn cuộc sống ý nghĩa
by macsuong 11/11/2014, 11:29 am

» SẢN PHẨM MỚI 10/2014
by bimbip 4/10/2014, 8:17 pm

» Bảng báo giá sản phẩm mỹ nghệ
by macsuong 30/5/2014, 4:31 pm

» Cảm ơn Trung Quốc vì đưa giàn khoan đến thềm lục địa Việt Nam và sau đó...
by macsuong 9/5/2014, 10:16 am

» TẠI SAO TÔI KHÔNG VÀO ĐƯỢC DIỄN ĐÀN?
by gacon 3/12/2013, 9:46 pm

» .....CHÚC MỪNG....
by gacon 3/12/2013, 9:43 pm

» Tạo chương trình khởi động cùng window 7
by macsuong 23/10/2013, 11:01 am

» Nồi cơm khổng tử
by macsuong 26/9/2013, 9:51 pm

» OsMonitor phần mềm giám sát mạng LAN (phần mềm giám sát mạng nội bộ, mạng văn phòng)
by piaorou86 30/3/2013, 11:39 pm

» PGS Văn Như Cương: Tôi nuôi lợn, tại sao cấm tôi?
by ubuntu 23/1/2013, 12:42 pm

» Sự thật về ngày tận thế năm 2012
by macsuong 9/12/2012, 8:54 pm

» Nhân loại từng trải qua bao nhiêu Ngày Tận thế trong lịch sử?
by macsuong 9/12/2012, 8:30 pm

» Bài thơ thêm một (Trần Hòa Bình)
by bimbip 6/11/2012, 10:29 am

Top posters
macsuong
 
ubuntu
 
bimbip
 
gacon
 
hero
 
dongnaitimban
 
bonghongcaiao
 
tuquynh
 
nghean
 
kytet
 

Share | 
 

 Tạo Macro xóa dòng trắng trong World

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
macsuong
,
,
avatar


Bài gửiTiêu đề: Tạo Macro xóa dòng trắng trong World   27/3/2009, 10:42 am

Thủ thuật xoá các dòng trắng trong Word

Tuesday, 5. August 2008, 08:38:25

Có rất nhiều tài liệu khi chúng ta chép trên một trang WEB sang word thì có rất nhiều dòng trắng xen kẽ giữa các hàng. Đối với các tài liệu dài thì việc xoá các dòng trắng đó rất mất thời gian. Chỉ một vài bước đơn giản bạn đã có thể tạo ra một Macro thực hịên công việc này cho bạn một cách nhanh chóng.

để tạo một Macro làm như sau:
1. trong cửa sổ giao diện word bạn mở một new black document
2. Click chọn menu tools/Macro/Macro...
3. cửa sổ hiện ra(có thể có danh sách các Macro đã tạo ra).
4. Mục Macro name bạn gõ vào tên macro (ví dụ: xoadong)sau đó click chuột vào nút Create
5. Một cửa sổ hiện ra, bên cửa sổ nhỏ bên phải bạn nhất CTrl +A và Past vào nội dung sau:

Sub RemoveChars(TrimLines As Boolean, RemoveEmptyLines As Boolean)
Dim strList As Variant
ActiveDocument.Select
strList = Split(Selection, vbCr)
For Each varlist In strList
If TrimLines = True Then
If RemoveEmptyLines = False Then
finalstring = finalstring & Trim(varlist) & vbCr
Else
If varlist <> "" Then
finalstring = finalstring & Trim(varlist) & vbCr
End If
End If
Else
If RemoveEmptyLines = True Then
If varlist <> "" Then
finalstring = finalstring & varlist & vbCr
End If
Else
finalstring = finalstring & varlist & vbCr
End If
End If
Next
Selection = finalstring
With Selection
.EndKey Unit:=wdStory
.TypeBackspace
End With
End Sub
Public Sub Xoadong()
'Hay chon mot trong cac dong lenh sau:
'Remove Spaces and Empty Lines
Call RemoveChars(True, True)
'Remove Spaces but not Empty Lines
'Call RemoveChars(True, False)
'Remove Empty Lines but not Spaces
'Call RemoveChars(False, True)
'Does nothing
'Call RemoveChars(False, False)
End Sub

6. Click vào nút Save để lưu Macro này.
7. Tắt của sổ này và quy về màn hình Word:
Chọn menu Tools/chọn Cutomize.../chọn thẻ Commands/ở ô bên trái kéo thanh trượt xuống chọn chữ Macro lập tức bên phải hiện ra tên macro (ví dụ xoadong) bạn đã tạo. Nhấn dữ chuột kéo thả vào thanh menu word, Click phải đổi tên (vậy là có một cái menu mới với chức năng xoá dòng trống rồi.
8. Để sử dụng bạn chép tài liệu vào và chỉ click chuột vào cái Menu trên là oK rồi.
Về Đầu Trang Go down
gacon
THÀNH VIÊN
THÀNH VIÊN
avatar


Bài gửiTiêu đề: Re: Tạo Macro xóa dòng trắng trong World   23/10/2012, 10:07 am

1. nhấn Ctrl +H
2. gõ vào ô tìm ^p^p
3. gõ vào ô thay thế ^p
4. chọn replace all
5. enter
Về Đầu Trang Go down
gacon
THÀNH VIÊN
THÀNH VIÊN
avatar


Bài gửiTiêu đề: Re: Tạo Macro xóa dòng trắng trong World   23/10/2012, 10:07 am

1. nhấn Ctrl +H
2. gõ vào ô tìm ^p^p
3. gõ vào ô thay thế ^p
4. chọn replace all
5. enter
Về Đầu Trang Go down
Sponsored content




Bài gửiTiêu đề: Re: Tạo Macro xóa dòng trắng trong World   

Về Đầu Trang Go down
 
Tạo Macro xóa dòng trắng trong World
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» làm sao dò thuanviet trong dth
» cách lắp đặp camera quan sát
» "Bệnh" của Remote...cần được giúp đỡ.
» ABS-5 hôm qua (08.12.2010) lại "ra đi" một số kênh
» đầu thu vệ tinh tandberg tt1260

Permissions in this forum:Bạn không có quyền trả lời bài viết
Mạc Sương :: KIẾN THỨC TIN HOC :: Văn Phòng-
Chuyển đến