free pdf viewer c# : Export text from pdf to word control SDK system web page wpf asp.net console EXCEL%20readings69-part146

The companion CD-ROM contains a workbook that includes all of the func-
tions in this section.
Does a Cell Contain a Formula?
The  following  CELLHASFORMULA  function  accepts  a  single-cell  argument  and
returns TRUE if the cell has a formula.
Function CELLHASFORMULA(cell) As Boolean
‘   Returns TRUE if cell has a formula
CELLHASFORMULA = cell.Range(“A1”).HasFormula
End Function
If a multi-cell range argument is passed to the function, the function works with
the upper-left cell in the range.
Returning a Cell’s Formula
The following CELLFORMULA function returns the formula for a cell as a string. If
the cell does not have a formula, it returns an empty string.
Function CELLFORMULA(cell) As String
‘   Returns the formula in cell, or an
‘   empty string if cell has no formula 
Dim UpperLeft As Range
Set UpperLeft = cell.Range(“A1”)
If UpperLeft.HasFormula Then
CELLFORMULA = UpperLeft.Formula
Else
CELLFORMULA = “”
End If
End Function
This function creates a  Range  object variable  named  UpperLeft.  This  variable
represents the upper-left cell in the argument that is passed to the function.
Is the Cell Hidden?
The following CELLISHIDDEN function accepts a single cell argument and returns
TRUE if the cell is hidden. It is considered a hidden cell if either its row or its col-
umn is hidden.
654
Part VI: Developing Custom Worksheet Functions
Export text from pdf to word - extract text content from PDF file in C#.net, ASP.NET, MVC, Ajax, WinForms, WPF
Feel Free to Extract Text from PDF Page, Page Region or the Whole PDF File
copy text from pdf; copy paste text pdf file
Export text from pdf to word - VB.NET PDF Text Extract Library: extract text content from PDF file in vb.net, ASP.NET, MVC, Ajax, WinForms, WPF
How to Extract Text from PDF with VB.NET Sample Codes in .NET Application
extract all text from pdf; extract pdf text to excel
Function CELLISHIDDEN(cell) As Boolean
‘   Returns TRUE if cell is hidden
Dim UpperLeft As Range
Set UpperLeft = cell.Range(“A1”)
CELLISHIDDEN = UpperLeft.EntireRow.Hidden Or _
UpperLeft.EntireColumn.Hidden
End Function
Returning a Worksheet Name
The  following  SHEETNAME  function  accepts  a  single  argument  (a  range)  and
returns the name of the worksheet that contains the range. It uses the Parent prop-
erty of the Range object.  The Parent property  returns  an object—the object that
contains the Range object.
Function SHEETNAME(rng) As String
‘   Returns the sheet name for rng
SHEETNAME = rng.Parent.Name
End Function
The following function is a variation on this theme. It does not use an argument;
rather, it relies on the fact that a function can determine the cell from which it was
called by using Application.Caller.
Function SHEETNAME2() As String
‘   Returns the sheet name of the cell that
‘   contains the function
SHEETNAME2 = Application.Caller.Parent.Name
End Function
Chapter 25: VBA Custom Function Examples
655
Using the Functions in this Chapter
If you see a function listed in this chapter that you find useful, you can use it in your
own workbook. All of the Function procedures in this chapter are available on the
companion CD-ROM. Just open the appropriate workbook (see Appendix E for a
description of the files), activate the VB Editor, and copy and paste the function listing
to a VBA module in your workbook. If you prefer, you can collect a number of
functions and create an add-in (see Chapter 23 for details).
It’s impossible to anticipate every function that you’ll ever need. However, the
examples in this chapter cover a wide variety of topics, so it’s likely that you can
locate an appropriate function and adapt the code for your own use.
C# WPF PDF Viewer SDK to convert and export PDF document to other
PDF from CSV. Create PDF from RTF. Create PDF from Text. PDF Export. Convert PDF to Word (.docx). Convert PDF to Tiff. Convert PDF to
copying text from pdf into word; copy text from scanned pdf to word
VB.NET PDF - Convert PDF with VB.NET WPF PDF Viewer
PDF from RTF. Create PDF from Text. PDF Export. Convert PDF to Word (.docx). Convert PDF to Tiff. Convert PDF to HTML. Convert PDF to
extract text from pdf online; export text from pdf to word
In this  function, Application.Caller returns a Range  object that  corresponds  to
the cell that contains the function. For example, suppose that you have the follow-
ing formula in cell A1:
=SHEETNAME()
When the SHEETNAME function is executed, Application.Caller returns a Range
object  corresponding to  the cell that  contains  the  function. The  Parent  property
returns the Worksheet object; and the Name property returns the name of the work-
sheet.
Returning a Workbook Name
The next function, WORKBOOKNAME, returns the name of the workbook.  Notice
that it uses the Parent property twice. The first Parent property returns a Worksheet
object; the second Parent property returns a Workbook object, and the Name prop-
erty returns the name of the workbook..
Function WORKBOOKNAME() As String
‘   Returns the workbook name of the cell
‘   that contains the function
WORKBOOKNAME = Application.Caller.Parent.Parent.Name
End Function
656
Part VI: Developing Custom Worksheet Functions
Understanding Object Parents
Objects in Excel are arranged in a hierarchy. At the top of the hierarchy is the
Application object (Excel itself). Excel contains other objects, these objects contain
other objects, and so on. The following hierarchy depicts how a Range object fits into
this scheme.
Application Object (Excel)
Workbook Object
Worksheet Object
Range Object
In the lingo of object-oriented programming, a Range object’s parent is the Worksheet
object that contains it. A Worksheet object’s parent is the workbook that contains the
worksheet. And, a Workbook object’s parent is the Application object. Armed with this
knowledge, you can make use of the Parent property to create a few useful functions.
VB.NET Create PDF from Word Library to convert docx, doc to PDF in
PDF from RTF. Create PDF from Text. PDF Export. Convert PDF to Word (.docx). Convert PDF to Tiff. Convert PDF to HTML. Convert PDF to
extract text from image pdf file; export highlighted text from pdf
VB.NET PDF Convert to Word SDK: Convert PDF to Word library in vb.
NET control to export Word from multiple PDF files in VB. Create editable Word file online without email. Supports transfer from password protected PDF.
extract text from pdf java open source; pdf text replace tool
Returning the Application’s Name
The following function, although not very useful, carries this discussion of object
parents to the next logical level by accessing the Parent property three times. This
function  returns  the  name of  the  Application object,  which is  always  the  string
Microsoft Excel.
Function APPNAME() As String
‘   Returns the application name of the cell
‘   that contains the function
APPNAME = Application.Caller.Parent.Parent.Parent.Name
End Function
Returning Excel’s Version Number
The  following  function  returns  Excel’s  version  number.  For example,  if  you  use
Excel 2002, it returns the text string 10.0.
Function EXCELVERSION() as String
‘   Returns Excel’s version number
EXCELVERSION = Application.Version
End Function
Note that the EXCELVERSION function returns a string, not a value. The follow-
ing function returns TRUE if the application is Excel 97 or later (Excel 97 is version
8). This function uses VBA’s Val function to convert the text string to a value.
Function EXCEL97ORLATER() As Boolean
EXCEL97ORLATER = Val(Application.Version) >= 8
End Function
Returning Cell Formatting Information
This section contains a number of custom functions that return information about
a cell’s formatting. These functions are useful if you need to sort data based on for-
matting (for example, sorting all bold cells together).
The functions in this section use the following statement:
Application.Volatile True 
This statement causes the function to be reevaluated when the workbook is
calculated.You’ll find, however,that these functions don’t always return the
Chapter 25: VBA Custom Function Examples
657
C# PDF Converter Library SDK to convert PDF to other file formats
Support to convert multi-page PDF file to multi-page Tiff file. Able to export PDF document to HTML file. Allow users to convert PDF to Text (TXT) file.
copy text from pdf to word; copy text from pdf with formatting
VB.NET PDF Converter Library SDK to convert PDF to other file
PDF Export. |. Home ›› XDoc.PDF ›› VB.NET PDF: PDF Export. VB.NET sample code. Conversion of PDF to Text. A quick and efficient
extract text from image pdf file; cut text from pdf document
correct value.This is because changing cell formatting,for example,does not
trigger  Excel’s  recalculation  engine. To  force  a  global  recalculation  (and
update all of the custom functions),press Ctrl+Alt+F9.
The following function returns TRUE if its single-cell argument has bold format-
ting.
Function ISBOLD(cell) As Boolean
‘   Returns TRUE if cell is bold
Application.Volatile True
ISBOLD = cell.Range(“A1”).Font.Bold
End Function
The following function returns TRUE if  its single-cell argument has italic for-
matting.
Function ISITALIC(cell) As Boolean
‘   Returns TRUE if cell is italic
Application.Volatile True
ISITALIC = cell.Range(“A1”).Font.Italic
End Function
Both of the preceding functions have a slight flaw: They return an error if the
cell has mixed formatting. For example, it’s possible that only some characters are
bold. The following function returns TRUE only if all the characters in the cell are
bold. It uses VBA’s IsNull function to determine whether the Bold property of the
Font object returns Null. If so, the cell contains mixed bold formatting. 
Function ALLBOLD(cell) As Boolean
‘   Returns TRUE if all characters in cell
‘   are bold
Dim UpperLeft As Range
Set UpperLeft = cell.Range(“A1”)
ALLBOLD = False
If UpperLeft.Font.Bold Then ALLBOLD = True
End Function
The following FILLCOLOR  function  returns an  integer that  corresponds  to the
color index of the cell’s interior (the cell’s fill color). If the cell’s interior is not filled,
the function returns -4142.
Function FILLCOLOR(cell) As Integer
‘   Returns an integer corresponding to
‘   cell’s interior color
658
Part VI: Developing Custom Worksheet Functions
C# HTML5 PDF Viewer SDK to convert and export PDF document to
from OpenOffice. Create PDF from CSV. Create PDF from RTF. Create PDF from Text. PDF Export. Convert PDF to Word (.docx). Convert PDF
c# read text from pdf; extract highlighted text from pdf
C# WPF PDF Viewer SDK to view, annotate, convert and print PDF in
from OpenOffice. Create PDF from CSV. Create PDF from RTF. Create PDF from Text. PDF Export. Convert PDF to Word (.docx). Convert PDF
extract pdf text to word; export text from pdf to excel
Application.Volatile True
FILLCOLOR = cell.Range(“A1”).Interior.ColorIndex
End Function
The following function returns the number format string for a cell.
Function NUMBERFORMAT(cell) As String
‘   Returns a string that represents 
‘   the cell’s number format
Application.Volatile True
NUMBERFORMAT = cell.Range(“A1”).NumberFormat
End Function
If  the  cell  uses  the  default  number  format,  the  function  returns  the  string
General.
Determining a Cell’s Data Type
Excel provides a number of built-in functions that can help determine the type of
data contained in a cell. These include ISTEXT, ISLOGICAL, and ISERROR. In addi-
tion, VBA includes functions such as ISEMPTY, ISDATE, and ISNUMERIC.
The following function  accepts a range  argument and returns a  string (Blank,
Text, Logical, Error, Date, Time, or Value) that describes the data type of the upper
left cell in the range.
Function CELLTYPE(cell)
‘   Returns the cell type of the upper left
‘   cell in a range
Dim UpperLeft As Range
Application.Volatile
Set UpperLeft = cell.Range(“A1”)
Select Case True
Case UpperLeft.NumberFormat = “@”
CELLTYPE = “Text”
Case IsEmpty(UpperLeft)
CELLTYPE = “Blank”
Case WorksheetFunction.IsText(UpperLeft)
CELLTYPE = “Text”
Case WorksheetFunction.IsLogical(UpperLeft)
CELLTYPE = “Logical”
Case WorksheetFunction.IsErr(UpperLeft)
CELLTYPE = “Error”
Case IsDate(UpperLeft)
CELLTYPE = “Date”
Chapter 25: VBA Custom Function Examples
659
VB.NET Create PDF from PowerPoint Library to convert pptx, ppt to
PDF from RTF. Create PDF from Text. PDF Export. Convert PDF to Word (.docx). Convert PDF to Tiff. Convert PDF to HTML. Convert PDF to
copy text from protected pdf to word; find and replace text in pdf file
Case InStr(1, UpperLeft.Text, “:”) <> 0
CELLTYPE = “Time”
Case IsNumeric(UpperLeft)
CELLTYPE = “Value”
End Select
End Function
Figure 25-1 shows the CELLTYPE function in use. Column B contains formulas
that use the CELLTYPE function with an argument from column A. For example,
cell B1 contains the following formula:
=CELLTYPE(A1)
Figure 25-1: The CELLTYPE function returns a string that 
describes the contents of a cell.
A workbook that demonstrates the CELLTYPE function is available on the
companion CD-ROM.
A Multifunctional Function
This section demonstrates a technique that may be helpful in some situations—the
technique of  making a single worksheet function act like multiple functions. The
following VBA function, named STATFUNCTION, takes two arguments— the range
(
rng
) and the operation (
op
). Depending on the value of 
op
, the function returns a
value  computed  by  using  any  of  the  following  worksheet  functions:  AVERAGE,
COUNT, MAX, MEDIAN, MIN, MODE, STDEV, SUM, or VAR. For example, you can
use this function in your worksheet:
660
Part VI: Developing Custom Worksheet Functions
=STATFUNCTION(B1:B24,A24)
The result of the formula depends on the contents of cell A24, which should be
a string, such as Average, Count, Max, and so on. You can adapt this technique for
other types of functions.
Function STATFUNCTION(rng, op)
Select Case UCase(op)
Case “SUM”
STATFUNCTION = Application.Sum(rng)
Case “AVERAGE”
STATFUNCTION = Application.Average(rng)
Case “MEDIAN”
STATFUNCTION = Application.Median(rng)
Case “MODE”
STATFUNCTION = Application.Mode(rng)
Case “COUNT”
STATFUNCTION = Application.Count(rng)
Case “MAX”
STATFUNCTION = Application.Max(rng)
Case “MIN”
STATFUNCTION = Application.Min(rng)
Case “VAR”
STATFUNCTION = Application.Var(rng)
Case “STDEV”
STATFUNCTION = Application.StDev(rng)
Case Else
STATFUNCTION = CVErr(xlErrNA)
End Select
End Function
Figure 25-2 shows the STATFUNCTION function that is used in conjunction with
a drop-down list generated by Excel’s Data Validation command. The formula in
cell C14 is:
=STATFUNCTION(C1:C12,B14)
The workbook shown in Figure 25-2 is available on the companion CD-ROM.
Chapter 25: VBA Custom Function Examples
661
Figure 25-2: Selecting an operation from the list displays 
the result in cell B14.
The following STATFUNCTION2 function is a much simpler approach that works
exactly like the STATFUNCTION function. It uses the Evaluate method to evaluate
an expression.
Function STATFUNCTION2(rng, op)
STATFUNCTION2 = Evaluate(Op & “(“ & _
rng.Address(external:=True) & “)”)
End Function
For example, assume that the rng argument is C1:C12, and the op argument is
the  string  SUM.  The  expression  that  is  used  as  an  argument  for  the  Evaluate
method is:
SUM(C1:C12)
The Evaluate method evaluates its argument and returns the result. In addition
to being much shorter, a benefit of this version of STATFUNCTION is that it’s not
necessary to list all of the possible functions.
Generating Random Numbers
This section presents two functions that deal with random numbers. One generates
random numbers that don’t change. The other selects a cell at random from a range.
662
Part VI: Developing Custom Worksheet Functions
Generating Random Numbers That Don’t Change
You can use Excel’s RAND function to quickly fill a range of cells with random val-
ues. But, as you may have discovered, the RAND function generates a new random
number whenever the worksheet is recalculated. If you prefer to generate random
numbers that don’t change with each recalculation, use the following STATICRAND
Function procedure:
Function STATICRAND()
‘   Returns a random number that doesn’t 
‘   change when recalculated
STATICRAND = Rnd
End Function
The STATICRAND function uses VBA’s Rnd function, which, like Excel’s RAND
function, returns a random number between 0 and 1. When you use STATICRAND,
however, the random numbers don’t change when the sheet is calculated.
Pressing F9 does not generate new values from the STATICRAND function,
but pressing Ctrl+Alt+F9 (Excel’s “global recalc”key combination) does.
If you want to generate a series of random integers between 1 and 1000, you can
use a formula such as
=INT(STATICRAND()*1000)+1
Selecting a Cell at Random
The  following  function,  named  DRAWONE,  randomly  chooses  one  cell  from  an
input range and returns the cell’s contents.
Function DRAWONE(rng)
‘    Chooses one cell at random from a range
DRAWONE = rng(Int((rng.Count) * Rnd + 1))
End Function
If you use this function, you’ll find that it is not recalculated when the worksheet
is calculated. In other words, the function is not a volatile function (for more infor-
mation  about  controlling  recalculation,  see  the  sidebar,  “Controlling  Function
Recalculation,” later in this chapter). You can make the function volatile by adding
the following statement:
Application.Volatile True
Chapter 25: VBA Custom Function Examples
663
Documents you may be interested
Documents you may be interested