How do I add a space at the beginning of a broken table on n

Suzanne S. Barnhill · Guest

When you select a file (one that isn't already open) in the Open dialog and
click on the arrow beside the Open button, you're seeing Open and Repair
dimmed? I can't think why that would be. The only two options I see dimmed
are "Open in Browser" (presumably available only for .htm and other Web page
file types) and "Open with Transform" (no idea what that means--something to
do with XML and XSLTs--so presumably I don't need it).

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"Plunk" <Plunk@discussions.microsoft.com> wrote in message
news:09E1DE1E-573C-4509-9C71-030A60AA300A@microsoft.com...

Google · Sponsor

Kon · Guest

I think that you are talking about excel, not word. I was wondering how to
do it in word by vba for some time now and would appreciate help:)

macropod · Guest

Hi Kon,

The following code will delete all blank rows (except for those with vertically merged cells) in all tables in the active document:

Sub DelBlankRows()
Dim Pwd As String
Dim oRow As Integer
Dim oTable As Table
Dim pState As Boolean
With ActiveDocument
pState = False
If .ProtectionType <> wdNoProtection Then
Pwd = InputBox("PleasePassword", "Password")
pState = True
.Unprotect Pwd
End If
If .Tables.Count > 0 Then
For Each oTable In .Tables
For oRow = oTable.Rows.Count To 1 Step -1
If Len(Replace(oTable.Rows(oRow).Range.Text, Chr(13) & Chr(7), vbNullString)) = 0 Then
On Error Resume Next 'skip vertically merged cells
oTable.Rows(oRow).Delete
End If
Next oRow
Next oTable
End If
If pState = True Then .Protect wdAllowOnlyFormFields, Noreset:=True, Password:=Pwd
pState = False
Pwd = ""
End With
End Sub

If the document is protected for forms, you'll need to replace "Password" with the real password (if any)

Cheers
--
macropod
[MVP - Microsoft Word]
-------------------------

"Kon" <vadas@wp.pl> wrote in message news:8ed01fff5cf743c9adb71d138d032c2c@ureader.com...

Purplejopeg · Guest

This was very helpful - thanks!

"Suzanne S. Barnhill" wrote:

Suzanne S. Barnhill · Guest

Glad you found it helpful.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"Purplejopeg" <Purplejopeg@discussions.microsoft.com> wrote in message
news:6DA55116-CC23-4FC3-9FA1-CEF252C39D33@microsoft.com...

ChelseaWarren · Guest

I must have missed your post when you first replied to this. Thank you so
much -- that's a GREAT idea!

"Suzanne S. Barnhill" wrote:

Suzanne S. Barnhill · Guest

Glad you like it. <g>

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"ChelseaWarren" <ChelseaWarren@discussions.microsoft.com> wrote in message
news:F5DD90FF-9807-483F-BEF9-B32E85F9E65E@microsoft.com...

Rich57 · Guest

I use Paste Special to do this. When the selection dialog pops up, choose
Unformatted text. The prevailing target document style is applied to the
pasted text.

Richard

"Jackie D" wrote:

Marlin · Guest

My question is, how do I prevent this problem? I only have ONE table with
text and some png images, but the table gets very large and becomes
corrupted. Does anyone know what causes this and how to prevent it?

It's frustrating to be working to a deadline and have this happen constantly.

Marlin

"Suzanne S. Barnhill" wrote: