Quick Remove Hyperlinks From Microsoft Word Documents

On many occasions you might need to extract some articles from web pages, emails and other sources into the Word documents for reference or other purposes. When you copy and paste the articles or paragraphs into the word documents, you will notice that the hyperlinks attached to some words or sentences will be copied and pasted to the word documents as well. These hyperlinks are web links, internal links within the same document or email addresses. Some of these hyperlinks might not be valid or may direct you to irrelevant websites.

If the references to these hyperlinks are not so critical or necessary and you would rather remove them and have plain text, of course you can right click to the hyperlinks and select “Remove Hyperlink” to delete the links one by one. This can be rather time consuming and tedious if your copied texts are substantial in length or have a lot of hyperlinks. If you have encountered this problem, a quick way to remove all hyperlinks within a document is by highlighting the documents and pressing Ctrl-Shift-F9. By pressing these three keys, the hyperlinks will be removed instantly.

Similarly when you type or paste a URL into a word document, you will also notice the URL be automatically converted into a hyperlink. You can right click to delete the hyperlink by clicking on the “Remove Hyperlink” icon or pressing Ctrl-Shift-F9 to clean all the hyperlinks once you have finished the document. Having said that, instead of removing the hyperlinks once you are done, you can actually change the default setting so that when you type a web site or URL, it will not automatically turn this into a hyperlink. To change the setting, you can refer to the following guideline:

In Microsoft Office Word 2007, follow these steps:

• Click the Microsoft Office Button, and then select Word Options.
• Click Proofing, and then click AutoCorrect Options.
• On the AutoFormat as you type tab and on the AutoFormat tab, click to clear the Internet and network paths with hyperlinks check box, and then click OK.
• Click OK to close the Word Options dialog box.

In Microsoft Office Word 2003 and in Microsoft Word 2002, follow these steps:

• On the Tools menu, click AutoCorrect Options.
• On the AutoFormat as you type tab and on the AutoFormat tab, click to clear the Internet and network paths with hyperlinks check box.
• Click OK.

Set Optimum Screen Resolution for PowerPoint Presentation

Users who need to do a lot of presentations have probably faced these embarrassing situations: the projection result is unacceptable or the slideshow is too blurred or the slideshow is extremely slow. This happens when presenters try to connect their laptop to the venue’s projectors and is a result of resolution compatibility issues. For instance, sometimes the PowerPoint slideshow’s resolution setting and the projector’s resolution setting is different. Thus, the incoming slideshow images will automatically be stretched to match the projector’s resolution and the result will be blurred.

In fact many users generally do not know that Microsoft PowerPoint allows users to adjust the slideshow resolution to be aligned with the projector’s resolution. Presenters can adjust their slideshow’s resolution instead of using the default screen resolution for better effect. Users can choose smaller resolutions for higher speed or larger resolutions to show more visual detail. To set the PowerPoint slideshow’s resolution, users just need to go to the Slideshow Tab and look for the “Resolution” item. Users can click and choose their preferred resolution on the dropdown menu as shown in the photo below:

Convert a numeric value to English words

Convert a numeric value to English words:

I have found many location where people who use excel they want to change the numeric value to words. Following code can help you for the same !!!




                                                                                                                                    

Option Explicit
Public Numbers As Variant, Tens As Variant


Sub updateArrayNums()
Numbers = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
Tens = Array("", "", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
End Sub


Function WordToNum(MyNumber As Double) As String
Dim DecimalPosition As Integer, ValNo As Variant, StrNo As String
Dim NumStr As String, n As Integer, Temp1 As String, Temp2 As String


If Abs(MyNumber) > 999999999 Then
WordToNum = "Value too large"
Exit Function
End If


updateArrayNums


NumStr = Right("000000000" & Trim(Str(Int(Abs(MyNumber)))), 9)
ValNo = Array(0, Val(Mid(NumStr, 1, 3)), Val(Mid(NumStr, 4, 3)), Val(Mid(NumStr, 7, 3)))


For n = 3 To 1 Step -1
StrNo = Format(ValNo(n), "000")


If ValNo(n) > 0 Then
Temp1 = GetTens(Val(Right(StrNo, 2)))
If Left(StrNo, 1) <> "0" Then
Temp2 = Numbers(Val(Left(StrNo, 1))) & " hundred"
If Temp1 <> "" Then Temp2 = Temp2 & " and "
Else
Temp2 = ""
End If


If n = 3 Then
If Temp2 = "" And ValNo(1) + ValNo(2) > 0 Then Temp2 = "and "
WordToNum = Trim(Temp2 & Temp1)
End If
If n = 2 Then WordToNum = Trim(Temp2 & Temp1 & " thousand " & WordToNum)
If n = 1 Then WordToNum = Trim(Temp2 & Temp1 & " million " & WordToNum)


End If
Next n


NumStr = Trim(Str(Abs(MyNumber)))


' check after the decimal place
DecimalPosition = InStr(NumStr, ".")
Numbers(0) = "Zero"
If DecimalPosition > 0 And DecimalPosition < Len(NumStr) Then
Temp1 = " point"
For n = DecimalPosition + 1 To Len(NumStr)
Temp1 = Temp1 & " " & Numbers(Val(Mid(NumStr, n, 1)))
Next n
WordToNum = WordToNum & Temp1
End If


If Len(WordToNum) = 0 Or Left(WordToNum, 2) = " p" Then
WordToNum = "Zero" & WordToNum
End If
End Function


Function GetTens(TensNum As Integer) As String
' Converts a num to txt from 0 to 99.
If TensNum <= 19 Then
GetTens = Numbers(TensNum)
Else
Dim MyNo As String
MyNo = Format(TensNum, "00")
GetTens = Tens(Val(Left(MyNo, 1))) & " " & Numbers(Val(Right(MyNo, 1)))
End If
End Function


                                                                                                                                    


enjoy VBA coding...

Protect Excel Cells in a worksheet

This post is regarding the query, that how can user protect some of the cells in a worksheet for editing.

Steps to do this as follow:


Default when you protect your worksheet it lock all the cells for editing, but in case if you want some of the cells can be edited by user then, for that you have to make that cells unlock. But how can we do that?

Answer is,

• On the Format menu, click Cells, and then click the Protection tab.
• Click to clear the Locked check box and click OK.

                               Or

                        Press Ctrl + 1

• On the Tools menu, point to Protection, and then click Protect Sheet. Type a password if you want one, and then click OK.

Done !!!



NOTE: If you lock a cell and protect the worksheet, then you cannot type data into the cell, modify the data currently in the cell, or change other attributes of the cell (such as cell formatting).