Ba Gioang

Mình muốn sắp xếp từ tiếng Trung: Xếp theo thứ tự từ trên xuống dưới, câu có nhiều từ => ít từ. Ví dụ những câu có 5 từ xuống đến những câu có 4, 3, 2, 1. Mong các bạn trổ tài. Cảm ơn.

Trong Styles and Formatting của trang Word 2003, nằm trong Mục Lục. Bỗng có Style FollowedHyperlink xuất hiện màu violet, mà không thể nào xóa được. Ai bi���t nguyên do và cách trị. Chỉ dùm, Cảm ơn nhiều.

Ai biết chỉ dùm, cảm ơn trước!

Tôi dùng Marco: Xóa dòng trống và Đổi chữ Hoa thường trong UNICODE, Sử dụng riêng XÓA DÒNG thì tốt, khi dùng thêm marco chuyển Font Hoa thường thì báo lỗi không xóa dòng được.

Đây là 2 code:

Xóa dòng:

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

Và Chuyển hoa thường:

'Xu ly tieng Viet UNICODE

'Nguoi lap trinh: Nguyen Anh Cuong

'Website: http://khkt.net/

'Email: trungtamtinhocabc@yahoo.com

'Mobile: 0988.529 310

'Ngay viet 8/5/2001

'Co tham khao cach giai quyet van de cua thay giao Le Duc Hong tren http://vivosoft.com/

'Ngay sua chua gan nhat 6/10/06

Option Explicit

Public ABC As String

Public UNI_Co_Dau As String

' API de truy nhap VB6 String thong qua vi tri va thu tu cua no trong bo nho

Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)

Enum coEncoding

coANSI = 0

coUnicode = 1

coUTF8 = 2

End Enum

Public Sub InitUnicode()

Dim ChuoiKQua As String

' Khoi tao danh sach cac ky tu tieng Viet co dau (UNI_Co_Daus), 67 ky tu co dau la chu thuong va 67 ky tu co dau la chu hoa

' Nen nho la dung cac ham Function chrW, ky tu &HE1 Unicode duoc chua ben trong danh sach nay

' nhu &HE100 cho 1 chuoiABC ky tu

ChuoiKQua = ChuoiKQua & ChrW(&HE1) & ChrW(&HE0) & ChrW(&H1EA3) & ChrW(&HE3) & ChrW(&H1EA1) & ChrW(&H103) & ChrW(&H1EAF) & ChrW(&H1EB1) & ChrW(&H1EB3) & ChrW(&H1EB5) & ChrW(&H1EB7) & ChrW(&HE2) & ChrW(&H1EA5) & ChrW(&H1EA7) & ChrW(&H1EA9) & ChrW(&H1EAB) & ChrW(&H1EAD) & ChrW(&HE9) & ChrW(&HE8) & ChrW(&H1EBB)

ChuoiKQua = ChuoiKQua & ChrW(&H1EBD) & ChrW(&H1EB9) & ChrW(&HEA) & ChrW(&H1EBF) & ChrW(&H1EC1) & ChrW(&H1EC3) & ChrW(&H1EC5) & ChrW(&H1EC7) & ChrW(&HED) & ChrW(&HEC) & ChrW(&H1EC9) & ChrW(&H129) & ChrW(&H1ECB) & ChrW(&HF3) & ChrW(&HF2) & ChrW(&H1ECF) & ChrW(&HF5) & ChrW(&H1ECD) & ChrW(&HF4) & ChrW(&H1ED1)

ChuoiKQua = ChuoiKQua & ChrW(&H1ED3) & ChrW(&H1ED5) & ChrW(&H1ED7) & ChrW(&H1ED9) & ChrW(&H1A1) & ChrW(&H1EDB) & ChrW(&H1EDD) & ChrW(&H1EDF) & ChrW(&H1EE1) & ChrW(&H1EE3) & ChrW(&HFA) & ChrW(&HF9) & ChrW(&H1EE7) & ChrW(&H169) & ChrW(&H1EE5) & ChrW(&H1B0) & ChrW(&H1EE9) & ChrW(&H1EEB) & ChrW(&H1EED) & ChrW(&H1EEF)

ChuoiKQua = ChuoiKQua & ChrW(&H1EF1) & ChrW(&HFD) & ChrW(&H1EF3) & ChrW(&H1EF7) & ChrW(&H1EF9) & ChrW(&H1EF5) & ChrW(&H111) & ChrW(&HC1) & ChrW(&HC0) & ChrW(&H1EA2) & ChrW(&HC3) & ChrW(&H1EA0) & ChrW(&H102) & ChrW(&H1EAE) & ChrW(&H1EB0) & ChrW(&H1EB2) & ChrW(&H1EB4) & ChrW(&H1EB6) & ChrW(&HC2) & ChrW(&H1EA4)

