Word: Dropped Capital

To create a big letter at the beginning of a paragraph (called a dropped capital), try this:

Click anywhere in the paragraph
Click the Insert tab on the Ribbon
Click the Drop Cap icon in the Text group

HowTo: Conditional Formatting Emails in Outlook

If you gets lots of email, then this tip is for you.

It would be nice to have emails that are color coded for specific categories. For example, emails that are only to you are one color and emails from some group distribution list are another color. Do accomplish this task, one can set up conditional formatting.

First, click on: View -> View Settings -> Conditional Formatting

Second, Add a new rule, which should be easy to figure out.

For all the details and screen shots, refer to this link.

[Source here]

Macro: Remove Spacing Between Table Cells

I received a document that had hundreds of tables, all with a nice 3D border. Then somebody said that the border looked ugly so I started writing a macro to change all the borders to something more plain. Changing the borders was simple, but the cells had space between them which resulted in a double border. Getting rid of this space was not so simple.

Finally, I found this little macro at the Egghead Cafe:

With Dialogs(wdDialogTableTableOptions)
   .AllowSpacing = 0
   .Execute
End With

A second method (that I did not try) is to use this:

Selection.Tables(1).Spacing = -1

The full macro follows:

Sub remove3dBorder()
'
' remove3dBorder Macro
'
'
Dim myT As Table

For Each myT In ActiveDocument.Tables

    myT.Select
    
    'Selection.Rows.HeadingFormat = True
    With Selection.Tables(1)
        With .Borders(wdBorderLeft)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderRight)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderTop)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderBottom)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderHorizontal)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderVertical)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
        .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
        .Borders.Shadow = False
 
        .TopPadding = CentimetersToPoints(0)
        .BottomPadding = CentimetersToPoints(0)
        .LeftPadding = CentimetersToPoints(0)
        .RightPadding = CentimetersToPoints(0)
        With Dialogs(wdDialogTableTableOptions)
            .AllowSpacing = 0
            .Execute
        End With
        
        .AllowPageBreaks = True
        .AllowAutoFit = True
    End With
    
    ' turn on header row
    myT.Cell(1, 1).Select
    Selection.Rows.HeadingFormat = True
    
    Next myT
End Sub

[Source Egghead Cafe and Google Answers]

Word: Random Lorem Ipsum Text

Did you ever need to insert some random text into a document? Here are two magic ways to create random text in Word 2007 & 2010:

Random Text:

Type “=rand(x,y)” in your document and then hit Enter.

Lorem Ipsum:

Type “=lorem(x,y)” in your document and then hit Enter.

x is the number of paragraphs.

y is the number of sentences per paragraph.

[Source GroovyPost or MS Support]

Macro: Repetitive Replacing of Table Cells

Here is today’s time saver:

I had some tables (actually 1000 pages of tables!) where I needed to replace cells containing various text (denoted by comments from the SME) with a standard word (which was Reserved in this case). Normally, I would triple-click in the cell and then control-v to paste in the text (5 clicks/keys), but there were too many places that I needed to make this change.

Using the following macro this task was reduced to two clicks, once in the cell and then once on the button for the macro. There was one other requirement for this macro, which was that if the cell was in bold, it received slightly different text.

Sub makeCellReserved()
Selection.SelectCell

   If Selection.Range.Bold = True Then
       Selection.Text = “RESERVED”
   Else
       Selection.Text = “Reserved”
   End If
End Sub

AIT: Highlighting Variants

This post describes how I use highlighting and release states in Author-It to make reviewing documents easier. This procedure assumes that you have a main book along with another book that uses variants of the objects in the main book. The variants are either variant topics or embedded variant topics.

By using this procedure, the reviewer can review one complete document, and then just review the highlighted sections in the second document.

Setup

1. Open AIT Administrator
2. Select Security -> Release States
3. Add a new state:

a. Right click -> Add State
b. State name: HighlightVar
c. Right click over the new state, select Check Row
d. Click the box near the end of the row for HighlightVar / Review Color
e. Select yellow
f. Check that the boxes are checked for all relevant users

4. Do step 3 again to add the state DoNotHighlightVar, but skip steps d and e.

5. Close AIT Administrator
6. Open AIT
7. In your library, sort the objects by variant
8. Select (using Ctrl+click) all variants of the default object
9. Right mouse click, then select Change Release State -> HighlightVar

The variant of the main document can now be published with highlighted sections.

Print Without Highlighting

1. Go to the search tab
2. Select HighlightVar from In State
3. Click on Find Now
4. The search result shows all of the objects with highlighting
5. Select all of the objects
6. Right click -> Change Release State -> DoNoHighlightVar
7. Publish

Print with Highlighting
1. Go to the search tab
2. Select DoNoHighlightVar from In State
3. Click on Find Now
4. The search result shows all of the objects with highlighting
5. Select all of the objects
6. Right click -> Change Release State -> HighlightVar
7. Publish

Thanks to Miriam Lottner at Tech-Tav for pointing me in the right direction.

Author-It: Pasting Text with Formatting

For those of you using Author-It, there is an unfortunate feature that text that is pasted into a topic (from a Word doc), gets a “No Paragraph Style”. You then have to select the text and apply an AIT style. At the latest Author-It User Group meeting, the way to get around this was revealed.

Follow these steps:

From the main window select: Import -> (Transformation) Profiles
Select Word Documents
Click Properties
Check the box next to Use for Paste

