display pdf byte array in browser c# : Permanently rotate pdf pages control SDK platform web page wpf winforms web browser 1200%20macro_examples18-part134

181
The following code converts all text in the range A1 to A100 to proper case.  It checks to make
certain that the cell does not contain a formula.
Dim TheCell As Range
For Each TheCell In Range("A1:A100")
'Make certain the cell does not have a formula and is not empty
If TheCell.HasFormula = False And Not IsEmpty(TheCell) Then
TheCell.Value = Application.Proper(TheCell.Value)
End If
Next TheCell
10.10 Creating A Fixed Length String
If you need to create strings of a certain length and all of the same character, then use a statement
like the following:
tenAstericks = String(10, "*")
or
ThreeQuotes = String(3, 34)
In the second example, the number indicates the ASCII character to use.
10.11 Determining If A Number Is Odd Or Even
Something like this will determine if a number is odd or even:
If MyVariable mod 2 =  0 Then
MsgBox "Even"
Else
MsgBox "Odd"
End If
10.12 Determining If A Value Is Text Or Numeric
VBA has the functionIsNumeric(value)  which returns true if the argument is a number or can
be converted to a number
You can always use the worksheet functions, which are more exact:
Application.IsNumber(Value) which only returns True if it is actually a number
Application.IsText(Value) returns True if the argument is text.
Permanently rotate pdf pages - rotate PDF page permanently in C#.net, ASP.NET, MVC, Ajax, WinForms, WPF
Empower Users to Change the Rotation Angle of PDF File Page Using C#
rotate all pages in pdf preview; rotate individual pdf pages reader
Permanently rotate pdf pages - VB.NET PDF Page Rotate Library: rotate PDF page permanently in vb.net, ASP.NET, MVC, Ajax, WinForms, WPF
PDF Document Page Rotation in Visual Basic .NET Class Application
how to permanently rotate pdf pages; how to reverse pages in pdf
182
10.13 Entering Special Characters With The Chr
Function
TheChr() function allows you to enter special characters in message boxes that you may display
or when you write entries to a cell.  The following examples illustrate its use:
'message box with double quotes around a word in the message:
MsgBox "This is not in quotes and " & _
Chr(34) & "This is in quotes" & Chr(34)
'To have text in a message box appear on a different line, use Chr(13)
MsgBox "The file name is " & Chr(13) & ActiveWorkbook.Name
'This does the same as the above, but adds a blank line and
'does a tab indent:
MsgBox "The file name is " & _
Chr(13) & Chr(13) & Chr(9) & ActiveWorkbook.Name
'The following uses Chr() to the equivalent of alt
-
enter if you were to type
the following into a cell:
ActiveCell.Value = "January 1998" & Chr(10) & "Sales Forecast"
'The following writes out the characters generated by theChr() Function.  Characters 1
-
32,
which are not generated are not printable characters.
Sub Show_All_Characters()
Dim I As Integer
'write out column labels
Worksheets(1).Cells(1, 1).Value = "Chr #"
Worksheets(1).Cells(1, 2).Value = "Symbol"
'fill in the character set
For I = 33 To 255
Worksheets(1).Cells(I 
-
30, 1).Value = I
Worksheets(1).Cells(
-
30, 2).Value = Chr(I)
Next
'center the column entries
VB.NET PDF Page Redact Library: redact whole PDF pages in vb.net
extract, copy, paste, C#.NET rotate PDF pages, C#.NET If you need to permanently removing visible text and our redact function API and redact entire PDF pages.
pdf rotate single page reader; reverse page order pdf online
C# PDF Page Redact Library: redact whole PDF pages in C#.net, ASP.
Page: Rotate a PDF Page. PDF Read. Text: Extract Redaction is the process of permanently removing visible our redact function API to redact entire PDF pages.
pdf reverse page order online; rotate individual pages in pdf
183
Worksheets(1).Columns("a:b").HorizontalAlignment = xlCenter
End Sub
10.14 Extracting Beginning Numbers From Text Strings
If you have text entries like 12A34, 789B2 and so forth, the following function will extract just
the beginning numbers:
Public Function ValString(ByVal anyS As String) As Double
anyS = UCase(anyS)
If InStr(anyS, "D") > 0 Then
anyS = Application.Substitute(anyS, "D", "Z")
ElseIf InStr(anyS, "E") > 0 Then
anyS = Application.Substitute(anyS, "E", "Z")
End If
ValString = Val(anyS)
End Function
10.15 Extracting Numbers From The Left Of A String
You can use eitherVal() orCDbl() orCInt() to convert a string like "50 people" to the number
50.
AStr = "50 People"
num = Val(aStr)
'or
num = CDbl(aStr)
CDbl(string) assumes that the string is in a format consistent with the Windows regional settings,
whileVal(string) assumes the string is in US format (i.e. with a period as the decimal separator).
When a possibility exists that different decimal separators may be used (for example, in
international applications), you should useCDbl instead to convert a string to a number.  The
IsNumeric VBA function also uses the Windows settings (but doesn't like % signs).
If the string begins with a $ sign, then you must first remove the dollar sign.  Otherwise theVal
function will return a 0 value:
Function NumOnly(alphaNum As String)
If Left(alphaNum, 1) = "$" Then
'if a $ sign at the start, evaluate string to the right of it
NumOnly = Val(Mid(alphaNum, 2))
Else
'if no $ sign, evaluate the whole string
VB.NET Image: How to Process & Edit Image Using VB.NET Image
VB.NET Image Rotator Add-on to Rotate Image, VB.NET Watermark Maker to VB.NET image editor control SDK, will the original image file be changed permanently?
pdf rotate just one page; pdf rotate single page
C# HTML5 Viewer: Load, View, Convert, Annotate and Edit Excel
to change view orientation by clicking rotate button. users can convert Excel to PDF document, export Users can save Excel annotations permanently by clicking
pdf reverse page order; rotate pdf page few degrees
184
NumOnly = Val(alphaNum)
End If
End Function
10.16 Extracting Numbers From The Right Side Of A
String
The following function will extract the number value out of a string such as ABC
-
12.  It returns
the integer value of the number.
Function GetNumber(sStr As String) As Integer
Dim NumPart As String
'extract the portion of the string to the right of the dash
the InStr() function returns the number of characters into the string where
the "
-
" or whatever string you want to find is located
NumPart = Right(sStr, Len(sStr) 
-
InStr(sStr, "
-
"))
'convert the extracted string to a number
GetNumber = CInt(NumPart)
End Function
The following illustrates the above function:
MsgBox GetNumber("ABC
-
12")
10.17 Extracting Part Of A String
The functions,Left,Right, andMid allow you to extract part of a cell's entry.  If cell A1
contains "ABC567DEF, then
Right(Range("A1").Value, 3)
returns "ABC"
Mid(Range("A1").Value, 3)
returns C567DEF
Mid(Range("A1").Value, 4, 2)
returns just "56", a text string.  To convert it to a number useVal(any string).
Right(Range("A1").Value, 2)
returns "EF"
VB.NET Image: How to Create a Customized VB.NET Web Viewer by
used document & image files (PDF, Word, TIFF btnRotate270: rotate image or document page in burnAnnotationToImages: permanently burn drawn annotation on page in
rotate pdf pages individually; save pdf after rotating pages
How to C#: Cleanup Images
By setting the BinarizeThreshold property whose value range is 0 to 255, it will permanently modify the image to 1bpp grayscale image of the Detect Blank Pages.
rotate one page in pdf; how to reverse page order in pdf
185
TheMid() function allows you to extract part of a string.  Its arguments are
Mid(stringstart positionNumbers of Characters)
The number of characters to extract are optional
For example,Mid("ABCD", 2, 2) returns "BC".Mid("ABCD", 2) returns "BCD".
You can useInStr in conjunction withMid to find the location of a string within a string and
then extract just the needed text.  For example:
Dim N As Integer
Dim lastName As String
Dim sName As String
sName = "John Smith"
N = InStr("John Smith", " ")
lastName = Mid(sName, N, )
Please note that theInStr function is case sensitive unless you have putOptionCompareText
at the top of your module.  For examples on makingInStr case in
-
sensitive, please see the topic
"Case Insensitive Comparisons"
The following illustrates the use of the above functions:
Dim aStr As String
aStr = "ABCDE"
'extract just AB
MsgBox Left(aStr, 2)
'extract just DE
MsgBox Right(aStr, 2)
'extract just CD (the string starting at position 3 that is 2 characters long)
MsgBox Mid(Astr, 3, 2)
'extract all characters to the right, starting at character 2
MsgBox Mid(aStr, 2)
For more examples, highlight the wordMid,Left, orRight and press F1 while in a module.
10.18 Extracting Strings Separated By A /
This is a solution for a user who had a column of cells whose entries looked like the following:
How to C#: Color and Lightness Effects
Geometry: Rotate. Image Bit Depth. Color and Contrast. Cleanup Images. Effect VB.NET How-to, VB.NET PDF, VB.NET Word range is 0 to 255, it will permanently modify
pdf rotate page and save; rotate pdf page and save
186
asdf/qwer/zxcv/1234456567
The user wanted to extract each string or number and write it to the cells to the left of the entry,
splitting the up the value based on the "/"s and putting each value in a separate cell.
This is the routine that initiates the process.  Select a range of cells and run it.  Blank cells are
ignored.
Sub ProcessCells()
Dim cell As Range
For Each cell In Selection
'call the routine that processes a cell if the entry is not blank
If Not IsEmpty(cell) Then _
ExtractValue cell
Next
End Sub
'this routine is called by the above routine for non
-
blank cells
Sub ExtractValue(anyCell As Range)
Dim s As String
Dim N As Integer, I As Integer
'set a variable equal to the value in the cell
s = anyCell.Value
'find the first occurrence of a / in the string
N = InStr(s, "/")
'if a / is found, process the string and loop until no more /'s
While N > 0
'index the counter used to specify the offset for the output
I = I + 1
'write the left portion excluding the / to the offset cell
anyCell.Offset(0, I).Value = Left(s, N 
-
1)
'remove the left portion and the / from the variable "s"
s = Mid(s, N + 1)
'search for the next occurrence of a /
187
N = InStr(s, "/")
Wend
'index I for the next offset cell
I = I + 1
'write the remaining string to this cell
anyCell.Offset(0, I).Value = s
End Sub
10.19 Finding The Number Of Occurrences Of A String
In A Range
If you need to find the number of occurrences of a string in a range, there are several different
approaches you can use.  If the string is the only entry in the cells, then the following would
work, if you wanted the count of occurrences of ABC filled cells in range A1:A10
Dim N As Long
N =Application.CountIf(Range(A1:A10)), "ABC")
If the string can be embedded in a string, for example, "Part ABC", then you must either check
each cell, or repeated useFind in a loop.  The following illustrates using aFind loop:
Sub findABCs()
Dim R As Range, startCell As Range
Dim firstAddress As String
Dim foundCell As Range
Dim I As Long
'set the range to search
Set R = Range("A1:A10")
'set the cell to be used in the After argument
Set startCell = R.Cells(1)
Do
'do the search and set a range variable to the result.
'Search is by part instead of whole cell entry.
Set foundCell = R.Find(What:="ABC", _
After:=startCell, _
LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
188
'exit if no matching string found
If foundCell Is Nothing Then Exit Do
If I = 0 Then
'the first time a match is found, store that cells address
firstAddress = foundCell.Address
Else
'on future matches check the address, and exit if it is a repeat
'of the first found cell, which indicates that the Find procedure
'has looped back to the first cell.
If foundCell.Address = firstAddress Then Exit Do
End If
'increase the count of found cells by one
I = I + 1
'set the startCell to the foundCell so that the next search starts
'after this cell, and does not continue to find the same cell
Set startCell = foundCell
Loop
'display a message with the results
MsgBox I & " found"
End Sub
Another way to check for the occurrence of a string within a string throughout a range is to check
cell by cell.  This is less efficient than the above approach but simpler to write.  The following
illustrates this approach.
Sub findABCsApproach2()
Dim R As Range, cell As Range
Dim I As Long
'set the range to search
Set R = Range("A1:A10")
For Each cell In R
'check each cell's value and see if ABC is in it.  Convert the
'cell's value to upper case so that the comparison is upper case
'to upper case
If InStr(UCase(cell.Value), "ABC") > 0 Then
189
'increment the count by one when ABC is found.
I = I + 1
End If
Next
'display a message with the results
MsgBox I & " found"
End Sub
If you need to check entire rows or columns for a string, then you should restrict the range to be
searched to the sheet's used range.  This will make both approaches above run faster.  The
following illustrates how you would do this:
'set R initially to the overall range
Set R = Rows("1:3)
'redefine R to its intersection with the used range
Set R = Intersect(R, ActiveSheet.UsedRange)
10.20 How To Get The Number Of Characters In A
Selection
The following code will return the number of characters, including blanks in a selection of cells:
Sub CharacterCount()
Dim cell As Range
Dim I As Integer
For Each cell In Selection
I = I + Len(cell.Value)
Next
MsgBox "there are " & I & _
" characters and spaces in the selection"
End Sub
10.21 How To Test If A Cell Or Variable Contains A
Particular Text String
To test if a cell or a string variable contains a particular text string, use theInStr function.  It
returns the starting position in a string of a string.  If the string is not found a zero value is
returned.
You can do a case insensitivity test by setting the 1st and last arguments of InStr to 1.  The 1st
argument is the starting position of the search and the last argument is a 1 for case insensitive
testing and a 0 for case sensitive comparisons.  If one is supplied, then the other is required.
190
If InStr(1, Range("A1").Value, "ABC", 1) > 0 Then
'actions to take if ABC is in cell A1's string
End If
Example:
Dim myString As String
myString = Ucase(Range("A1").Value)
If InStr( myString, "ABC") > 0 Then
'actions to take if ABC is in cell A1's string
End If
Another way to do case insensitive tests usingInStr is to put
Option CompareText
at the top of your module.  This makes all text comparisons case insensitive unless over ridden.
To overrideOptionCompareText, set the last argument of InStr to 0:
If InStr(1, Range("A1").Value, "ABC", 0) > 0 Then
'actions to take if ABC is in cell A1's string
'and ABC in the string is capitalized
End If
10.22 Numbers To Words
If you want to convert numbers to words, take a look at the following Microsoft Excel
knowledge base articles:  Q140704 and Q95640
10.23 Finding A Font
The following code will check to see if a given font is present on a machine:
Dim I As Long
WithApplication.CommandBars.FindControl(Id:=1728)
For I = 1 To .ListCount
If .List(I) = "Arial" Then
MsgBox "Arial font found!"
Exit For
End If
Documents you may be interested
Documents you may be interested