ChuoiKQua = ChuoiKQua & ChrW(&H1EA6) & ChrW(&H1EA8) & ChrW(&H1EAA) & ChrW(&H1EAC) & ChrW(&HC9) & ChrW(&HC8) & ChrW(&H1EBA) & ChrW(&H1EBC) & ChrW(&H1EB8) & ChrW(&HCA) & ChrW(&H1EBE) & ChrW(&H1EC0) & ChrW(&H1EC2) & ChrW(&H1EC4) & ChrW(&H1EC6) & ChrW(&HCD) & ChrW(&HCC) & ChrW(&H1EC8) & ChrW(&H128) & ChrW(&H1ECA)

ChuoiKQua = ChuoiKQua & ChrW(&HD3) & ChrW(&HD2) & ChrW(&H1ECE) & ChrW(&HD5) & ChrW(&H1ECC) & ChrW(&HD4) & ChrW(&H1ED0) & ChrW(&H1ED2) & ChrW(&H1ED4) & ChrW(&H1ED6) & ChrW(&H1ED8) & ChrW(&H1A0) & ChrW(&H1EDA) & ChrW(&H1EDC) & ChrW(&H1EDE) & ChrW(&H1EE0) & ChrW(&H1EE2) & ChrW(&HDA) & ChrW(&HD9) & ChrW(&H1EE6)

ChuoiKQua = ChuoiKQua & ChrW(&H168) & ChrW(&H1EE4) & ChrW(&H1AF) & ChrW(&H1EE8) & ChrW(&H1EEA) & ChrW(&H1EEC) & ChrW(&H1EEE) & ChrW(&H1EF0) & ChrW(&HDD) & ChrW(&H1EF2) & ChrW(&H1EF6) & ChrW(&H1EF8) & ChrW(&H1EF4) & ChrW(&H110)

UNI_Co_Dau = ChuoiKQua ' Gan vao danh sach UNI_Co_Dau

Dim ChuoiABC

ChuoiABC = ChuoiABC & ChrW(184) & ChrW(181) & ChrW(182) & ChrW(183) & ChrW(185) & ChrW(168) & ChrW(190) & ChrW(187) & ChrW(188) & ChrW(189) & ChrW(198) & ChrW(169) & ChrW(202) & ChrW(199) & ChrW(200) & ChrW(201) & ChrW(203) & ChrW(208) & ChrW(204) & ChrW(206) & ChrW(207) & ChrW(209) & ChrW(170) & ChrW(213) & ChrW(210) & ChrW(211) & ChrW(212) & ChrW(214) & ChrW(221) & ChrW(215)

ChuoiABC = ChuoiABC & ChrW(216) & ChrW(220) & ChrW(222) & ChrW(227) & ChrW(223) & ChrW(225) & ChrW(226) & ChrW(228) & ChrW(171) & ChrW(232) & ChrW(229) & ChrW(230) & ChrW(231) & ChrW(233) & ChrW(172) & ChrW(237) & ChrW(234) & ChrW(235) & ChrW(236) & ChrW(238) & ChrW(2

Làm sao để có Microsoft Frontpage 2003 và nếu có có dùng serial nào không? Cảm ơn.

Ta muá»n cà o cho trái tim lÅ©ng nát

Muá»n gà o to cho vá» cả tinh cầu

Muá»n tá»± hủy cho xong Äá»i tà n tật

Sá»ng má»t Äá»i mang trá»n kiếp thÆ°Æ¡ng Äau.

Ai biết chỉ dùm, cảm ơn.

Khởi động Win vẫn nhận bình thường, nhưng nó nhận tới 1000Gb, dĩ nhiên là không dùng được. Làm sao để khắc phục? Ai biết chỉ dùm mình với. Cảm ơn.

trong đó ghi: This page contains both secure and nonsecure items.

Do you want to display the nonsecure items? nghĩa là gì và phải chọn biện pháp Yes hay No thì sẽ tốt hơn.

Và làm sao để không hiện bảng này nữa trong tình trạng tốt . Cảm ơn nhiều.

Các bạn ai biết: nghe nhiều về đào đãi vàng. Vậy vàng ở đâu ra? Do sự kết hợp nào mà có?

Các ban giải dùm: 100con trâu và 100 bó cỏ: Trong đó: 01 con trâu đứng ăn 05 bó, 01 con trâu nằm ăn 03 bó, 03 con trâu già ăn 01 bó. Hỏi có bao nhiêu con trâu đứng, trâu nằm, trâu già phù hợp với số bó cỏ.

Các bạn chỉ dùm phương pháp giải (không chỉ là đáp số).Cảm ơn các bạn rất nhiều.

3GP file là Quay Video trong máy chụp hình Motorola. Có phần mềm nào trích riêng âm thanh ra không?