Now, when you want to paste text into AIT, click:
Paste -> Paste Using Import Profile -> Word Documents

That’s it. Happy pasting.

Filename Field Code in Word

Many times I’ll use a field code to insert the filename into the footer of a document. The field code looks like this:

{ FILENAME \*MERGEFORMAT}

The result of the field code looks like this: foobar.doc

The filename has a “.doc” suffix. When I create the PDF, the filename in the footer still has the “.doc” suffix, and not “.pdf”.

What I found is that the field code uses the filename exactly as it appears in the Windows Explorer window. This may sound trivial, but to solve the problem we just need to hide the extension in Windows Explorer.

To change the setting follow these steps:

Open Windows Explorer
Click Tools -> Folder Options
Click on the View tab
Check Hide extensions for known file types

Now, after updating the field code, we get foobar instead of foobar.doc.

[Source Wordribbon.Tips.net]

Painting in Irfanview

You learn something everyday. A co-worker asked me if I knew of a program to add circles and arrows to an image. Immediately, I thought “Irfanview must be able to do that“.

Quickly, I opened an image in Irfanview and searched the menus for “Add circle” or “Add arrow” or something like that. Instead I found the menu for “Show Paint Dialog”. Bingo.

Click “Edit -> Show Paint Dialog”, or type F12 and the MS Paint dialog opens. Now you have the capability of MS Paint from within Irfanview. Add a circle, add an arrow, or whatever you like 🙂

Excel Macro for Background Color

I was writing an Excel Macro and I needed to set the background color of a cell based on the text value. To do this I wanted to use Conditional Formatting, and I found out that you cannot (AFAIK) setup Conditional Formatting from inside of a macro. But, you can create a macro that loops through a range and sets the formatting.

Here is how:

Open the VB editor (Alt + F11)
Open ThisWorkbook under Microsoft Excel Objects
Add the following code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Set myRange = Range(“C4:C104”)

For Each Cell In myRange

If Cell.Value = “n” Then

Cell.Interior.ColorIndex = 3

End If

End Sub

Anytime a change is made to the workbook, the macro is called. It checks a range of cells, and then if the text is ‘n’ it sets the background color to 3. But what is ‘3’?

Excel uses an object called ColorIndex which takes an integer as its argument. The integer is one of 56 colors, given by the following table (a link to the source is below):

[Color 0]	[Color 0]	[Color 15]	[Color 15]	[Color 30]	[Color 30]	[Color 45]	[Color 45]
[Color 1]	[Color 1]	[Color 16]	[Color 16]	[Color 31]	[Color 31]	[Color 46]	[Color 46]
[Color 2]	[Color 2]	[Color 17]	[Color 17]	[Color 32]	[Color 32]	[Color 47]	[Color 47]
[Color 3]	[Color 3]	[Color 18]	[Color 18]	[Color 33]	[Color 33]	[Color 48]	[Color 48]
[Color 4]	[Color 4]	[Color 19]	[Color 19]	[Color 34]	[Color 34]	[Color 49]	[Color 49]
[Color 5]	[Color 5]	[Color 20]	[Color 20]	[Color 35]	[Color 35]	[Color 50]	[Color 50]
[Color 6]	[Color 6]	[Color 21]	[Color 21]	[Color 36]	[Color 36]	[Color 51]	[Color 51]
[Color 7]	[Color 7]	[Color 22]	[Color 22]	[Color 37]	[Color 37]	[Color 52]	[Color 52]
[Color 8]	[Color 8]	[Color 23]	[Color 23]	[Color 38]	[Color 38]	[Color 53]	[Color 53]
[Color 9]	[Color 9]	[Color 24]	[Color 24]	[Color 39]	[Color 39]	[Color 54]	[Color 54]
[Color 10]	[Color 10]	[Color 25]	[Color 25]	[Color 40]	[Color 40]	[Color 55]	[Color 55]
[Color 11]	[Color 11]	[Color 26]	[Color 26]	[Color 41]	[Color 41]	[Color 56]	[Color 56]
[Color 12]	[Color 12]	[Color 27]	[Color 27]	[Color 42]	[Color 42]
[Color 13]	[Color 13]	[Color 28]	[Color 28]	[Color 43]	[Color 43]
[Color 14]	[Color 14]	[Color 29]	[Color 29]	[Color 44]	[Color 44]

A more complex example is shown below. This is used in a ToDo sheet. It checks the “Done” column (C) to see if the cell is marked ‘y’ or ‘n’ and sets the corresponding color. If the task is done (C=’y’) then it also sets the cell adjacent tothe color gray with strikethrough text.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Set myRange = Range(“C4:C104”)

For Each Cell In myRange

If Cell.Value = “n” Then

Cell.Interior.ColorIndex = 3

End If

If Cell.Value = “y” Then

Cell.Interior.ColorIndex = 10

End If

If Cell.Value “n” And Cell.Value “y” Then

Cell.Interior.ColorIndex = xlNone

End If

‘ add strikethrough

Dim myRow As Integer

Dim myCol As Integer

myRow = Cell.Row

myCol = Cell.Column – 1

If Cell.Value = “y” Then

Cells(myRow, myCol).Font.Strikethrough = True

Cells(myRow, myCol).Interior.ColorIndex = 15

End If

If Cell.Value = “n” Then

Cells(myRow, myCol).Font.Strikethrough = False

End If

End Sub

Happy coding 🙂

[Source MVPS site]