Monday, July 25, 2011

Mazda 6–Throttle body ground

Well, this can be one of those mods which don’t add any value, and in fact there is a long debate on forum on how useful it is. But it cost me ~10$ so why not. And besides, I felt immediate improvement in throttle response (but that could be just in my mind). Anyway…

You’ll need:

  • 8mm and 10mm wrenches
  • 4 AWG wire + connectors (I got preassembled wire from NAPA with connectors and stuff for 6.99 + tax)
  • Cable housing, some cable ties

Procedure is dead-simple: take the wire, wrap in cable housing, fasten with some cable ties, connect one side to the body (where your negative battery is connected), and another side to one of the throttle body bolt. You’re done. Pics below:

P1010241P1010242P1010244P1010246P1010247

Friday, July 22, 2011

Mazda 6–How to clean throttle body

Today I’ll tell how to clean throttle body on Mazda 6i 2008. But, as usual, disclaimer:

I’m not responsible for any damage you may cause to your car or, even worse, to yourself using instructions provided bellow. I’m not a professional mechanic and whatnot, so use these instructions at your own risk. Read entire post first and be sure you understand everything before you start it. If you’re in doubt – seek professional help.

NOTE: Chemicals you’ll be using are extremely flammable and poisonous, so use your brain, work in well ventilated area, away from open fire and don’t spray anything on hot engine (you’ll injure yourself and set your engine on fire)! Don’t work on engine when its hot, you’ll have to disconnect the coolant hoses and you can get injured. Don’t spill coolant as it poisonous, especially for animals, your dog will die from kidney failure :(!

Dirty throttle body can cause all sorts of problems: “sticky gas pedal”, poor gas mileage and poor throttle response.

For this job you’ll need:

  • hex screwdriver
  • 8mm & 10mm metric wrenches
  • needle nose pliers
  • Piece of plastic bag and couple of cable ties
  • Empty 1 gal. milk bottle
  • small brush (toothbrush, painting brush, any king of brush you don’t need)
  • Carb and choke cleaner (or throttle body cleaner)
  • Brake cleaner

Let’s get started.

Start by disconnecting the negative terminal off your battery.

P1010215

Loosen two bolts holding intake hose (one on throttle body, and another one next to MAF sensor). You need to remove the hose that goes from intake hose (just squeeze the blue clip and slide it off).

P1010216

P1010217

Once the intake hose is removed, disconnect the throttle body position sensor. Slide the red clip a little bit and disconnect the TPS connector.

P1010221

Disconnect the the upper coolant hose the goes to throttle body. Use needle nose pliers and slide off the clip that holds the hose. Than CAREFULY disconnect the hose. Use a small piece of plastic bag and cable tie to seal the open end of removed hose.

P1010223

P1010224

Now remove 4 bolts that hold throttle body (8mm wrench) – green arrows on picture below.

 P1010225

There is another lower coolant hose that goes from throttle body (red arrow on above image), you can reach that once you detach the throttle body. Do the same what you’ve done for upper hose.

P1010236

This is how surge tank looks like inside (below). Cleanup that mess a little bit. Spray a little of carb cleaner on a rag and wipe it off (you won’t be able to remove everything though). Don’t spray carb cleaner inside surge tank!

P1010226P1010227

And this is how your dirty throttle body may look like:

P1010228P1010229

Now the fun part: get your carb cleaner, brake cleaner, brush and cut off the top of the milk bottle.

P1010231P1010234P1010233

Cover the connector, coolant lines and remove rubber gasket from the throttle body (as carb cleaner dissolve it). Its better to replace the gasket each time you remove the throttle body, but I reused mine.

P1010230

Now, spray good amount of carb cleaner inside the throttle body. Use brush to reach everywhere, clean it thoroughly. When its clean, spray the throttle body with brake cleaner, it will clean remaining carb cleaner.

DISPOSE USED CHEMICALS PROPERLY (or at least don’t dump it on the ground).

Clean TB:

P1010235

Assemble everything in reverse order:

P1010237P1010238P1010240

And you’re done!

Mazda 6–Replacing front fender inner liner

Its hard to call a DIY or a guide, it just some random pics I took replacing mine… The other day I found out that my driver’s side fender liner has a big hole in it. Probably some big debris got caught between the wheel and liner and destroyed it. Not a big deal I’d say, but I really didn’t like it.

So I found a replacement line off eBay for 15$ shipped. And here is the replacement process Smile

First of, disclaimer:

I’m not responsible for any damage you may cause to your car or, even worse, to yourself using instructions provided bellow. I’m not a professional mechanic and whatnot, so use these instructions at your own risk. Read entire post first and be sure you understand everything before you start it. If you’re in doubt – seek professional help.

And pics Smile:

P1010189P1010190P1010191P1010192P1010193P1010195

New inner fender liner:

P1010197

And the old one removed from the car:

P1010199P1010200P1010210P1010211

And.. done Smile

Sunday, July 17, 2011

How to resize all images in Word document?

Here’s a simple VBA macro that will resize all images in a Word document to 16 cm width preserving the aspect ratio.

Code Snippet
  1. Sub AllPictSize()
  2.     Dim targetWidth As Integer
  3.     Dim oShp As Shape
  4.     Dim oILShp As InlineShape
  5.  
  6.     targetWidth = 16
  7.  
  8.     For Each oShp In ActiveDocument.Shapes
  9.         With oShp
  10.             .Height = AspectHt(.Width, .Height, _
  11.             CentimetersToPoints(targetWidth))
  12.             .Width = CentimetersToPoints(targetWidth)
  13.         End With
  14.     Next
  15.  
  16.     For Each oILShp In ActiveDocument.InlineShapes
  17.         With oILShp
  18.             .Height = AspectHt(.Width, .Height, CentimetersToPoints(targetWidth))
  19.             .Width = CentimetersToPoints(targetWidth)
  20.         End With
  21.     Next
  22. End Sub
  23.  
  24. Private Function AspectHt(ByVal origWd As Long, ByVal origHt As Long, ByVal newWd As Long) As Long
  25.     If origWd <> 0 Then
  26.         AspectHt = (CSng(origHt) / CSng(origWd)) * newWd
  27.     Else
  28.         AspectHt = 0
  29.     End If
  30. End Function

Monday, July 11, 2011