Replies

Yes, unfortunately, the ‘one shot deal’ bit wasn’t mentioned until after I’d worked out my rather convoluted solution. For a ‘one shot deal’ copy & paste special unformatted text works and is far easier. My solution is really only practical if the source text and/or paragraph numbering is subject to change and the cross-reference needs to reflect that.

Cheers

Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Of course, if you want to retain the original data order, sorting might not work …

The following macro goes through column A, deleting any rows that have zero values, are blank or have text (eg tick marks or dashes):

Sub CleanUp()

Dim A As Long
Dim C As Range

On Error GoTo Abort
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Set C = ActiveSheet.UsedRange.Rows
For A = C.Rows.Count To 1 Step -1
If Application.WorksheetFunction.Sum(C.Rows(A).Columns(“A:A”)) = 0 Then
C.Rows(A).EntireRow.Delete
End If
Next A

Abort:
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

PS: Once you’ve added it to the worksheet, it’ll beat sorting and deleting the unwanted rows any time.

Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Hi Patrick,

On a more serious note, if it hasn’t been done already, go into Tools/Options/Compatability and check the box ‘Do full justification like WordPerfect 6.x for Windows’. This might get you your two lines back.

It works by allowing Word to reduce the spaces between words if that will leave enough room for the next word to fit on the same line. Normally, Word only stretches the spaces to fill the gaps.

I know this doesn’t deal with the underlying problem, but it might be enough to get you out of a fix.

Cheers

Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Hi Phil,

The only reason for creating TOC – a dummy one in this case – is so that the linking would pick up the original paragraph numbers without disturbing the structure of either the source or target documents.

An includetext link to the original paragraphs on their own would only pick up the text without the paragraph numbers and, as other discussions regarding this post confirm, referencing seq fields causes problems of its own. However, an includetext filed linked to a TOC gets around both of these issues. If there’s a better way I haven’t found it.

Regards

Cheers,
Paul Edstein
[Fmr MS MVP - Word]

can’t help good luck …

Cheers,
Paul Edstein
[Fmr MS MVP - Word]

OK,

Got it worked out now. Not particularly elegant and, because it’s time-consuming to set up, really only useful if your goal is to cross-reference to text that is subject to change, but at least it works.

1. In your source document, pick a heading style that’s not otherwise used.
2. Format that heading style so that it looks the same as the paragraphs you want to link to, inlcuding numbering and so on.
3. Assign the new heading style to those paragraphs instead of the one you’d previously used. If you’ve been using styles correctly for para numbering, this won’t affect the numbers of paras that haven’t been changed to the new style.
4. Create a TOC for just that heading style – you might want to put it at the end of the document in its own section.
5. Format the new TOC so that it too looks exactly the same as the original paras.
6. Apply a bookmark to the new TOC.
7. Use the method outlined in my first post to link to that bookmark.

Like I said, not particularly elegant, but it does work.

Hope this helps.

Cheers,
Paul Edstein
[Fmr MS MVP - Word]

You can achieve this by bookmarking the range(s) in the source document that you need to link to.

In the target document, you then reference this/these bookmark(s) by using an includetext field in the format:
INCLUDETEXT “DRIVE:PathFilename.doc” Bookmark ! * MERGEFORMAT

You need to specify the path – and note the double backslashes – you need these. See Word’s Help on Includetext for more details.

Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Sorry,
That doesn’t work – gives the text, but not the para numbering. I’ll have another look and will let you know if I find the answer.
Cheers

Cheers,
Paul Edstein
[Fmr MS MVP - Word]

This can happen anytime you open a Word document on PCs that aren’t configured exactly the same – I’ve even seen it happen where the only difference was the resolution and refresh rate that the monitor was set to on the SAME PC!! Bizarre as it sounds. That’s one of the reasons pdf files exist…

Cheers,
Paul Edstein
[Fmr MS MVP - Word]

I’ve also found that merely switching change-tracking on can be enough to “update” page Nos. & dates in footers, and some paras in the text. What I usually do when this happens is click undo immediately after switching change-tracking on. You may also need to make sure it’s off when doing page previews, printing etc, just so as to avoid Word’s ‘helpful’ updates.

Cheers,
Paul Edstein
[Fmr MS MVP - Word]

To put the contents of cell A1 into a worksheet

Cheers,
Paul Edstein
[Fmr MS MVP - Word]

You could set up a macro for turning either or both of these features on/off and attach them to a button on the toolbar. That would give you easier/quicker access.

It’s a bit of a tough ask, though, wanting circular reference error checking without wanting Excel to warn you when it finds them. Basically you’d need some event-driven macro code to trap the warning dialogue box and close it for you, presumably after leaving it on-screen just long enough to know one’s occurred. That would still leave the messages on the status bar as a back-up warning. Beyond my abilities anyway…

Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Hi Deb,
See if this meets your needs. It simply trawls through the active sheet finding rows with duplicates and deleting them. I’ve also included an alternative for deleting just the duplicate cells, in case that’s what you’re after.

Sub ClearDuplicateRowsInColumns()

Dim A As Long
Dim B As Long
Dim C As Range
Dim D As Range

On Error GoTo Abort
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Set D = ActiveSheet.UsedRange.Columns
Set C = ActiveSheet.UsedRange.Rows
For B = D.Columns.Count To 1 Step -1
For A = C.Rows.Count To 1 Step -1
If Application.WorksheetFunction.CountIf(Range(Rows(1).Columns(1), Rows(A).Columns(), C.Rows(A).Columns() > 1 Then
‘If you only want to delete the offending cell, use: If Application.WorksheetFunction.CountIf(Columns(, C.Rows(A).Columns() > 1 Then
C.Rows(A).EntireRow.Delete
‘If you only want to delete the offending cell, use: Rows(A).Columns(.Delete Shift:=xlUp
End If
Next A
Next B

Abort:
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

Cheers

Cheers,
Paul Edstein
[Fmr MS MVP - Word]

In Excel 97 you can stop this by going into Tools/Options/Calculation and checking the Iteration box and/or by turning off automatic recalc.

Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Edited: and[/i]%20″] and tags added around the URL to make the link live. -Mod.

I don’t have Word 2002, so I don’t know for sure what the story is there.

Taking hmc’s point re Word 2000, the first step would be to make sure you’ve installed the Office Converter Pack. According to MS:
“The WordPerfect 6. x converter is included with Word and is part of the Run from My Computer installation.”
You might also want to check:
http://support.microsoft.com/default.aspx?…b;EN-US;q236051%5B/url%5D
which tells you about the converters that come with word,
http://support.microsoft.com/default.aspx?…b;en-us;Q212265%5B/url%5D
which tells you about what’s in the converter pack, and
http://office.microsoft.com/Assistance/2000/ofconpak.aspx%5B/url%5D and/or http://www.microsoft.com/office/ork/2000/a…ox.htm#convpack%5B/url%5D
for the Office Converter Pack itself.

Cheers,
Paul Edstein
[Fmr MS MVP - Word]