draw an electrode potential table

If you are producing resources for the electrochemistry topic you often need to draw this table:
It looks like a two-column table but if the left-hand column is actually three columns you can keep the equilibrium signs underneath each other in their own narrow column which has no left or right border.
Once you have made this table you can save it in Building Blocks using the method here. It can then be called up quickly and easily, as can any table.
The macro below draws this four-column table with column headings and equilibrium signs already populated. Column 1 is aligned right, column 2 is justified, column 3 is aligned left and column 4 is justified, as are the column headings. When you add the equations they are already formatted as above.
Selection.Delete unit:=wdCharacter, Count:=1

'make table
        ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=5, NumColumns:= _
        4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "Table Grid" Then
            .Style = "Table Grid"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .ApplyStyleRowBands = True
        .ApplyStyleColumnBands = False
    End With
   
   'set column widths
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=106.8, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=99.7, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=92.6, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=85.5, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=78.45, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=71.35, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=64.25, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=57.15, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=50.1, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=43, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=35.9, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=28.8, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=21.75, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=21.75, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(4).SetWidth ColumnWidth:=107, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(4).SetWidth ColumnWidth:=99.9, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(4).SetWidth ColumnWidth:=92.8, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(4).SetWidth ColumnWidth:=85.75, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(4).SetWidth ColumnWidth:=78.65, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(4).SetWidth ColumnWidth:=71.55, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(4).SetWidth ColumnWidth:=64.45, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(4).SetWidth ColumnWidth:=57.4, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(4).SetWidth ColumnWidth:=50.3, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(4).SetWidth ColumnWidth:=43.2, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(4).SetWidth ColumnWidth:=36.1, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(4).SetWidth ColumnWidth:=43.2, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(4).SetWidth ColumnWidth:=43.2, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=21.75, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=28.8, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=35.9, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=43, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=43, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(1).SetWidth ColumnWidth:=112.7, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(1).SetWidth ColumnWidth:=120.25, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(1).SetWidth ColumnWidth:=127.35, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(1).SetWidth ColumnWidth:=134.45, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(1).SetWidth ColumnWidth:=127.35, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(1).SetWidth ColumnWidth:=134.45, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(1).SetWidth ColumnWidth:=134.45, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=43, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=35.4, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=28.35, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=21.25, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=21.25, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=106.3, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=99.2, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=92.15, RulerStyle:= _
        wdAdjustNone
    Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=92.15, RulerStyle:= _
        wdAdjustNone
    Selection.MoveRight unit:=wdCharacter, Count:=3
    
   'type E standard heading
    With Selection.Font
    .Bold = True
    End With
    Selection.TypeText Text:="E"
    Selection.Font.Superscript = wdToggle
    With Selection.Font
        .Name = "Arial"
        .Size = 11
        .Position = 2
        .Bold = True
    End With
    Selection.Font.Size = 8
    Selection.InsertSymbol Font:="Arial", CharacterNumber:=1012, Unicode:=True
    Selection.Font.Size = 11
    Selection.Font.Superscript = wdToggle
    With Selection.Font
        .Name = "Arial"
        .Size = 11
        .Bold = True
        .Position = 0
    End With
    Selection.TypeText Text:=" / V"
    Selection.Font.Bold = wdToggle
 Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

 
 'type equilibrium signs
 Selection.MoveDown unit:=wdLine, Count:=1
 Selection.MoveLeft unit:=wdCharacter, Count:=2
 Selection.TypeText Text:=ChrW(8652)
 Selection.MoveDown unit:=wdLine, Count:=1
 Selection.TypeText Text:=ChrW(8652)
 Selection.MoveDown unit:=wdLine, Count:=1
 Selection.TypeText Text:=ChrW(8652)
 Selection.MoveDown unit:=wdLine, Count:=1
 Selection.TypeText Text:=ChrW(8652)
 Selection.MoveRight unit:=wdCharacter, Count:=2
 Selection.MoveUp unit:=wdLine, Count:=3
 
 'justifying columns first line
 Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
 
 Selection.MoveLeft unit:=wdCharacter, Count:=1
 Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
 
 Selection.MoveLeft unit:=wdCharacter, Count:=1
 Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
 
 Selection.MoveLeft unit:=wdCharacter, Count:=2
 Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
 
 Selection.MoveRight unit:=wdCharacter, Count:=4
 Selection.MoveDown unit:=wdLine, Count:=1
 
'justifying columns second line
 Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
 
 Selection.MoveLeft unit:=wdCharacter, Count:=1
 Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
 
 Selection.MoveLeft unit:=wdCharacter, Count:=1
 Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
 
 Selection.MoveLeft unit:=wdCharacter, Count:=2
 Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
 
 Selection.MoveRight unit:=wdCharacter, Count:=4
 Selection.MoveDown unit:=wdLine, Count:=1


'justifying columns third line
 Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
 
 Selection.MoveLeft unit:=wdCharacter, Count:=1
 Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
 
 Selection.MoveLeft unit:=wdCharacter, Count:=1
 Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
 
 Selection.MoveLeft unit:=wdCharacter, Count:=2
 Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
 
 Selection.MoveRight unit:=wdCharacter, Count:=4
 Selection.MoveDown unit:=wdLine, Count:=1

'justifying columns fourth line
 Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
 
 Selection.MoveLeft unit:=wdCharacter, Count:=1
 Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
 
 Selection.MoveLeft unit:=wdCharacter, Count:=1
 Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
 
 Selection.MoveLeft unit:=wdCharacter, Count:=2
 Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
 
 Selection.MoveRight unit:=wdCharacter, Count:=4
 Selection.MoveUp unit:=wdLine, Count:=4

'middle column no left and right borders
Selection.MoveDown unit:=wdLine, Count:=1
Selection.MoveLeft unit:=wdCharacter, Count:=2

'remove border at top
Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
    
'remove border one down
    Selection.MoveDown unit:=wdLine, Count:=1
    Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
    
 'remove border one down
    Selection.MoveDown unit:=wdLine, Count:=1
    Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
    
 'remove border one down
    Selection.MoveDown unit:=wdLine, Count:=1
    Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
      
  'add border at bottom
    With Selection.Borders(wdBorderBottom)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    
 'add border at one up from bottom
    Selection.MoveUp unit:=wdLine, Count:=1
    With Selection.Borders(wdBorderBottom)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    
  'add border one up
    Selection.MoveUp unit:=wdLine, Count:=1
    With Selection.Borders(wdBorderBottom)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    
'add border one up
    Selection.MoveUp unit:=wdLine, Count:=1
    With Selection.Borders(wdBorderBottom)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    
'add border one up
    Selection.MoveUp unit:=wdLine, Count:=1
    With Selection.Borders(wdBorderBottom)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    
'add border one up
    With Selection.Borders(wdBorderTop)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
             
'merge two cells
 Dim mrgrng As Range
With Selection.Tables(1)
    
Set mrgrng = .Cell(1, 1).Range
mrgrng.End = .Cell(1, 3).Range.End
mrgrng.Cells.Merge
End With

'type E standard heading and align
Selection.Font.Bold = wdToggle
Selection.Font.Name = "Arial"
Selection.Font.Size = 11
Selection.TypeText Text:="Redox system"
Selection.Font.Bold = wdToggle
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
 
End Sub
Share this:

Like this:

Related

Leave a Reply Cancel reply
