ŰĽ-!@  -€SŔ2„ M (Ú(ÚÚ(Ú(Ú(Ú(Ú(č( ))))<2L2))19)I)I)I)I)I)I)I)I)])y)+¤)¤)¤)¤)¤)4Ř)-¤)Ú(¤)¤)DialIt This document template contains the DialIt macro from PC Magazine that allows you to dial the telephone from Word For Windows. macrobutton install  Double-Click the button to copy DialIt to your NORMAL.DOT Refer to the article for information on adding a ToolBar button for DialIt. Text Listing of DialIt macro: Declare Function OpenComm Lib "user"(lpszDevControl$, \ cbInQueue As Integer, cbOutQueue As Integer) As Integer Declare Function WriteComm Lib "user"(idComDev As Integer, \ lpvBuf$, cbWrite As Integer) As Integer Declare Sub CloseComm Lib "user"(idComDev As Integer) Sub MAIN CRLF$ = Chr$(13) + Chr$(10) : PORT$ = "COM1" : DIAL$ = "ATDT" Num$ = SelectNum$ If InStr(Num$, Chr$(13)) Then Num$ = Left$(Num$, InStr(Num$, Chr$(13)) - 1) On Error Goto done : Num$ = InputBox$("Number to Dial", "Dial", Num$) idComDev = OpenComm(Port$, 128, 128) REM check for error opening comm port If idComDev < 0 Then If idComDev = - 2 Then MsgBox Port$ + " is currently in use.", "Error" Else MsgBox "Error Opening " + Port$, "Error = " + Str$(idComDev) End If Goto done End If REM dial the number result = WriteComm(idComDev, Dial$ + Num$ + CRLF$, Len(Dial$ + Num$ + CRLF$)) MsgBox "Calling " + Num$ + Chr$(13) + "Pick up the phone.", "DialIt" REM Send CRLF to modem to HangUp modem result = WriteComm(idComDev, CRLF$ + CRLF$, Len(CRLF$ + CRLF$)) CloseComm(idComDev) Done: End Sub Function SelectNum$ REM Selection$() returns a string of the current Selection REM if the Length of the selection is < 3 then we try to select a # If Len(Selection$()) < 3 Then REM SelInfo(12) returns -1 if we are in a table If SelInfo(12) = - 1 Then 'In a Table REM Selecting to the end of the line includes the table marker, which REM doesn't give us the number, so go to end of line and select backwards EndOfLine : StartOfLine 1 : Num$ = Selection$() Else REM Select to the next paragraph mark ExtendSelection Chr$(13) : CharLeft 1, 1 : ParaSel$ = Selection$() : Cancel If Len(Selection$()) > 2 Then CharLeft 'Put Insertion Point back REM Select to the next space ExtendSelection " " If Len(Selection$()) > 2 Then CharLeft 1, 1 SpaceSel$ = Selection$() Cancel If Len(Selection$()) > 2 Then CharLeft 'Put Insertion Point back REM If Selection to a Para mark is shorter than selection to a space, REM use Selection to a Para mark else use Selection to a Space If Len(ParaSel$) < Len(SpaceSel$) And Len(ParaSel$) <> 2 Then Num$ = ParaSel$ ElseIf Len(SpaceSel$) = 1 Then Num$ = ParaSel$ Else Num$ = SpaceSel$ End If End If Else REM Original Selection was not less than 3 character in len, so use whatever is selected Num$ = Selection$() End If REM UCase of a Number is a number, so if UCase of selection <> selection then not a number If UCase$(Num$) <> Num$ Then Num$ = "" SelectNum$ = Num$ End Function ,AOpenCommPuserlpszDevControl$ 09  cbInQueue4C  cbOutQueue4C4C*vA WriteCommPuseridComDev4C #´ lpvBuf$cbWrite4C4C)ŕA CloseCommPuseridComDev4CMAINA#CRLF$ j j PORT$ COM1DIAL$ ATDTbNum$  SelectNum$Ru/Num$j Num$ lNum$/Num$j =Â,-*doneNum$ ƒNumber to DialDialNum$+ idComDev OpenCommPort$€€$/" check for error opening comm portVidComDevl idComDev 0…  Port$ is currently in use.Error¸  ?ż  Error Opening Port$Error = kidComDev˙   *done dial the number^1result  WriteCommidComDevDial$Num$CRLF$Dial$Num$CRLF$A€ Calling Num$j Pick up the phone.DialIt&Ć$ Send CRLF to modem to HangUp modemNďresult  WriteCommidComDevCRLF$CRLF$CRLF$CRLF$0 CloseCommidComDevEDoneLUW  SelectNum$9m7 Selection$() returns a string of the current SelectionBŠ@ if the Length of the selection is < 3 then we try to select a #îr1  , SelInfo(12) returns -1 if we are in a table)? "    In a TableHi B Selecting to the end of the line includes the table marker, whichL˛ F doesn't give us the number, so go to end of line and select backwards ˙ >=Num$ r2  (9 " Select to the next paragraph mark8b Ăj 9ParaSel$ rđ>ą r9 Put Insertion Point backř  Select to the next space  Ă &/ r9^  SpaceSel$ rz đ<„ r9 Put Insertion Point backHÉ B If Selection to a Para mark is shorter than selection to a space,A ; use Selection to a Para mark else use Selection to a SpaceET ParaSel$ SpaceSel$ParaSel$ • Num$ ParaSel$Š  SpaceSel$ Ë Num$ ParaSel$ß  ç Num$  SpaceSel$ü     Z  U Original Selection was not less than 3 character in len, so use whatever is selectedp  Num$ r† YŽ W UCase of a Number is a number, so if UCase of selection <> selection then not a number#ę €Num$ Num$Num$   SelectNum$ Num$%  MAIN /dlg4O&>dlgD8mdlgh \Dir$ dlgh Dir$ dlgh\%•MName$ Dir$dlgg:DialItżMName$ Global:DialItâ Macro copied to NORMAL.DOT ˆĆ:Ç{ahčč Ƣ   ˙˙˙˘C ̏(Ŕ€€€€€€€€€€€€ŔŔŔ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ý˙đwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp˙˙đ÷wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp˙˙đ˙ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ‡p˙˙đ˙ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ‡p÷˙đ˙ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ€ˆ€€ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ‡p˙˙đ˙ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ‡p˙˙đ˙ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ‡pý˙đ˙ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ€ˆˆ€ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ‡p˙˙đ˙ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ‡p˙˙đ˙ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ‡p˙˙đ˙ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ€€€ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ‡p÷˙đ˙ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ‡p˙˙đ˙ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ‡p˙˙đ˙ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ‡p˙˙đ˙ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ‡p˙˙đ˙ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ‡p˙˙đ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙÷p˙˙đ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙pđ˙˙đ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ú˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ţ€†   !Í  hjMQS űőďĺőâÚÚŇ@úX ú ú(€ˆ ]_ŹŽÍC­äćđ/BÖü#9R…ŒĚŐáéţM“źý"$:vťÚ 6Ě˙ / ~ Ĺ ĺ ü + G Q – ß ! b v ˜ Ź ´ É Ó Ü â = S [ ˇ ß ň   ůôďçßďďďÔÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÔÔÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÔďď Ŕ!đ& ' ( )  Ŕ!& ' ( ) Ŕ!đŔ!ŚxŔ!đŔ!đŔ!ÖđM jOQSűűűöŔ!đ ˙˙˙˙˙˙ DocumentText4˙˙˙˙˙˙˙˙F gó ŕŔ!(#˙ őh˜ţ˙˙˙˙˙˙ ü  ýĐx ţ´x˙  óő˙˙˙˙˙˙üýüţ˙ŢÓSŻÓ˙˙O˙˙1Times New Roman Symbol&ArialTimesŠ Ó3 DialItľ†f K Q Š[Ę[˙˙DialItPC Magazine Dialit macroInstall"ŒĐhéĹÚ–ČÚ%[ô‚ - Scott Krueger Scott Krueger30ATMP Q|üÇ*tĺDOC1570TMP ,lýĺDOC243CTMP 4lýĺDOC1B14TMP KlýĺDOC0205TMP glýĺCAL0610TMP *’ýĺDOC1F17TMP ţĺDOC0032TMP Š”ýĺDOC2B33TMP <”ýĺDOC120CTMP  ”ýĺDOC0622TMP Ş”ýĺCAL1359TMP /kţĺCRD2937TMP 2kţĺCAL3349TMP 4Ą˙ĺCRD392ATMP 7Ą˙ĺCAL1F44TMP L@ŰĽ-!@ -€-‚-Ŕ22$2$$2$2$2$2$222222242<2<2L222b2(Š2Š2Š2Š2Š2Š2Š2Š2Š2Œ2Œ2Œ2Œ2Œ2Œ2Œ24Ŕ2Œ2$2Œ2Œ2 €-‚-€-‚-űF  Ţ˙˙˙˙€€-‚-€ €-‚-(Times New Roman Symbol&Arial"€Đh