WD2000: VBA: l�m th? n�o �? �?m c�c l?n xu?t hi?n c?a m?t t? ho?c c?m t?

ID c?a b�i: 240157 - Xem s?n ph?m m� b�i n�y �p d?ng v�o.

Th�ng b�o: b�i vi?t n�y l� b�i ��?c d?ch b?i M�y d?ch

Nh?p chu?t v�o ��y �? hi?n th? b?n g?c Ti?ng anh v� b?n d?ch m�y theo ch? �? so s�nh.

Bung t?t c? | Thu g?n t?t c?

Microsoft Word kh�ng cung c?p m?t t�nh n�ng ��?c x�y d?ng trong �? �?m s? l?n m?t t? ho?c c?m t? ��?c s? d?ng trong m?t t�i li?u. Tuy nhi�n, b?ng c�ch s? d?ng ng�n ng? l?p tr?nh trong Word, b?n c� th? t?o m?t th�i quen m� th?c hi?n ch?c n�ng n�y.

Quay l?i �?u trang | Cung c��p Pha�n h��i

TH�NG TIN TH�M

Microsoft cung c?p l?p tr?nh v� d? �? minh ho? ch?, kh�ng c� b?o h�nh ho?c th? hi?n hay ng? ?. �i?u n�y bao g?m, nh�ng kh�ng gi?i h?n, b?o �?m ng? ? kh? n�ng b�n h�ng ho?c cho m?t m?c ��ch c? th?. B�i vi?t n�y gi? �?nh r?ng b?n �? quen thu?c v?i ng�n ng? l?p tr?nh m� �ang ��?c ch?ng minh v� v?i nh?ng c�ng c? ��?c s? d?ng �? t?o ra v� g? l?i th? t?c. Microsoft h? tr? c�c k? s� c� th? gi�p gi?i th�ch c�c ch?c n�ng c?a m?t th? t?c c? th?, nh�ng h? s? kh�ng s?a �?i c�c v� d? �? cung c?p th�m ch?c n�ng ho?c x�y d?ng quy tr?nh �? ��p ?ng c�c y�u c?u c? th? c?a b?n.

T?o v? m�

Sub CountWordPhrase()

Dim x, Response, ExitResponse
Dim y As Integer

' If an error occurs, continue the macro.
On Error Resume Next

AskAgain:

' Ask for the text to count.
x = InputBox("Type the word you want to count and then click OK." _
& Chr$(13) & Chr$(13) & _
"NOTE: This macro will find a whole word only. If the text you typed " _
& "is part of a larger string, it will also be found.")

' If text typed is blank or spaces, then ask to quit.
If x = "" Or x = " " Then
    ExitResponse = MsgBox("You either clicked Cancel or you did " & _
    "not type a word. Do you want to quit?", vbYesNo)
    
    If ExitResponse = 6 Then
        End
    Else
        ' If answer No to quit, then ask for text to count again.
        GoTo AskAgain
    End If
Else

    ' Search for and count occurrences of the text typed.
    With ActiveDocument.Content.find
        Do While .Execute(FindText:=x, Forward:=True, Format:=True, _
           MatchWholeWord:=True) = True
            
           ' Display message in Word's Status Bar.
           StatusBar = "Word is counting the occurrences of the text " & _
           Chr$(34) & x & Chr$(34) & "."
           
           y = y + 1
        Loop
    End With

' Display Message Box with results.
Response = MsgBox("The text " & Chr$(34) & x & Chr$(34) & " was found" _
& Str$(y) & " times.", vbOKOnly)

End If
End Sub

G�n m?t ph�m t?t cho v? m�

B?n c� th? g�n m?t ph�m t?t cho m?t v? m� b?ng c�ch s? d?ng c�c b�?c sau:

