table and code accidentally working only on odd rows

gmaxey · #10 08-12-2016, 05:51 AM

Marco, Graham,

The following also worked with Marco's example tables (a's, b's and c').

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oPar As Paragraph
Dim oRng As Range
Dim dblSize As Double
  For Each oPar In ActiveDocument.Paragraphs
    Set oRng = oPar.Range
    With oRng
      .MoveEnd wdCharacter, -1
      Do While .ComputeStatistics(wdStatisticLines) > 1
        dblSize = .Font.Size
        oRng.Font.Size = dblSize - 0.5
        If oRng.Font.Spacing > -0.3 Then oRng.Font.Spacing = oRng.Font.Spacing - 0.05
      Loop
    End With
  Next oPar
lbl_Exit:
  Exit Sub
End Sub

Still I am perplexed as to why I can select the first a, the last a, the first b, the last b, the first c and the then the last c and get the following results with

?Selection.Information(wdFirstCharacterLineNumber) in the Immediate windows

1
3
6
6
7
8

That indicates that the paragraphs containing the b's, the tiny empty paragraph after it and the paragraph containing the text "Test 2" is all contained within the same line and clearly visually at least it is not.

What makes this cell containing 3 paragraphs different from the other 2 or why is .Information(wdFirstCharacterLineNumber) reporting erratically in this case?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
I want to add multiple rows into my document but I can not figure out the code	jlw15931	Mail Merge	1	02-24-2015 05:03 AM
Header Rows in Tables Not Working	Andy Pilkington	Word	2	10-10-2014 12:36 AM
Is it possible to copy non-contiguous rows of a Table and paste them as a separate Table in Word?	Joey Cheung	Word Tables	1	08-12-2014 05:15 PM
VBA Code to take data from a table in word document and place it in a summary table	VBLearner	Word VBA	1	03-09-2014 08:42 PM
Grouping table rows to prevent individual rows from breaking across pages	dennist77	Word	1	10-29-2013 11:39 PM