Có cách nào chuyển từng trang trong Word sang dạng ảnh (.JPEG) không?

[LinDan]

Giờ dùng Windows 7 + Office 2010 thì khỏi cần (cả trong Win và Office đều có Tool chụp hình và xử lý hình)

Ẹc... ẹc...

Trong office2010, Tool chụp hình nó nằm ở vị trí nào? Em mò trong Phần mềm Portable nhưng chưa thấy.

 

[ndu96081631]

Trong office2010, Tool chụp hình nó nằm ở vị trí nào? Em mò trong Phần mềm Portable nhưng chưa thấy.

Mở Excel lên, chuyển sang tab Insert, bấm nút ScreenShot
Ứng dụng này dùng để chụp hình nguyên cửa sổ của 1 ứng dụng khác đang mở
Còn trong Windows 7 thì: Bấm Start, gõ chữ Snipping Tool rồi Enter sẽ có ngay ứng dụng chụp hình
Với Snipping Tool, bạn có thể chụp bất cứ thứ gì bạn thích (nó linh hoạt hơn ScreenShot trong Office)

 

[ndu96081631]

Mở Excel lên, chuyển sang tab Insert, bấm nút ScreenShot
Ứng dụng này dùng để chụp hình nguyên cửa sổ của 1 ứng dụng khác đang mở

Như ta biết ScreenShot dùng để chụp cửa sổ của 1 ứng dụng khác
Vậy nhân đây xin đố 1 câu: Làm sao dùng ScreenShot để tự chụp ứng dụng của chính mình? ---> Có nghĩa là: Mở MS Word, gọi ScreenShot rồi chụp cửa sổ ứng dụng của MS Word
Ẹc... Ẹc...

 

[siwtom]

Cách đó cũng tương tự như cách bài 5 tôi đã giới thiệu rồi còn gì

Cách đổi đuôi thành ZIP hoặc RAR chỉ áp dụng được với định dạng docx hoặc xlsx trong khi cách Save As Web Page áp dụng được tất tần tật

Tôi chậm hiểu nên nhờ ndu giải thích.
Tôi đọc chủ đề thấy nói là cần ghi từng trang thành JPG. Tôi hiểu là vd. có 5 trang thì ghi 5 trang thành 5 JPG. Bây giờ chủ topic lại khoe rằng tìm ra cách đơn giản để lấy "ảnh nhúng", tức lấy tất cả các ảnh đã "nhúng" trong 5 trang? Những cái "ảnh nhúng" này thì có điểm gì giống với ảnh của 5 trang?
Vậy thì "ta" muốn gì? Lấy "ảnh nhúng" hay lấy ảnh của các trang?
Nếu là ảnh nhúng thì Web Page --> mở bằng trình duyệt --> thích ảnh nào thì chuột phải rồi save chứ còn gì nữa
------------
Nếu ai có WORD 2007 thì: Nút Office --> Save As --> Find Add-ins for others file formats --> trong trang help mở ra có đường dẫn để tải "Microsoft Save as PDF or XPS Add-in for 2007 Microsoft Office"
Sau khi tải về và cài đặt thì: Save As --> chọn PDF or XPS
----------------
Nếu ai đó thích "vọc" code hoặc muốn giúp tôi thử nghiệm thì xin vui lòng đọc tiếp.
Khi đọc các thuộc tính trong WORD thì tôi thấy: Window có thuộc tính Panes mà mỗi Pane có thuộc tính Pages là tập các Page. Nhìn qua thì tôi "cảm thấy" nếu có 5 trang thì sẽ có 5 Page trong tập Pages. Page lại có thuộc tính EnhMetaFileBits
Cái tên EnhMetaFileBits đã nói "rất nhiều", tôi đoán là nó trả về một mảng bai "đại diện" cho hình ảnh của trang. Đọc help về EnhMetaFileBits thì thấy đúng là thế. Vậy tôi nảy ra ý tưởng ghi mảng bai đó ra đĩa và gán cho nó định dạng "emf". Thực ra lúc này chưa có "điểm bám" nên cứ ghi bừa ra thế để xem "mặt mũi" cái ghi ra nó thế nào.
Để làm điều này tôi thao tác như sau: mở tập tin DOC --> Alt + F11 --> đúp chuột vào ThisDocument --> Insert --> Module --> Module1 được thêm vào. Sau đây là code của Module1:
[GPECODE=vb]
Private Declare Function CopyEnhMetaFile Lib "gdi32.dll" Alias "CopyEnhMetaFileA" (ByVal hemfSrc As Long, ByVal lpszFile As String) As Long
Private Declare Function SetEnhMetaFileBits Lib "gdi32.dll" (ByVal cbBuffer As Long, ByRef lpData As Byte) As Long
Private Declare Function DeleteEnhMetaFile Lib "gdi32.dll" (ByVal hemf As Long) As Long
Sub hichic()
Dim pg As Page, m() As Byte, h As Long, k As Long, ImageStream As Object
For Each pg In Application.ActiveWindow.Panes(1).Pages
m = pg.EnhMetaFileBits
h = SetEnhMetaFileBits(UBound(m) + 1, m(0))
CopyEnhMetaFile h, "c:\hichic" & CLng(k) & ".emf"
DeleteEnhMetaFile h
k = k + 1
Next
End Sub
[/GPECODE]
Chọn Run để chạy Sub hichic.
Trên C tôi đã có ảnh của các trang.
Bây giờ là khúc mắc của tôi, nhờ các bạn kiểm tra hộ.
Khi tôi chuột phải lên tập tin EMF và chọn Preview (Preview mặc định của Windows) thì tôi thấy ảnh của trang. Nhưng khi tôi chuột phải và chọn Paint để mở thì có vấn đề - Paint chiếm RAM vài trăm MB và "nghĩ mãi". Mở bằng Corel cũng không chuẩn.
Nhưng nếu tôi chuột phải và chọn Misrosoft Office Picture Manager thì tôi có ảnh. Nếu tiếp theo tôi chọn File --> Export --> chọn Format là JPG thì sau đó tập tin JPG mở được ngon lành bằng Paint, Corel hay bất cứ ct nào.
Thực ra tôi có thể thay ghi trực tiếp mảng bai ra đĩa bằng cách thay code Sub hichic bằng code:
[GPECODE=vb]
Sub hichic()
Dim pg As Page, m() As Byte, h As Long, k As Long, ImageStream As Object
For Each pg In Application.ActiveWindow.Panes(1).Pages
m = pg.EnhMetaFileBits
Open "c:\bla" & CLng(k) & ".emf" For Binary As #1
Put #1, , m
Close #1
k = k + 1
Next
End Sub
[/GPECODE]
Thì các kết quả như nhau, tức mở bằng Paint, Corel có vấn đề nhưng chuột phải chọn Preview hay chọn Misrosoft Office Picture Manager thì xem được và Export ngon lành. Chỉ có điều các tập tin EMF ở trường hợp sau có dung lượng lớn hơn.
Nhờ các bạn kiểm tra mở thẳng tập tin EMF bằng Paint xem thế nào.

 

