Sometimes you might want to replace all "keyboard quotes" in a document with“smart quotes”. Thelace " with " (i.e. replace a keyboard quote with itself) and then ' with ' (i.e. replace a keyboard apostrophe with itself), making sure you have “smart quotes” turned on (under Tools + AutoCorrect; “AutoFormat As You Type” tab).To  replace “smart quotes” with "keyboard quotes", do the same Find and Replace operations, but with smart quotes turned off.Replacing ^013 with ^p fixes the p don't behave like “proper” paragraph breaks should – they bee breaks. The character code for a paragraph mark is 13 (as can be shown be selecting one and running a macro containing the line:-------------------   MsgBox Asc(Selection.Text)) ~!@#$%^&*()_+|}{":?><,./;'[]\=----------------0987654321`/*-+ cal ib duty ******** end of duty and adcalll henc esjhsdjk dsjkdsjkjkds jksdhksfjks jk add in------------the--######sate sdjksjkjfhhfjkadhsjkfhadsjkdjshdsj

**** end of para garaph ****

I

 N

D

A 

ANDE

 B

         H

              A

          A 

         T 

     IND

e. ur “Find What”  be:(“)(*)(”): e “Find what:” box.Y  to be:\2And in the “Repith:” box, at + Font + Italic, or Format + Highlight, depreference.

Then .Replacement.Highlight = True    .Format = True    .Wrap = wdFindContinue  hWildcards = True    'ChrW(8220) is te character and ChrW(8221) is the close quote   .Text = "(" & ChrW(8220) & ")(*)(" & ChrW(8221) & ")"    .Ret.Text = "\2"    .Execute Replace:=wdReplaceAll

highlighted text

“AutoFormat As You Type” tab under Tools + Autocorrect;(“)(*)(”)

With Selection.Find    'Set parameters    .ClearFormatting=============   .Replaceedfssrgdsment.ClearFormatting    .Ffffdfdsfffsfforward = True    .Wrap = fwdFindContinue    .MatchCase = False    .MatchWholeWord = False   boolean alz .MatchAllWordForms = False   EOS CAN .MatchSoundsLike = False NIPPON CAL

 COK KI ~!@#+__/*- EOD BOLDE AT# 

How to replace text in quotation marks with italic or highlighted text minus the quotesArticle contributed by Klaus Linke and Dave RadoThis is easy, using a wildcard search and replace.To do it manually1.First make sure “Replace straight quotes with Smart quotes” is ticked, on the“AutoFormat As You Type” tab under Tools + Autocorrect; and if you want to use a highlight in the replace, make sure the default highlight colour on the Reviewing toolbar is set to the colour you want.2.Then replace " with " (all quotation marks with themselves), which will replace any straight quotes in the document with smart quotes.3.Now do your wildcard Find and Replace. Your “Find What” text needs to be:(“)(*)(”)Note that the quotes must be smart quotes: you can paste them from the document into the “Find what:” box.Your Replace with text needs to be:\2And in the “Replace with:” box, either select Format + Font + Italic, or Format + Highlight, depending on your preference.  4.Finally, remove any orpaned opening smart quotes “ (as you might have if you'd had a quotation spanning more than one paragraph), by replacing the opening quote character (which, as before, you can cut and paste into the dialog from the document; don't type it) with nothing.  See also: Finding and replacing characters using wildcards  To do it with a macroEither use:Sub ReplaceQuotesWithHighlight()Dim SmartQtSetting As Boolean, DefHighlight As Long'Make sure smartquotes are turned onSmartQtSetting = Options.AutoFormatAsYouTypeReplaceQuotesOptions.AutoFormatAsYouTypeReplaceQuotes = True'Make sure highlight is set to the colour you want, e.g.:DefHighlight = Options.DefaultHighlightColorIndexOptions.DefaultHighlightColorIndex = wdGreenWith Selection.Find    'Set parameters    .ClearFormatting    .Replacement.ClearFormatting    .Forward = True    .Wrap = wdFindContinue    .MatchCase = False    .MatchWholeWord = False    .MatchAllWordForms = False    .MatchSoundsLike = False    'First do a replace to make sure quotes are all smartquotes    .Format = False    .MatchWildcards = False    .Text = """"    .Replacement.Text = """"    .Execute Replace:=wdReplaceAll    'Then do the wilcard replace    .Replacement.Highlight = True    .Format = True    .Wrap = wdFindContinue    .MatchWildcards = True    'ChrW(8220) is the open quote character and ChrW(8221) is the close quote    .Text = "(" & ChrW(8220) & ")(*)(" & ChrW(8221) & ")"    .Replacement.Text = "\2"    .Execute Replace:=wdReplaceAll    'Then remove any orphaned opening quotes    .Format = False    .Wrap = wdFindContinue    .MatchWildcards = False    .Text =ChrW(8220)    .Replacement.Text = ""    .Execute Replace:=wdReplaceAll    'Clear dialog of all non-default settings    .Text = ""    .ExecuteEnd With'Reset options to the way they wereOptions.AutoFormatAsYouTypeReplaceQuotes = SmartQtSettingOptions.DefaultHighlightColorIndex = DefHighlightEnd SubOr use:Sub ReplaceQuotesWithItalic()Dim SmartQtSetting As Boolean'Make sure smartquotes are turned onSmartQtSetting = Options.AutoFormatAsYouTypeReplaceQuotesOptions.AutoFormatAsYouTypeReplaceQuotes = TrueWith Selection.Find    'Set parameters    .ClearFormatting    .Replacement.ClearFormatting    .Forward = True    .Wrap = wdFindContinue    .MatchCase = False    .MatchWholeWord = False    .MatchAllWordForms = False    .MatchSoundsLike = False    'First do a replace to make sure quotes are all smartquotes    .Format = False    .MatchWildcards = False    .Text = """"    .Replacement.Text = """"    .Execute Replace:=wdReplaceAll    'Then do the wilcard replace    .Replacement.Font.Italic = True    .Format = True    .Wrap = wdFindContinue    .MatchWildcards = True    'ChrW(8220) is the open quote character and ChrW(8221) is the close quote    .Text = "(" & ChrW(8220) & ")(*)(" & ChrW(8221) & ")"    .Replacement.Text = "\2"    .Execute Replace:=wdReplaceAll    'Then remove any orphaned opening quotes    .Format = False    .Wrap = wdFindContinue    .MatchWildcards = False    .Text = ChrW(8220)    .Replacement.Text = ""    .Execute Replace:=wdReplaceAll    'Clear dialog of all non-default settings    .Text = ""    .ExecuteEnd With'Reset options to the way they wereOptions.AutoFormatAsYouTypeReplaceQuotes = SmartQtSettingEnd SubThe strait and narrow: using columnsArticle contributed by Suzanne S. Barnhill and Dave RadoWhen you open a new blank document in Word, you begin typing at the left side of the screen/page and continue typing to the right margin, where Word wraps your text back to the left so you can start again. All your lines of text are full width. But sometimes you need to divide your text into two or more columns.Types of columns (tables, snaking columns, or ??)Word gives you several different ways of lining up columns of text. Which one you use depends on what you want the text to do.TabsIf you want to enter text in one column, then text in another column on the same line, then more text in the first column (but on the next line), and so on, and if each of the entries will fit on one line, you may be able to align the columns using tabs. What you're doing here is creating a “tabbed table”:Just be sure you set a specific tab stop for each column location; don't use Word's built-in tabs.TablesIf you want to be able to enter some text in one column, then text in another column aligned with it, then text in the first column again, then the second (and possibly a third, fourth, or more), and if the text in each column must be able to wrap to the next line, then what you want is a table. A table allows you to align text vertically as well as horizontally. Whenever you need to “synch” the columns, you begin a new row.Table columns are especially good for things like opera scores, where you need the text in the original score and the translation to line up with each other vertically.Text box columnsIt is possible to get text to flow from one Text Box to another. To do this, click on the first Text Box, then click on the Link button on the Text Box toolbar that will now be visible, and click on the second textbox.The idea of Text Box columns is that, unlike snaking columns (which are covered in detail below), they can be used to cater for articles which start on page 1 of a publication and continue in the middle of page 14. An example is to be found in the (appallingly formatted!) Newsletter Wizard that is supplied with some versions of Microsoft Office (Word 2007 has no wizards, but there are plenty of equally appalling templates in theTemplate Gallery at Microsoft Office Online).However, Text Box columns don't work well and are best avoided. If you need the ability to flow text between non-consecutive pages, you will save yourself a lot of heartache by using a DTP package such as MS Publisher or Adobe PageMaker. For most purposes, however, snaking columns work admirably.Snaking columnsIf you want the text to fill the first column and then snake into the next and fill it, continuing from Column A to Column B, then Column A on the next page, then you want newspaper-style columns, the subject of this article. (Note that this type of columns is not appropriate for text to be aligned vertically across the page; for that you need to use a table).What you will seeIf you are working in Page Layout (Print Layout) view and have text boundaries displayed, you will see that the text area has been divided into four rectangles (you will have to set Zoom to Page Width to see all four at once).Note: If you don't have text boundaries displayed, you can select this option as follows: In Word 2003 and earlier, check the box for “Text boundaries” on the View tab of Tools | Options. In Word 2007, this option is at Office Button | Word Options | Advanced | Show document content: “Show text boundaries.”You will also see a change in the horizontal ruler.

Summary

Avoid text box columns. Use snaking columns when you need text to flow from one column to another, and table or tab columns when you don't. Table col translation to line up with each other vertically.Where you want the footnote reference mark, insert a cross-reference to the number of the footnote you just inserted. In Word 2003 and earlier, do this with Insert | Reference | Cross-reference | Reference type: Footnote; Insert reference to: Footnote number (formatted). In Word 2007, the Cross-reference dialog is accessed via References | Captions | Cross-reference or Insert | Links | Cross-reference.3.    Select the actual footnote reference mark (in the single-column text) and format it as Hidden (Ctrl+Shift+H).

This is very good in the  ~!@#$%^&*()_+}{":><?/*-+ 

**************** END^OF*CAMPAIGN****** ###################