Is it possible to mail merge into a catalog and create conditional formatting (cell color)?
![]() |
There are isolated problems with current patches, but they are well-known and documented on this site. |
SIGN IN | Not a member? | REGISTER | PLUS MEMBERSHIP |
-
conditional format with mail merge (word 2000)
Home » Forums » AskWoody support » Productivity software by function » MS Word and word processing help » conditional format with mail merge (word 2000)
- This topic has 7 replies, 3 voices, and was last updated 22 years, 11 months ago.
Viewing 1 reply threadAuthorReplies-
WSDreamboat
AskWoody Lounger -
WSrsm1935
AskWoody Lounger -
WSDreamboat
AskWoody Lounger -
WSrsm1935
AskWoody LoungerJune 17, 2002 at 2:32 am #595197 -
WSDreamboat
AskWoody LoungerJune 17, 2002 at 2:40 am #595198Indeed, then this would require VBA code. There are ways to “mail merge” without mail merging using code. I cannot write it myself, tho I’ve just recently managed a couple of projects that perform similar tasks. See if you can get someone to write the code for you. Unfortunately (hee hee), I have to pay my programmers.
-
WSHansV
AskWoody Lounger
-
-
-
-
-
WSHansV
AskWoody LoungerJune 18, 2002 at 3:00 pm #595518Here is an example that tests on a single condition. You’ll have to adapt it to work with multiple conditions.
Assumptions: the merged catalog is a Word table.
The test here is that the first cell in a row contains 1.Sub ShadeAlternate()
Dim tbl As Table
Dim intRow As Integer
Dim strText As String
‘ Table object
Set tbl = ActiveDocument.Tables(1)
‘ Loop through rows, skip header row
For intRow = 2 To tbl.Rows.Count
‘ Get text from cell in first column
strText = tbl.Cell(intRow, 1).Range.Text
‘ Get rid of invisible characters at end of cell
strText = Left(strText, Len(strText) – 2)
‘ Test condition
If strText = “1” Then
‘ Set shading
With tbl.Rows(intRow).Shading
.Texture = wdTextureNone
.ForegroundPatternColorIndex = wdAuto
.BackgroundPatternColorIndex = wdYellow
Else
.Texture = wdTextureNone
.ForegroundPatternColorIndex = wdAuto
.BackgroundPatternColorIndex = wdBrightGreen
End With
End If
Next intRow
Set tbl = Nothing
End Sub
Viewing 1 reply thread -

Plus Membership
Donations from Plus members keep this site going. You can identify the people who support AskWoody by the Plus badge on their avatars.
AskWoody Plus members not only get access to all of the contents of this site -- including Susan Bradley's frequently updated Patch Watch listing -- they also receive weekly AskWoody Plus Newsletters (formerly Windows Secrets Newsletter) and AskWoody Plus Alerts, emails when there are important breaking developments.
Get Plus!
Welcome to our unique respite from the madness.
It's easy to post questions about Windows 11, Windows 10, Win8.1, Win7, Surface, Office, or browse through our Forums. Post anonymously or register for greater privileges. Keep it civil, please: Decorous Lounge rules strictly enforced. Questions? Contact Customer Support.
Search Newsletters
Search Forums
View the Forum
Search for Topics
Recent Topics
-
Secure Boot Update Fails after KB5058405 Installed
by
SteveIT
2 hours, 13 minutes ago -
Firefox Red Panda Fun Stuff
by
Lars220
6 hours, 44 minutes ago -
How start headers and page numbers on page 3?
by
Davidhs
10 hours, 16 minutes ago -
Attack on LexisNexis Risk Solutions exposes data on 300k +
by
Nibbled To Death By Ducks
4 hours, 51 minutes ago -
Windows 11 Insider Preview build 26200.5622 released to DEV
by
joep517
18 hours, 57 minutes ago -
Windows 11 Insider Preview build 26120.4230 (24H2) released to BETA
by
joep517
18 hours, 58 minutes ago -
MS Excel 2019 Now Prompts to Back Up With OneDrive
by
lmacri
8 hours, 40 minutes ago -
Firefox 139
by
Charlie
1 hour, 15 minutes ago -
Who knows what?
by
Will Fastie
14 hours, 4 minutes ago -
My top ten underappreciated features in Office
by
Peter Deegan
19 hours, 42 minutes ago -
WAU Manager — It’s your computer, you are in charge!
by
Deanna McElveen
14 hours, 5 minutes ago -
Misbehaving devices
by
Susan Bradley
21 hours, 50 minutes ago -
.NET 8.0 Desktop Runtime (v8.0.16) – Windows x86 Installer
by
WSmeyerbos
2 days, 1 hour ago -
Neowin poll : What do you plan to do on Windows 10 EOS
by
Alex5723
1 hour ago -
May 31, 2025—KB5062170 (OS Builds 22621.5415 and 22631.5415 Out-of-band
by
Alex5723
2 days ago -
Discover the Best AI Tools for Everything
by
Alex5723
23 hours, 25 minutes ago -
Edge Seems To Be Gaining Weight
by
bbearren
1 day, 14 hours ago -
Rufus is available from the MSFT Store
by
PL1
1 day, 22 hours ago -
Microsoft : Ending USB-C® Port Confusion
by
Alex5723
3 days, 1 hour ago -
KB5061768 update for Intel vPro processor
by
drmark
1 day, 1 hour ago -
Outlook 365 classic has exhausted all shared resources
by
drmark
23 hours, 54 minutes ago -
My Simple Word 2010 Macro Is Not Working
by
mbennett555
2 days, 21 hours ago -
Office gets current release
by
Susan Bradley
2 days, 23 hours ago -
FBI: Still Using One of These Old Routers? It’s Vulnerable to Hackers
by
Alex5723
4 days, 13 hours ago -
Windows AI Local Only no NPU required!
by
RetiredGeek
3 days, 22 hours ago -
Stop the OneDrive defaults
by
CWBillow
4 days, 14 hours ago -
Windows 11 Insider Preview build 27868 released to Canary
by
joep517
5 days ago -
X Suspends Encrypted DMs
by
Alex5723
5 days, 2 hours ago -
WSJ : My Robot and Me AI generated movie
by
Alex5723
5 days, 3 hours ago -
Botnet hacks 9,000+ ASUS routers to add persistent SSH backdoor
by
Alex5723
5 days, 3 hours ago
Recent blog posts
Key Links
S | M | T | W | T | F | S |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | 5 | 6 | 7 |
8 | 9 | 10 | 11 | 12 | 13 | 14 |
15 | 16 | 17 | 18 | 19 | 20 | 21 |
22 | 23 | 24 | 25 | 26 | 27 | 28 |
29 | 30 |
Want to Advertise in the free newsletter? How about a gift subscription in honor of a birthday? Send an email to sb@askwoody.com to ask how.
Mastodon profile for DefConPatch
Mastodon profile for AskWoody
Home • About • FAQ • Posts & Privacy • Forums • My Account
Register • Free Newsletter • Plus Membership • Gift Certificates • MS-DEFCON Alerts
Copyright ©2004-2025 by AskWoody Tech LLC. All Rights Reserved.