Replies

Hi HansV,
Yours answers are always absolutely perfect.
Yes, now I assign Alt+T to the Tabs dialog box. Wow, it saves enormous time, especially inside table cells.
The Paragraph dialog box launcher was my previous of setting tab stops but it’s tedious.
Thanks a lot.
Armstrong

For the sake of closure, this problem is resolved in the thread: How to Preserve Image Quality (Word).

Indeed, it’s the perfect conclusion. Thanks.
Armstrong

Hi Paul,
I prefer your field approach. You’re my “field” hero/guru. Everyday I study your articles on fields. Not everything (such as number of days between two dates) you wrote about I could understand right away. It just takes time. Thank you for writing the code which involves tons of field manipulation techniques.
Armstrong

You could use formfields and VBA code, see Spell Out Currency on Greg Maxey’s website.

HansV,
I often visit Greg’s website, but didn’t know he wrote an article on dollar text.
Thanks a lot.
Armstrong

Is it possible to augment the 999,999.99 limitation?

Armstrong

The limit is 999,999.99.

Your original example works fine when I try it.

I’ve never come across any Microsoft document revealing the limit. HansV, thanks a lot.
Which “original example” works?
Thanks.
Armstrong

Word appears to impose a limit on the number it can translate into a dollar text.
{ = 1234567 * 4 * DollarText * Upper } fails.
{ = 123456 * 4 * DollarText * Upper } displays “FOUR HUNDRED NINETY-THREE THOUSAND EIGHT HUNDRED TWENTY-FOUR AND 00/100.”
Armstrong

Do you want the result in dollars? If so try this {=123*.8 # “$#,##0.00;($#,##0.00)”}

Hi Andrew,
No, I’m looking for dollar text /*DollarText. Sorry.
Armstrong

Hi Armstrong,

If, as I suspect you’re doing, you’re copying screen images of the PDF pages and pasting those into Word, then all you’ll get is the screen resolution of what you copy & paste.

You can increase the resolution of the pasted image by radically increasing the PDF zoom factor before copying. Alternatively, if you’ve got access to Adobe Acrobat Professional, you can export a PDF as a Word document, in which the images will probably have a suitably high resolution.

Hi Paul,
Thanks for offering the most perfect solution I’ve been searching for a long time in vain.
Yes, saving as a DOC in Acrobat Professional produces the most satisfactory results:
1. {IncludeText} now can read it and complains no more;
2. Each page of the original PDF doc can be now be paginated, dated, commented,…. in any way I want;
3. The image quality is now as good as the original PDF.
4. No more tedious manual insertion of PDF pages into the main Word file (writ, brief, motion,…etc.)
Paul, thanks again.

Armstrong

Where did you get these PDF files from? PDF is not a usual format for graphic files, so depending on what they are somebody must have converted them to PDF. Can you get hold of the original files and insert those, instead of using the PDF files?

All exhibits are stored in PDF. These are scanned images of contracts, receipts, forensic reports, witness statements, …etc. They are included in a legal brief for evidential support. In fact, it’s the standard practice by DoJ and DoD.
Armstrong

Currently I just print the main Word document and pdf files separately. Then, manually insert the pdfs into the intended positions.
Can this be done with mailmerge instead so that I can save the said manual insertions?
Armstrong

Hi HansV,

Your method indeed works precisely as I look for.
Nonetheless, the image quality is horrible.

Armstrong

Try to get hold of the original image.

Hi HansV,
What do you mean by “get hold of the original image?”
Directly pasting the images into document definitively preserves the quality.
However, motions and affidavits will contain a huge number of exhibits. Then, how could these documents (images) be included in a Word document?
Armstrong

Didn’t someone post a macro for this in another thread earlier this year? (I’m not finding it in a search…)

You could try this and see what kind of chaos it causes:

Code:

Sub RemoveTextBoxesAndFrames()
 Dim intCount As Integer
 ' Comb Shapes collection for TextBoxes and convert to frames
 With ActiveDocument.Shapes
	 For intCount = .Count To 1 Step -1
		 If .Item(intCount).Type = msoTextBox Then
			 .Item(intCount).ConvertToFrame
		 End If
	 Next
 End With
 ' Remove frames (contents typically become a new paragraph)
 With ActiveDocument.Frames
	 For intCount = .Count To 1 Step -1
		 .Item(intCount).Delete
	 Next
 End With
 End Sub

Hi jscher2000,
Thanks for taking time to write a macro.
Armstrong

My efforts have generally met only with partial success. The problem is that the converter will use text frames to micromanage the position of fragments of text, rather than figuring out how it would flow best for purposes of editing.

There are trial editions of many converter products, so you might try some more recent versions if you don’t have one already.

Hi jscher2000.
“Text frames” exactly are the core issue, which often divides a paragraph into multiple section. Look like I’ve to do it manually. Thanks for your help.
Armstrong