Hôm nay tôi đang nhận dạng quyển "800 mẹo vặt trong cuộc sống hàng ngày" của NXB Thanh Niên do Đới Trị Bình và Cát Lợi Bình làm chủ biên, khi chuyển sang Word thì bị hiện tượng các đoạn bị rớt dòng, do đó phải ghép các dòng lại theo từng đoạn.
Nếu làm theo cách thủ công, cứ đến cuối dòng rồi Delete để ghép chắc tới Tết năm sau tôi mới có thể post lên cho mọi người xem để chuẩn bị ăn Tết luôn quá.
Cho nên, tôi võ vẽ một chút VBA để làm cái macro ghép dòng văn bản cho nó nhanh. Vậy xin post cái mã nguồn nó lên cho để bạn có dùng VnDOCR nhận dạng văn bản thì lấy về mà dùng.

' Ghep_dong

' Ghep_dong Macro
' Macro create 17/03/2007 by ran_oo
'
   Dim num As Long
  
   num = Selection.Paragraphs.Count
   Do While num > 1
       Selection.HomeKey Unit:=wdLine
       Selection.MoveDown Unit:=wdParagraph, Count:=1
       If Selection.Text = Chr(13) Then
           Selection.Delete Unit:=wdCharacter, Count:=1
       Else
           Selection.MoveUp Unit:=wdLine, Count:=1
           Selection.EndKey Unit:=wdLine
           Selection.Delete Unit:=wdCharacter, Count:=1
           Selection.TypeText Text:=" "
       End If
       num = num - 1
   Loop
   Selection.HomeKey Unit:=wdLine
   Selection.MoveDown Unit:=wdParagraph, Count:=1
   If Selection.Text = Chr(13) Then     
       Selection.Delete Unit:=wdCharacter, Count:=1
   End If

' End Sub

Sẵn đây cũng xin nói rõ cách tạo macro này để bạn nào chưa rành thì cũng có thể sử dụng.
Bước 1. Click vào menu Tools, chọn lệnh Macro\Macro...
Bước 2. Tại hộp thoại Macros, nhập tên macro tại mục Macro name. Tên macro nói chung có thể đặt bất kỳ, tuy nhiên cũng nên đặt cho dễ nhận ra chức năng của nó, như Ghep_dong chẳng hạn và phải tuân theo quy luật: Bắt đầu bằng ký tự và không có khoảng trắng. Sau đó Click nút Create để chuyển sang chế độ viết code.
Bước 3. Copy đoạn mã bên trên và Paste vào tại vị trí con nháy hiện hành trong cửa sổ soạn code. Save và đóng cửa sổ này lại.
Bước 4. Để dùng macro này, trước hết ta tô khối tất cả các đoạn muốn ghép lại, sau đó vào menu Tools\Macro\Macro..., Click vào tên macro ghép dòng bên dưới mục Macro name rồi Click nút lệnh Run. Cứ lặp lại thao tác trên cho các đoạn sau...
Để thao thác cho nhanh, các bạn có thể vào menu Tools\Customize... để "lôi" cái macro trên ra thanh công cụ để gọi (nếu dùng chuột) hoặc gán phím tắt cho nó (lệnh Keyboard...) khi dùng bàn phím.
Chúc các bạn thành công.

Có gì xin mọi người góp ý. Cảm ơn.
E-mail: [email=ran_oo@gawab.com]ran_oo@gawab.com[/email]