|
Visual Basic (VB and VBA) |
|
Copyright 1999-2001 Christopher Greaves. All rights reserved. Home Page and email to [email protected] |
| If in doubt, record a macro and inspect the entrails! |
Please read the DISCLAIMER.
Here is an INDEX to all the procedures.
You will probably need one copy of my GLOBAL DECLARATIONS.
Public Function TableRebuild(rngTbl As Range, Optional intSeparatorType As Integer = wdSeparateByTabs)
' Procedure: TableRebuild
' Description: Rebuild a table from an optional paramater.
' Copyright: Chris Greaves Inc.
' Inputs: Optional VBA constant data type.
' Returns: None.
' Assumes: None.
' Side Effects: Page formatting may change.
' Tested: By the calls shown below.
' Dim intSeparatorType As Integer
' If IsMissing(intSeparator) Then ' We default to Tabs as separator
' intSeparatorType = wdSeparateByTabs
' Else
' If IsNumeric(intSeparator) Then
' intSeparatorType = intSeparator
' Else
' intSeparatorType = wdSeparateByTabs
' End If
' End If
If rngTbl.Information(wdWithInTable) Then ' We have a job to do.
rngTbl.Tables(1).Select
rngTbl.Rows.ConvertToText Separator:=intSeparatorType
rngTbl.ConvertToTable Separator:=intSeparatorType
Else
Call errMustBeInTable
End If
'Sub TESTboolTableRebuild()
' MsgBox boolTableRebuild
' MsgBox boolTableRebuild(wdSeparateByCommas)
' MsgBox boolTableRebuild(wdSeparateByTabs)
'End Sub
End Function
| We all knew nothing when we started … |
|
Home Page and Contact Information Send email to [email protected]. This page was last updated Thursday, November 15, 2001 |