[ndu96081631]

Tôi chậm hiểu nên nhờ ndu giải thích.
Tôi đọc chủ đề thấy nói là cần ghi từng trang thành JPG. Tôi hiểu là vd. có 5 trang thì ghi 5 trang thành 5 JPG. Bây giờ chủ topic lại khoe rằng tìm ra cách đơn giản để lấy "ảnh nhúng", tức lấy tất cả các ảnh đã "nhúng" trong 5 trang? Những cái "ảnh nhúng" này thì có điểm gì giống với ảnh của 5 trang?
Vậy thì "ta" muốn gì? Lấy "ảnh nhúng" hay lấy ảnh của các trang?
Nếu là ảnh nhúng thì Web Page --> mở bằng trình duyệt --> thích ảnh nào thì chuột phải rồi save chứ còn gì nữa
.

Ah, không anh à!
Tức là sau khi Print bằng máy ảo Send To OneNote xong, sang chương trình OneNote, ta Save As thành Word Document thì ta sẽ được 1 file Word mà mỗi trang là 1 Picture. Từ file Word mới này mới làm tiếp chuyện đổi đuôi hay Save Web Page gì đó
(chứ file gốc thì làm quái gì có hình mà lấy)

 

[siwtom]

Ah, không anh à!
Tức là sau khi Print bằng máy ảo Send To OneNote xong, sang chương trình OneNote, ta Save As thành Word Document thì ta sẽ được 1 file Word mà mỗi trang là 1 Picture. Từ file Word mới này mới làm tiếp chuyện đổi đuôi hay Save Web Page gì đó
(chứ file gốc thì làm quái gì có hình mà lấy)

Cám ơn Tuấn.

Còn việc tôi nhờ các bạn thì ai rảnh rỗi hãy giúp tôi "voc" với.

 

[LinDan]

----------------
Trở lại vấn đề convert trang word thành picture, mình thấy dù gì cũng phải cần 1 phần mềm nào đó. Vậy nếu ta thấy Windows 7 + Office 2010 thừa sức làm điều này thì có phải ta nên dùng nó không (thay vì phải cài 1 phần mềm khác) ---> Đằng nào cũng CÀI, thôi thì cái 1 món mà xài được nhiều món khác cũng ngon lành mà
Ẹc... ẹc...

Em sử dụng chức năng Snipping Tool để chụp màn hình, nó rất tiện lợi, tuy nhiên độ phân giải màn hình hơi thấp (chất lượng chưa rõ nét lắm), có cách nào để tăng chất lượng hình ảnh chụp lên không ah?

 

[ndu96081631]

Cám ơn Tuấn.

Còn việc tôi nhờ các bạn thì ai rảnh rỗi hãy giúp tôi "voc" với.

Hôm nay rảnh, lại lôi code của anh ra để test! Đúng như trình trạng anh đã nêu:
- Mở file bằng MS Paint nó ngốn RAM nhiều hơn
- Export sang JPE thì dung lượng lớn hơn file gốc (khoảng gấp đôi)
Có điều máy em dù mở bằng MS Paint hay bằng cái gì thì vẫn.. trơn tru, không "nặng" tí nào
(máy em Core 2 - 2.2GHz và RAM 2GB)
--------------------------
Nói thật lòng: Chẳng phải ngại gì việc test mấy code đơn giản này, chẳng qua là em... GHÉT WORD
Ẹc... Ẹc...

 

[hieu1996]

Thày chỉ e trình tự các bước làm chuyển từ file word sang JPG dùng bằng code của thày với ạ? E cám ơn!

 

[VinhQuangdo]

Mình nghỉ là nên chuyển sang dạng máy in ảo. Mình ấn lệnh in => sau đó sẽ chọn đầu ra là dạng ảnh => In
Kết quả sẽ là file Word được save thành 1 file ảnh với đúng kích cỡ.
Mình thấy cách này khá tiện

 

[kietpro_1990]

chỉ có cách là bạn xuất ra file pdf sau đó từ pdf xuất ra file hình ảnh jpg