|
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 boolTableRebuild(Optional intSeparatorType As Integer = wdSeparateByTabs)
' Procedure : boolTableRebuild
' Description: Rebuild a table from an optional paramater.
' Copyright: Chris Greaves Inc.
' Inputs: Optional VBA constant data type.
' Returns: TRUE if selection was in table (and the function could operate).
' 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
' intSeparatorType = intSeparator
' End If
If Selection.Information(wdWithInTable) Then ' We have a job to do.
boolTableRebuild = True
Selection.Tables(1).Select
Selection.Rows.ConvertToText Separator:=intSeparatorType
Selection.ConvertToTable Separator:=intSeparatorType
Else
boolTableRebuild = False ' No table selected returns FALSE/Failure.
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 |