Toán K34 ĐHSP
Thân mời bạn tham gia diễn đàn Toán K34 ĐHSP để cùng thảo luận và trao đổi với chúng tôi...
WELCOME TO YOU




Kết nối bạn bè, giao lưu tri thức...
 
IndexCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập
Top posters
coda_edo (410)
 
mrhohk (306)
 
Oliver (185)
 
phamvothanhquy_mater (99)
 
hanhvy (89)
 
Katori_SC (86)
 
fantomas (85)
 
a-de-thuog18 (83)
 
hoacomay (79)
 
virgo59 (72)
 
Bài mới nhấtNgười gửiThời gian
sách về hình học vi phân 27/4/2014, 8:41 pm
Tổng hợp VBA - Từ A-Z 21/10/2013, 12:34 am
Chúc Tết Nhâm Thìn 17/2/2012, 5:04 pm
Spanish Romance_V.Gomez 10/11/2011, 9:11 pm
DÀNH CHO TOÀN BỘ BCH CHI ĐOÀN TOÁN 4B 8/10/2011, 2:39 pm
DANH HIỆU ĐOÀN VIÊN ƯU TÚ 8/10/2011, 2:29 pm
France Romance_ Réne Bartoli 6/10/2011, 11:28 pm
Maria Luisa_Julio Sagreras_Hữu Phúc 10/9/2011, 9:30 pm
Domino_Louis Ferrari_Hữu Phúc 10/9/2011, 8:55 pm
Natalia_G.Moustaky_Hữu Phúc 5/9/2011, 5:17 pm
Phim 3D vn Dưới Bóng Cây 23/8/2011, 11:52 pm
Niềm tin và hạnh phúc 16/8/2011, 11:31 am
Đừng bao giờ đánh giá con người qua hình thức bên ngoài!!!! 15/8/2011, 5:25 pm
Truyện vui về thầy trò 10/8/2011, 12:53 pm


Share | 
 

 Code phần VBA của thầy Tuấn

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

Tổng số bài gửi : 185
Join date : 02/12/2010
Age : 27
Đến từ : Bến Tre

Bài gửiTiêu đề: Code phần VBA của thầy Tuấn   13/4/2011, 9:25 pm

Các bạn copy sau đó paste vào chương trình viết macro nha.

Code:

Sub test()
    Dim rng As Range
    Dim keyword() As String
    Set rng = Selection.Range
    ReDim keyword(1, 99)
    With Selection.Find
        .ClearFormatting
        .Highlight = True
        .Text = ""
        .Forward = True
        idx = 0
        Do While .Execute
            If Selection.Range.InRange(rng) Then
                keyword(0, idx) = ""
                keyword(1, idx) = Selection.Text
                Selection.Range.HighlightColorIndex = wdNoHighlight
                Selection.Text = "______"
                Selection.Collapse direction:=wdCollapseEnd
                idx = idx  1
            Else
                Exit Do
            End If
        Loop
        idx = idx - 1
        If idx = -1 Then
            MsgBox "Khong tim thay tu khoa!"
            Exit Sub
        End If
        ReDim Preserve keyword(1, idx)
        rng.Select
        Selection.Collapse direction:=wdCollapseEnd
        Selection.TypeParagraph
'bat dau xuat ra may cau A. B. C.
        idx2 = 0
        For idx = 0 To UBound(keyword, 2)
            Selection.TypeText keyword(1, idx) & vbCrLf
            idx2 = idx2  1
        Next
            Selection.MoveUp Unit:=wdParagraph, Count:=idx2, Extend:=wdExtend
    End With
    With ListGalleries(wdNumberGallery).ListTemplates(4).ListLevels(1)
        .NumberFormat = "%1."
        .NumberStyle = wdListNumberStyleUppercaseLetter
        .StartAt = 1
    End With
    ListGalleries(wdNumberGallery).ListTemplates(4).Name = ""
    Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
        wdNumberGallery).ListTemplates(4), ContinuePreviousList:=False, ApplyTo:= _
        wdListApplyToWholeList, DefaultListBehavior:=wdWord10ListBehavior
End Sub


Lưu ý: hình như phần code ở trên nó bị lỗi vài chỗ dấu, các bạn download ở đây cho đầy đủ:
Code:
http://www.mediafire.com/?0bdo5p6cb8boxwo

Chú ý: xem thêm bài hướng dẫn cách download link Mediafire ở đây: Click here

========================


Được sửa bởi Oliver ngày 12/5/2011, 10:46 pm; sửa lần 1.
Về Đầu Trang Go down
Xem lý lịch thành viên
coda_edo
Lớp 11
Lớp 11
avatar

Tổng số bài gửi : 410
Join date : 12/12/2010
Age : 26
Đến từ : Đồng Nai

Bài gửiTiêu đề: Re: Code phần VBA của thầy Tuấn   4/5/2011, 3:09 pm

thanks nhieu!!!

========================
Về Đầu Trang Go down
Xem lý lịch thành viên
 
Code phần VBA của thầy Tuấn
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
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
Toán K34 ĐHSP :: TOÁN CAO CẤP :: Toán ứng dụng-
Chuyển đến