Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Replace Macro
Sorry guys but I figured it out
Sub Update6e100bb() With ActiveDocument If .FormFields("PtNo6E100BB").Result = "6E100BB191" Then .FormFields("Descp6E100BB").Result = "Mount, 6E100 BACK TO BACK W/1.91 SLEEVE" ElseIf .FormFields("PtNo6E100BB").Result = "6E100BB406" Then .FormFields("Descp6E100BB").Result = "Mount, 6E100 BACK TO BACK W/4.06 SLEEVE" ElseIf .FormFields("PtNo6E100BB").Result = "6E100BB475" Then .FormFields("Descp6E100BB").Result = "Mount, 6E100 BACK TO BACK W/4.75 SLEEVE" End If If .FormFields("PtNo6E100BB").Result = "6E100BB191" Then .FormFields("PPK").Result = "6 or with nut 7" ElseIf .FormFields("PtNo6E100BB").Result = "6E100BB406" Then .FormFields("PPK").Result = "5 or with nut 6" ElseIf .FormFields("PtNo6E100BB").Result = "6E100BB475" Then .FormFields("PPK").Result = "5 or with nut 6" End If End With End Sub |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro using Replace does not replace | New Users | |||
Word 200 Macro using replace | Microsoft Word Help | |||
macro or find/replace | Microsoft Word Help | |||
Find and Replace Macro | Microsoft Word Help | |||
Set up find/replace in a macro | Microsoft Word Help |