Hiển thị kết quả từ 1 đến 5 / 5

Chủ đề: VBA trong word 2003!

  1. #1
    Tham gia
    04-05-2006
    Bài viết
    16
    Like
    0
    Thanked 0 Times in 0 Posts

    Câu hỏi, cần giúp đỡ VBA trong word 2003!

    Hi all!

    Tôi có một file word với khoảng 2000 trang, trong đó có những dòng trắng với khoảng trắng là 1 hoặc 2 khoảng trắng gì đó, tôi muốn xoá nhưng nếu xoá bằng tay thì Sad ai có biết cách viết macro trong word xin hãy chỉ giáo cho tôi đoạn mã đó và cách xử lý! Nếu đoạn trắng đó là rất nhiều ký tự spacebar có thể chiếm cả dòng thì đoạn mã có thay đổi như thế nào?

    Ai biết xin hãy chi giáo cho, tôi xin cảm ơn nhiều!!
    Quote Quote

  2. #2
    Tham gia
    29-09-2008
    Bài viết
    2
    Like
    0
    Thanked 0 Times in 0 Posts
    Cau viet Code co noi dung nhu sau la sai duoc ma

    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()

    Call RemoveChars(True, True)

    End Sub

    Chuc ban thanh cong

  3. #3
    Tham gia
    22-04-2008
    Bài viết
    5
    Like
    0
    Thanked 0 Times in 0 Posts
    Cho tôi hỏi về VBA trong word:
    Tôi đang viết chương trình đọc tiếng việt trong word và đã viết được hàm kiểm tra ,nhưng ko làm cho nó đọc được. Tôi đã dùng điều khiển Multimedia control trong word ,nhưng vẫn ko được, có ai biết xin chỉ tôi với. Cảm ơn

  4. #4
    Tham gia
    09-04-2007
    Bài viết
    11
    Like
    1
    Thanked 0 Times in 0 Posts
    Quote Được gửi bởi gnat View Post
    Hi all!

    Tôi có một file word với khoảng 2000 trang, trong đó có những dòng trắng với khoảng trắng là 1 hoặc 2 khoảng trắng gì đó, tôi muốn xoá nhưng nếu xoá bằng tay thì Sad ai có biết cách viết macro trong word xin hãy chỉ giáo cho tôi đoạn mã đó và cách xử lý! Nếu đoạn trắng đó là rất nhiều ký tự spacebar có thể chiếm cả dòng thì đoạn mã có thay đổi như thế nào?

    Ai biết xin hãy chi giáo cho, tôi xin cảm ơn nhiều!!
    Bạn dùng chức năng Replace trong word đó.
    Để dấu nháy đầu văn bản, nhấn Ctrl+H để mở hộp thoại Find and Replace, trong ô find what gõ vào như sau : ([^32^13]){2,}
    trong ô Replace with gõ vào như sau : \1
    rồi nhấn Replace all. Word sẽ tự sửa cho bạn. Thử xem.
    Thân chào.

  5. #5
    Tham gia
    04-06-2009
    Bài viết
    4
    Like
    0
    Thanked 0 Times in 0 Posts
    Xin chỉ giúp viết lệnh truy xuất Heading.
    Tôi có một quyển sách nhiều chương, mỗi chương đều cài Heading 1, khi đọc tới một đoạn bất kỳ trong sách, tôi muốn biết mình đang đọc ở chương nào, tên chương là gì?
    Nhưng loay hoay mãi mà viết không ra, nhờ các anh em chỉ giúp cách viết thế nào? Cám ơn rất nhiều.

Tags for this Thread

Bookmarks

Quy định

  • Bạn không thể tạo chủ đề mới
  • Bạn không thể trả lời bài viết
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình
  •