*( " "BRACKETSF FOR FINANCING ZMSEXCEL_MACRO 0MSWORD_MACRO ZMSWORD_MACRO 0MSEXCEL_MACRO FOR FINANCING BRACKETSF 0Z) DDEPoke( CN!, "C1Be", 121|5 ) DDEPoke( CN!, "C2Be", 121|9 ) DDEPoke( CN!, "C3Be", 121|13 ) DDEPoke( CN!, "SBa", 121|3 ) DDEPoke( CN!, "C1Ba", 121|6 ) DDEPoke( CN!, "C2Ba", 121|10 ) DDEPoke( CN!, "C3Ba", 121|14 ) DDEPoke( CN!, "C1AP", 135|2 ) DDEPoke( CN!, "C2AP", 135|4 ) DDEPoke( CN!, "C3AP", 135|6 ) DDEPoke( CN!, "SApNm", 163|2 ) DDETerminate( CN! ) else MSGBox "This sample macro is for use with the URAR form only." end if  ) DDEPoke( CN!, "Addrss", 4|1 ) DDEPoke( CN!, "SAd", 101|1 ) DDEPoke( CN!, "C1Ad", 101|2 ) DDEPoke( CN!, "C2Ad", 101|3 ) DDEPoke( CN!, "C3Ad", 101|4 ) DDEPoke( CN!, "SSP", 104|1 ) DDEPoke( CN!, "C1SP", 104|2 ) DDEPoke( CN!, "C2SP", 104|3 ) DDEPoke( CN!, "C3SP", 104|4 ) DDEPoke( CN!, "SPG", 105|1 ) DDEPoke( CN!, "C1PG", 105|2 ) DDEPoke( CN!, "C2PG", 105|3 ) DDEPoke( CN!, "C3PG", 105|4 ) DDEPoke( CN!, "SBe", 121|2   DDEPoke( CN!, "FNm", cell("offscrn", "LenderContFirst") ) DDEPoke( CN!, "LNm", cell("offscrn", "LenderContLast") ) DDEPoke( CN!, "Mr2", cell("offscrn", "LenderContTitle") ) DDEPoke( CN!, "FNm2", cell("offscrn", "LenderContFirst") ) DDEPoke( CN!, "LNm2", cell("offscrn", "LenderContLast") ) DDEPoke( CN!, "LAd1", cell("offscrn", "LenderAdd1") ) DDEPoke( CN!, "LAd2", cell("offscrn", "LenderAdd2") ) DDEPoke( CN!, "LAd3", cell("offscrn", "LenderAdd3")  worddir$ = worddir$ + " " + ourdoc$ end if ; DDE Information to Word Document if report$ = "ua2" then shell( worddir$ ) CN! = DDEInitiate( "winword", ourdoc$ ) DDEPoke( CN!, "Bank", 11|1 ) DDEPoke( CN!, "Mr", cell("offscrn", "LenderContTitle") )KE( ChanNumber!, "R11C5", "ua2"|160|1 ) DDEPoke( ChanNumber!, "R11C8", cell("offscrn", "LenderFee")) DDETerminate( CN! ) else MSGBox "This sample macro is for use with the URAR form only." end if " docpos%-1 ) worddir$ = worddir$ + " " + ourdoc$ end if ; DDE Information to Word Document if report$ = "ua2" then shell( worddir$ ) ChanNumber! = DDEInitiate("excel", ourdoc$ ) DDEPoke( ChanNumber!, "R11C1", "ua2"|7|1 ) DDEPO; MS Word Macro worddir$ = GetPPS$( "Extensions", "DOC", "N/A" , "WIN.INI" ) docpos% = instr%( 1, worddir$, "^" ) ourdoc$ = constant$("TRAApp") + "\\testdde.doc" if docpos% > 0 then worddir$ = left$( worddir$, docpos%-1 )  ; MS Excel Macro worddir$ = GetPPS$( "Extensions", "XLS", "N/A" , "WIN.INI" ) docpos% = instr%( 1, worddir$, "^" ) ourdoc$ = constant$("TRAApp") + "\\xlddetst.xls" if docpos% > 0 then worddir$ = left$( worddir$, The sales comparables utilized bracket the subject by age and square footage with improvements of similar quality of construction and functional utility. r mortgage financing transactions only. It s not intended for any other use.  This summary appraisal report in intended for use by the lender/client foY