Tr�n c�c C�ng cu� tr?nh ��n, nh?p v�o T�y ch?nh.
Nh?p v�o Ba�n phi�m.
Trong c�c L�u c�c thay �?i trong h?p, b?m v�o c�c t�i li?u ��?c �?i t�n ho?c m?u m� b?n mu?n l�u c�c ph�m t?t nh?ng thay �?i quan tr?ng.
Trong c�c Danh mu�c h?p, b?m v�o Macro.
Trong h?p b�n ph?i, nh?p v�o t�n v? m�.

L�U ?: C�c ph�m t?t b?t k? hi?n �ang ��?c ch? �?nh cho v? m� s? xu?t hi?n trong c�c Hi?n t?i ph�m h?p.
Trong c�c Ba�m ph�m t?t m?i h?p, g? t? h?p ph�m l?i t?t b?n mu?n ch? �?nh.
Nh?p v�o Ch? �?nh.

N�i v? m� tr�n m?t tr?nh ��n ho?c thanh c�ng c?

B?n c� th? g�n v? m� cho m?t n�t tr?nh ��n ho?c thanh c�ng c? b?ng c�ch s? d?ng c�c b�?c sau:

Tr�n c�c C�ng cu� tr?nh ��n, nh?p v�o T�y ch?nh.
B?m v�o c�c L?nh tab.
D�?i Danh mu�c, b?m Macro.
Trong c�c L?nh danh s�ch, b?m chu?t ph?i v�o v? m� v� k�o v? m� v�o tr?nh ��n ho?c thanh c�ng c? c?a b?n mu?n.
Nh?p v�o �o�ng �? ��ng nh?ng T�y ch?nh h?p tho?i.

Quay l?i �?u trang | Cung c��p Pha�n h��i

THAM KH?O

�? bi?t th�m chi ti?t v? c�ch s? d?ng m?u m? trong b�i vi?t n�y, b?m s? b�i vi?t d�?i ��y �? xem b�i vi?t trong c� s? ki?n th?c Microsoft:

212536

(http://support.microsoft.com/kb/212536/EN-US/ )

OFF2000: L�m th? n�o �? ch?y m?u m? t? b�i vi?t c� s? ki?n th?c

Quay l?i �?u trang | Cung c��p Pha�n h��i

Thu?c t�nh

ID c?a b�i: 240157 - L?n xem x�t sau c�ng: 21 Tha�ng Ta�m 2011 - Xem x�t l?i: 2.0

�p d?ng

Microsoft Word 2000 Standard Edition

kbhowto kbmacroexample kbprogramming kbmt KB240157 KbMtvi

M�y d?ch

QUAN TRO�NG: B�i vi?t n�y ��?c d?ch b?ng ph?n m?m d?ch m�y c?a Microsoft ch? kh�ng ph?i do con ng�?i d?ch. Microsoft cung c?p c�c b�i vi?t do con ng�?i d?ch v� c? c�c b�i vi?t do m�y d?ch �? b?n c� th? truy c?p v�o t?t c? c�c b�i vi?t trong C� s? Ki?n th?c c?a ch�ng t�i b?ng ng�n ng? c?a b?n. Tuy nhi�n, b�i vi?t do m�y d?ch kh�ng ph?i l�c n�o c?ng ho�n h?o. Lo?i b�i vi?t n�y c� th? ch?a c�c sai s�t v? t? v?ng, c� ph�p ho?c ng? ph�p, gi?ng nh� m?t ng�?i n�?c ngo�i c� th? m?c sai s�t khi n�i ng�n ng? c?a b?n. Microsoft kh�ng ch?u tr�ch nhi?m v? b?t k? s? thi?u ch�nh x�c, sai s�t ho?c thi?t h?i n�o do vi?c d?ch sai n?i dung ho?c do ho?t �?ng s? d?ng c?a kh�ch h�ng g�y ra. Microsoft c?ng th�?ng xuy�n c?p nh?t ph?n m?m d?ch m�y n�y.

Nh?p chu?t v�o ��y �? xem b?n ti?ng Anh c?a b�i vi?t n�y:240157

(http://support.microsoft.com/kb/240157/en-us/ )

Quay l?i �?u trang | Cung c��p Pha�n h��i