VBA cho Word

Liên hệ QC
Chào mọi người,
Trong lúc thực hiện công việc văn phòng mình có một vấn đề thế này, mong mọi người giúp đỡ.
Trong Word, có một số dữ liệu mình muốn Copy chuyển sang Excel và dùng VBA để thực hiện không biết được không ạ.
Mô tả thì dài dòng nên mình có đính kèm hình ảnh minh họa. Mong được giúp đỡ.
Xin lỗi nếu đăng nhầm Forum,
 

File đính kèm

  • Untitled4.png
    Untitled4.png
    75.5 KB · Đọc: 17
  • a.docx
    183.8 KB · Đọc: 4
Loay hoay mãi với cái nó --=0. Không biết kết quả có được không...
Bạn thử đoạn sau nhé.
Mã:
Sub SE()
Application.ScreenUpdating = False
Dim DT As Document, pg As Paragraph, T As String, tmp As String
Dim chk As String: chk = ":"
Set DT = ActiveDocument
On Error Resume Next
For Each pg In DT.Paragraphs
    T = pg.Range.Sentences(1)
    If Len(T) < 10 And Mid(T, Len(T) - 1, 1) = chk Or Trim(Mid(T, Len(T) - 2, 2)) = chk Then
        tmp = "#EQ" & vbCr & T & "#Q[x]" & vbCr
        DT.Content.Find.Execute FindText:=T, _
        ReplaceWith:=tmp, Replace:=wdReplaceAll
   End If
Next
DT.Range.InsertAfter "#EQ"
DT.Paragraphs(2).Range.Sentences(1).Delete
Application.ScreenUpdating = True
End Sub
ý mình muốn loại bỏ các cụm từ " Câu 1:, Câu 2, ...." và thay thế bằng #EQ ( hoặc kí tự do mình quy ước )ở mỗi đầu câu hỏi và kết thúc 1 câu hỏi bằng #Q[x] (hoặc tự quy ước)
 
Hơn 3,5 năm mới vào có ý kiến trong vấn đề của chính mình. Có đáng mất thời gian trả lời những người như thế không?
 
Web KT
Back
Top Bottom