Convert frames to textboxes in Word after FineReader: ready-to-use solutions?
Thread poster: Artem Vakhitov

Artem Vakhitov  Identity Verified
Estonia
English to Russian
+ ...
Nov 11, 2017

When converting PDFs in the Exact Copy mode, FineReader puts stuff in frames instead of textboxes, but frames are annoying to work with. Is there any ready-to-use solution for converting all frames to textboxes while preserving their content and positioning? What I've found so far seems like half-baked VBA code that needs work. Ideally, I would like something akin to TransTools that could do this. It need not even be free. Anyone?

 

Michael Beijer  Identity Verified
United Kingdom
Local time: 22:29
Member (2009)
Dutch to English
+ ...
some thoughts Nov 11, 2017

Artem Vakhitov wrote:

When converting PDFs in the Exact Copy mode, FineReader puts stuff in frames instead of textboxes, but frames are annoying to work with. Is there any ready-to-use solution for converting all frames to textboxes while preserving their content and positioning? What I've found so far seems like half-baked VBA code that needs work. Ideally, I would like something akin to TransTools that could do this. It need not even be free. Anyone?


I think CodeZapper (http://www.asap-traduction.com/CodeZapper ) might have something like it.

I'm also fairly certain that if you asked the developer of TransTools he would add it.

By the way, why not just use the other setting (forget what it's called) in Finereader? The one that puts stuff text boxes. That's how I use Finereader.


 

Artem Vakhitov  Identity Verified
Estonia
English to Russian
+ ...
TOPIC STARTER
Thank you Michael Nov 11, 2017

Michael Joseph Wdowiak Beijer wrote:

Artem Vakhitov wrote:

When converting PDFs in the Exact Copy mode, FineReader puts stuff in frames instead of textboxes, but frames are annoying to work with. Is there any ready-to-use solution for converting all frames to textboxes while preserving their content and positioning? What I've found so far seems like half-baked VBA code that needs work. Ideally, I would like something akin to TransTools that could do this. It need not even be free. Anyone?


I think CodeZapper (http://www.asap-traduction.com/CodeZapper ) might have something like it.

I'm also fairly certain that if you asked the developer of TransTools he would add it.

By the way, why not just use the other setting (forget what it's called) in Finereader? The one that puts stuff text boxes. That's how I use Finereader.


Thank you Michael. I have CodeZapper 2.6, which may be old, and it doesn't have anything that does exactly what I need here. Re TransTools, this might be a good idea if the developer is responsive.

In my FineReader Pro v11, there's no mode that saves textboxes—both in Exact Copy and Editable Copy, frames are used.


 

Artem Vakhitov  Identity Verified
Estonia
English to Russian
+ ...
TOPIC STARTER
Here's my attempt at a Word macro for this conversion Jan 8

Here is a Word macro for converting frames to textboxes that I've written based on someone else's incomplete code from an Internet forum. It works for me but may or may not work for you. I don't understand all aspects of it — specifically, I don't fully understand the logic of working with the Selection object. The code may be ugly. Anyway, it successfully converts the output of FlexiPDF. (Haven't tested it on FineReader's output yet.)


Sub ConvertFramesToTextboxes()

Dim i As Long

' Not sure if this is needed, along with the corresponding code line
Dim CopyRange As Word.Range

With ActiveDocument
For i = .Frames.Count To 1 Step -1

Dim x, y, h, w As Single

h = ActiveDocument.Frames(i).Height
w = ActiveDocument.Frames(i).Width

With .Frames(i).Range
Set CopyRange = .Duplicate
.Select
.Cut
.Select
End With

x = Selection.Information(wdHorizontalPositionRelativeToPage)
y = Selection.Information(wdVerticalPositionRelativeToPage)

With ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, x, y, w, h)
With .TextFrame
.MarginLeft = 0
.MarginRight = 0
.MarginTop = 0
.MarginBottom = 0
End With

.Line.Visible = msoFalse

' I want transparent textboxes, your needs may be different
.Fill.Visible = msoFalse

.Select
Selection.Range.Paste

' This checks if what we have inside textbox is a picture
' and if so, sends this textbox behind. For some unclear reasons,
' msoSendToBack has no effect here.
If (.TextFrame.TextRange.InlineShapes.Count = 1) Then
.ZOrder msoSendBehindText
End If

.Select
End With
Selection.Cut
ActiveDocument.Frames(i).Select
Selection.Delete
Selection.Paste

Next i

End With
End Sub


 


To report site rules violations or get help, contact a site moderator:


You can also contact site staff by submitting a support request »

Convert frames to textboxes in Word after FineReader: ready-to-use solutions?

Advanced search






Wordfast Pro
Translation Memory Software for Any Platform

Exclusive discount for ProZ.com users! Save over 13% when purchasing Wordfast Pro through ProZ.com. Wordfast is the world's #1 provider of platform-independent Translation Memory software. Consistently ranked the most user-friendly and highest value

More info »
CafeTran Espresso
You've never met a CAT tool this clever!

Translate faster & easier, using a sophisticated CAT tool built by a translator / developer. Accept jobs from clients who use SDL Trados, MemoQ, Wordfast & major CAT tools. Download and start using CafeTran Espresso -- for free

More info »



Forums
  • All of ProZ.com
  • Term search
  • Jobs
  • Forums
  • Multiple search