Sửa định dạng file xuất từ PDF to Word như thế nào? (2 người xem)

[vanle33]

Mong các anh chị và các bạn xem file đính kèm
Em có copy nội dung 1 văn bản từ PDF sang Word. Nhưng bị mất hết các định dạng về font, canh lề ....
Em cứ phải đặt con trỏ tại chữ cuối cùng rồi nhấn Delete rồi nhấn Space thì chữ ở dòng dưới mới nhảy lên trên. Trong cả văn bản đó có rất rất nhiều các lỗi chữ nhảy xuống dòng như thế.
Bây giờ em muốn hỏi làm cách nào thật nhanh và hiệu quả để thay cho việc cứ phải làm thủ công thế, rất lâu và mệt!
Thanks

 

[vanle33]

Các bạn cho ý kiến giúp mình nhé!

 

[dhn46]

Bạn thử tìm các chương trình Convert từ Pdf to Word xem sao. Từ khóa "Convert Pdf to Word"

 

[vanle33]

Bạn thử tìm các chương trình Convert từ Pdf to Word xem sao. Từ khóa "Convert Pdf to Word"

Mình đã thử nhiều chương trình PDF to Word rồi. Nhưng các chương trình đó chỉ cho convert mấy trang đầu thôi. Không convert được toàn bộ văn bản.
Vấn đề bây giờ là mình muốn sửa chữa file word như yêu cầu ở bài #1.

 

[vanle33]

Các anh cho hỏi
Có thể dùng VBA trong Word để giải quyết bài toán ở bài #1 không ?

 

[Quang_Hải]

Mình đã thử nhiều chương trình PDF to Word rồi. Nhưng các chương trình đó chỉ cho convert mấy trang đầu thôi. Không convert được toàn bộ văn bản.
Vấn đề bây giờ là mình muốn sửa chữa file word như yêu cầu ở bài #1.

Mình có chuyển thử 1 file từ PDF sang Word thấy tốt mà
Bạn gởi file lên mình chuyển thử xem sao.

 

[vanle33]

Mình có chuyển thử 1 file từ PDF sang Word thấy tốt mà
Bạn gởi file lên mình chuyển thử xem sao.

Tất cả định dạng trong file anh gửi có phải giống hoàn toàn trong file PDF không?
Anh có thể ví dụ chuyển file đính kèm cho em nhé
Anh làm cách nào hay vậy , chỉ em cách hay phần mềm nào có thể chuyển nhiều trang của file PDF?

 

[Quang_Hải]

Tất cả định dạng trong file anh gửi có phải giống hoàn toàn trong file PDF không?
Anh có thể ví dụ chuyển file đính kèm cho em nhé
Anh làm cách nào hay vậy , chỉ em cách hay phần mềm nào có thể chuyển nhiều trang của file PDF?

Convert xong rồi, định dạng ổn nhưng font chữ gì kỳ quá không có ra dấu tiếng việt. File lớn quá sao up lên được?
Mình dùng Nitro Pro 8. Bạn tải về xài thử nha. Nó cho xài full nhưng chỉ có 14 ngày. Nếu cần thì tìm cách xài mãi mãi.

 

[vanle33]

Convert xong rồi, định dạng ổn nhưng font chữ gì kỳ quá không có ra dấu tiếng việt. File lớn quá sao up lên được?
Mình dùng Nitro Pro 8. Bạn tải về xài thử nha. Nó cho xài full nhưng chỉ có 14 ngày. Nếu cần thì tìm cách xài mãi mãi.

Anh không phải up lên đâu. Em lấy file đó làm ví dụ thôi
Để em dùng thử phần mềm đó xem.

 

[huuthang_bd]

Bạn thử dùng code này thử xem. Kết quả sẽ còn lại một vài chỗ xuống hàng không đúng do không có cơ sở phân biệt

Sub MSWord()
Application.ScreenUpdating = False
Selection.EndKey Unit:=wdStory
Selection.HomeKey Unit:=wdLine
Do Until Selection.Information(wdFirstCharacterLineNumber) = 1 And Selection.Information(wdActiveEndPageNumber) = 1
    If Selection.Characters(1) <> UCase(Selection.Characters(1)) Then
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
        Selection.Characters(1) = " "
        Selection.HomeKey Unit:=wdLine
    Else
        Selection.MoveUp Unit:=wdLine, Count:=1
    End If
Loop
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Text = " ^p"
Selection.Find.Replacement.Text = "^p"
Do Until Selection.Find.Execute = False
    Selection.Find.Execute Replace:=wdReplaceAll
Loop
Selection.Find.Text = "  "
Selection.Find.Replacement.Text = " "
Do Until Selection.Find.Execute = False
    Selection.Find.Execute Replace:=wdReplaceAll
Loop
Application.ScreenUpdating = True
End Sub

 

[hungpecc1]

Convert xong rồi, định dạng ổn nhưng font chữ gì kỳ quá không có ra dấu tiếng việt. File lớn quá sao up lên được?
Mình dùng Nitro Pro 8. Bạn tải về xài thử nha. Nó cho xài full nhưng chỉ có 14 ngày. Nếu cần thì tìm cách xài mãi mãi.

Anh không phải up lên đâu. Em lấy file đó làm ví dụ thôi
Để em dùng thử phần mềm đó xem.

Ok phần mềm Nitro 8 sẽ convert được PDF sang word 100%

--> Mình sẽ gửi ****** của Nitro cho bạn ( phần mềm bạn tự down nhé )
---> vấn đề lỗi font là do PDF dùng font VnNcentury2 --> bạn sửa lại là ok

Lạ quá từ "GenKey" GPE tự chuyển thành **** ah

 

[vanle33]

Bạn thử dùng code này thử xem. Kết quả sẽ còn lại một vài chỗ xuống hàng không đúng do không có cơ sở phân biệt

Sub MSWord()
Application.ScreenUpdating = False
Selection.EndKey Unit:=wdStory
Selection.HomeKey Unit:=wdLine
Do Until Selection.Information(wdFirstCharacterLineNumber) = 1 And Selection.Information(wdActiveEndPageNumber) = 1
    If Selection.Characters(1) <> UCase(Selection.Characters(1)) Then
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
        Selection.Characters(1) = " "
        Selection.HomeKey Unit:=wdLine
    Else
        Selection.MoveUp Unit:=wdLine, Count:=1
    End If
Loop
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Text = " ^p"
Selection.Find.Replacement.Text = "^p"
Do Until Selection.Find.Execute = False
    Selection.Find.Execute Replace:=wdReplaceAll
Loop
Selection.Find.Text = "  "
Selection.Find.Replacement.Text = " "
Do Until Selection.Find.Execute = False
    Selection.Find.Execute Replace:=wdReplaceAll
Loop
Application.ScreenUpdating = True
End Sub

Dùng Code này trong Word 2010 như thế nào vậy bạn?
Mình chưa bao giờ dùng Code trong word cả.

 

[ptm0412]

Dùng code trong Excel thế nào thì dùng trong word thế ấy: Alt F11