.
.

Chuyên Dưa leo Baby Hà Lan, Đ/c ấp 4 Sông Trầu, Trảng Bom, Đồng Nai ĐT 0973764405!


Đă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:


#sidebar_left > p > img
kkkk

//không cho lưu trang web

Latest topics

» TRẢNG BOM NƠI TÔI SỐNG
by macsuong 27/4/2018, 1:01 am

» CÀ CHUA SÔ CÔ LA GIỐNG NGA
by macsuong 27/4/2018, 12:26 am

» CÀ CHUA F1 RED GIỐNG NGA
by macsuong 27/4/2018, 12:24 am

» 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


You are not connected. Please login or register

. » KIẾN THỨC TIN HOC » Văn Phòng » Tạo Macro xóa dòng trắng trong World

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

Go down  Thông điệp [Trang 1 trong tổng số 1 trang]

macsuong

avatar
,
,
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.

gacon

avatar
THÀNH VIÊN
THÀNH VIÊN
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

gacon

avatar
THÀNH VIÊN
THÀNH VIÊN
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

Sponsored content


Về Đầu Trang  Thông điệp [Trang 1 trong tổng số 1 trang]

Permissions in this forum:
Bạn không có quyền trả lời bài viết