Word và VBA

Xóa các dòng trống trong file MSword

Sub DeleteEmptyParagraphs()

Dim oPara As Word.Paragraph

Dim var

Dim SpaceCounter As Long

Dim oChar As Word.Characters

For Each oPara In ActiveDocument.Paragraphs

If Len(oPara.Range) = 1 Then

oPara.Range.Delete

Else

SpaceCounter = 0

Set oChar = oPara.Range.Characters

For var = 1 To oChar.Count

If Asc(oChar(var)) = 32 Then

SpaceCounter = SpaceCounter + 1

End If

Next

If SpaceCounter + 1 = Len(oPara.Range) Then

' paragraph contains ONLY spaces

oPara.Range.Delete

End If

End If

Next

End Sub

Crack pass EXCEL

Mo xvi32

1. excel 2003

1.1 mo truc tiep file *.xls, *.xla

1.2 trong Xvi32 gõ Ctrl + F

1.3 Gõ tiếp DPB

1.4 đổi DPB thanh DPx

1.5 lưu lại

1.6 ra excel mỏ bình thường

1.7 nếu Báo lỗi 'DPx' nhấn Yes

1.8 vào module đổi lại password và lưu lại.

đổi pass hoàn thành.

1. excel 2007-2010

1.1 đổi đuôi file *.xlsm, *.xlam thành *.zip (đổi đuôi không phải nén)

1.1.1 dùng 7zip mở ở click chuot phải chọn 'open archive'

1.1.2 mở thư mục 'xl';

1.1.3 Chọn file VBAProject.bin click chuột phải Copy to

1.1.4 tiep đến dùng như trên

1.2 trong Xvi32 gõ Ctrl + F

1.3 Gõ tiếp DPB

1.4 đổi DPB thanh DPx

1.5 lưu lại

1.6 ra excel mỏ bình thường

1.7 nếu Báo lỗi 'DPx' nhấn Yes

1.8 vào module đổi lại password và lưu lại.

đổi pass hoàn thành.