{Hỏi} Cách lấy nội dung của Word

[ngochoan2006]

Các bác cho e hỏi cái này. Hiện nay e đang có 1 file Word đánh bình thường, Yêu cầu đặt ra là sẽ chia trang thành 6 cột, trong 1 cột thì chỉ có 1 chữ trên 1 dòng.
Như vậy nếu muốn thực hiện được vấn đề này thì bắt buộc phải dùng VBA nhưng khổ nỗi là e chưa biết cách lấy toàn bộ nội dung của word. khi đã lấy được nội dung của word rùi ta sẽ cho nó vào 1 biến rồi cho vòng for chạy từ đầu đến len của biến này nếu cứ gặp dấu cách " " thì ta cho thêm vào CHR(13) để nó xuống dòng.
Vậy bác nào có thể giúp mình làm được điều này hông ?

 

[ngochoan2006]

Ah !
E đã tìm ra cách làm rồi. Công việc đầu tiên là phải chia trang word này ra thành 6 cột ( hoặc mấy cột thì tùy ). Qua đoạn code sau :

Selection.WholeStory
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type <> wdPrintView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    With Selection.PageSetup.TextColumns
        .SetCount NumColumns:=6
        .EvenlySpaced = True
        .LineBetween = False
        .Width = CentimetersToPoints(1.48)
        .Spacing = CentimetersToPoints(1.27)
    End With

Sau khi chia song thì cần thêm một đoạn mã để qui định 1 chữ trên 1 dòng ! Mới đầu e nghĩ làm phức tạp rùi tự nhiên nghĩ ra trong Word có phương thức tìm kiếm và thay thế tại sao không dùng nó nhỉ !!!
Vậy là tèn ten :

 Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " "
        .Replacement.Text = Chr(13)
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

sau đó bấm 1 phát như ý muốn luôn ! Sướng ghê đi !

 

[kinghoang]

Hì hì, tự sướng... Chúc bạn đã thành công