A Microsoft Outlook email forum. Outlook Banter

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » Outlook Banter forum » Microsoft Outlook Email Newsgroups » Outlook and VBA
Reload this Page someone can help me to correct my syntax and my all Macro
Site Map Home Register Authors List Search Today's Posts Mark Forums Read Web Partners

someone can help me to correct my syntax and my all Macro


« Redemption insert text - Run-time error '-2147467259 (80004005)' Unspecified Error | Addhandler not working »

 
 
Thread Tools Search this Thread Display Modes
  #1  
Old December 23rd 07, 08:25 PM posted to microsoft.public.outlook.program_vba
פקודת מאקרו בערבית
external usenet poster
  
Posts: 1
Default someone can help me to correct my syntax and my all Macro
this is my macro :

Sub ConvertAdvH()

Transcribe=False

done=false

Set MyRange=ActiveDocument.Range(0'1(

For I = 0 to my range.storylength-1/

MyRange.start=I
My range.end=i+1

If transcribe then
Select case myrange.text

Case:"א" myrange.end=i+2/

If myrange text " 'א"= then

Myrange.insertsymbol
chracternumber:=1569:font"times new
Roman"'unicode:=true


Else

Myrange i+1

Myrange.insertsymbol
chracternumber:=1575:font"times new
Roman", unicode:=true


End if

Case:"ב" Myrange.insertsymbol chracternumber:=1576:font"times new
Roman",unicode:=true

Case :"ת" myrange.end=i+2

If myrange.text" 'ת"=then

Myrange.insertsymbol chracternumber:=1579:font"times new
Roman" ,unicode:=true

Myrange.end =i+1

Myrange.insertsymbol chracternumber:=1578:font"times new
Roman" ,unicode:=true

End if

Case :"ד" myrange=i+2

If myrange.text "ד' " =then


Myrange.insertsymbol chracternumber:=1584:font"times new
Roman" ,unicode:=true
Else

Myrange=i+1


Myrange.insertsymbol chracternumber:=1583:font"times new
Roman" ,unicode:=true




End if

Case : "פ" Myrange.insertsymbol
chracternumber:=1601:font"times new
Roman" ,unicode:=true


Case :"ע" myrange.end= i+1

If myrange.text" 'ע"=then

Myrange.insertsymbol chracternumber:=1593:font"times new
Roman" ,unicode:=true
Else

Myrange.end=i+2

If myrnge.txt " 'ח" =then

Myrange.insertsymbol chracternumber:=1581:font"times new
Roman" ,unicode:=true

End if

Case :"י" myrange.end=i+2

If myrange.txt " 'י"=then

Myrange.insertsymbol chracternumber:=1574:font"times new
Roman" ,unicode:=true
Else

Myrnage.end=i+1

Myrange.insertsymbol chracternumber:=1610:font"times new
Roman" ,unicode:=true


End if

Case :"ג" myrange.end=i+2

If my range.text " 'ג" then myrange.end=i+1

Myrange.insertsymbol chracternumber:=1580:font"times new
Roman" ,unicode:=true

Case : "ך" , "כ" Myrange.insertsymbol
chracternumber:=1603:font"times new
Roman" ,unicode:=true

Case: "ל" Myrange.insertsymbol chracternumber:=1604:font"times
new
Roman" ,unicode:=true
Case: "ם", "מ" Myrange.insertsymbol
chracternumber:=1605:font"times new
Roman" ,unicode:=true
Case: "ן","*" Myrange.insertsymbol
chracternumber:=1606:font"times new
Roman" ,unicode:=true
Case:"ק" Myrange.insertsymbol chracternumber:=1602:font"times
new
Roman" ,unicode:=true
Case:"ר" Myrange.insertsymbol chracternumber:=1585:font"times
new
Roman" ,unicode:=true
Case: "ס" Myrange.insertsymbol chracternumber:=1587:font"times
new
Roman" ,unicode:=true

Case: "ט" myrange.text" 'ט" = then

Myrange.insertsymbol chracternumber:=1592:font"times new
Roman" ,unicode:=true
Else

Myrange.end=i+1

Myrange.insertsymbol chracternumber:=1591:font"times new
Roman" ,unicode:=true

End if

Case : "ץ" , "צ" myrange.end=i+2

If myrange.text " 'צ" =then

Myrange.insertsymbol chracternumber:=1590:font"times new
Roman" ,unicode:=true

Else

Myrange.end=i+1

Myrange.insertsymbol chracternumber:=1589:font"times new
Roman" ,unicode:=true


Case : "י" myrange.end=i+2

If myrange.text " 'י" = then


Myrange.insertsymbol chracternumber:=1572:font"times new
Roman" ,unicode:=true

Else

Myrange.end=i+1

Myrange.insertsymbol chracternumber:=1608:font"times new
Roman" ,unicode:=true

End if

Case: "ש" Myrange.insertsymbol chracternumber:=1588:font"times new
Roman" ,unicode:=true
Case: "ז" Myrange.insertsymbol chracternumber:=1586:font"times new
Roman" ,unicode:=true

Case: "ה" myrange.end=i+2

If myrange.text " 'ה"=then

Myrange.insertsymbol chracternumber:=1577:font"times new
Roman" ,unicode:=true

Else

Myrange.end=i+1

Myrange.insertsymbol chracternumber:=1607:font"times new
Roman" ,unicode:=true
End if

Case: "$" :Myrange.insertsymbol chracternumber:=1573:font"times new
Roman" ,unicode:=true


Case: "^" :Myrange.insertsymbol chracternumber:=1571:font"times new
Roman" ,unicode:=true

Case: "#": Myrange.insertsymbol chracternumber:=1570:font"times new
Roman" ,unicode:=true

Case: """": Myrange.insertsymbol chracternumber:=1609:font"times new
Roman" ,unicode:=true

Case "0": Myrange.insertsymbol chracternumber:=1632:font"times new
Roman" ,unicode:=true

Case "1": Myrange.insertsymbol chracternumber:=1633:font"times new
Roman" ,unicode:=true

Case "2": Myrange.insertsymbol chracternumber:=1534:font"times new
Roman" ,unicode:=true

Case "3": Myrange.insertsymbol chracternumber:=1635:font"times new
Roman" ,unicode:=true
Case "4": Myrange.insertsymbol chracternumber:=1636:font"times new
Roman" ,unicode:=true

Case "5": Myrange.insertsymbol chracternumber:=1637:font"times new
Roman" ,unicode:=true

Case"6": Myrange.insertsymbol chracternumber:=1638:font"times new
Roman" ,unicode:=true

Case "7": Myrange.insertsymbol chracternumber:=1639:font"times new
Roman" ,unicode:=true
Case "8": Myrange.insertsymbol chracternumber:=1640:font"times new
Roman" ,unicode:=true
Case "9": Myrange.insertsymbol chracternumber:=1641:font"times new
Roman" ,unicode:=true
Case "?" : Myrange.insertsymbol chracternumber:=1534:font"times new
Roman" ,unicode:=true


Case:"", "{"


Transcribe=false

Myrange.delete

I=i-1

End select
Else
If myrange.text="}"or myrange.text=""then

Transcribe=true

Myrange.delete

I=i-1

End if

End if

Next

End sub

thanks a lot
Ads
  #2  
Old December 23rd 07, 09:28 PM posted to microsoft.public.outlook.program_vba
Ken Slovak - [MVP - Outlook]
external usenet poster
  
Posts: 5,848
Default someone can help me to correct my syntax and my all Macro
You get might get better answers posting in a Word group and not an Outlook
group.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"פקודת מאקרו בערבית" wrote in message
...
this is my macro :

Sub ConvertAdvH()

Transcribe=False

done=false

Set MyRange=ActiveDocument.Range(0'1(

For I = 0 to my range.storylength-1/

MyRange.start=I
My range.end=i+1

If transcribe then
Select case myrange.text

Case:"א" myrange.end=i+2/

If myrange text " 'א"= then

Myrange.insertsymbol
chracternumber:=1569:font"times new
Roman"'unicode:=true


Else

Myrange i+1

Myrange.insertsymbol
chracternumber:=1575:font"times new
Roman", unicode:=true


End if

Case:"ב" Myrange.insertsymbol chracternumber:=1576:font"times new
Roman",unicode:=true

Case :"ת" myrange.end=i+2

If myrange.text" 'ת"=then

Myrange.insertsymbol chracternumber:=1579:font"times new
Roman" ,unicode:=true

Myrange.end =i+1

Myrange.insertsymbol chracternumber:=1578:font"times new
Roman" ,unicode:=true

End if

Case :"ד" myrange=i+2

If myrange.text "ד' " =then


Myrange.insertsymbol chracternumber:=1584:font"times new
Roman" ,unicode:=true
Else

Myrange=i+1


Myrange.insertsymbol chracternumber:=1583:font"times new
Roman" ,unicode:=true




End if

Case : "פ" Myrange.insertsymbol
chracternumber:=1601:font"times new
Roman" ,unicode:=true


Case :"ע" myrange.end= i+1

If myrange.text" 'ע"=then

Myrange.insertsymbol chracternumber:=1593:font"times new
Roman" ,unicode:=true
Else

Myrange.end=i+2

If myrnge.txt " 'ח" =then

Myrange.insertsymbol chracternumber:=1581:font"times new
Roman" ,unicode:=true

End if

Case :"י" myrange.end=i+2

If myrange.txt " 'י"=then

Myrange.insertsymbol chracternumber:=1574:font"times new
Roman" ,unicode:=true
Else

Myrnage.end=i+1

Myrange.insertsymbol chracternumber:=1610:font"times new
Roman" ,unicode:=true


End if

Case :"ג" myrange.end=i+2

If my range.text " 'ג" then myrange.end=i+1

Myrange.insertsymbol chracternumber:=1580:font"times new
Roman" ,unicode:=true

Case : "ך" , "כ" Myrange.insertsymbol
chracternumber:=1603:font"times new
Roman" ,unicode:=true

Case: "ל" Myrange.insertsymbol
chracternumber:=1604:font"times
new
Roman" ,unicode:=true
Case: "ם", "מ" Myrange.insertsymbol
chracternumber:=1605:font"times new
Roman" ,unicode:=true
Case: "ן","*" Myrange.insertsymbol
chracternumber:=1606:font"times new
Roman" ,unicode:=true
Case:"ק" Myrange.insertsymbol
chracternumber:=1602:font"times
new
Roman" ,unicode:=true
Case:"ר" Myrange.insertsymbol
chracternumber:=1585:font"times
new
Roman" ,unicode:=true
Case: "ס" Myrange.insertsymbol
chracternumber:=1587:font"times
new
Roman" ,unicode:=true

Case: "ט" myrange.text" 'ט" = then

Myrange.insertsymbol chracternumber:=1592:font"times new
Roman" ,unicode:=true
Else

Myrange.end=i+1

Myrange.insertsymbol chracternumber:=1591:font"times new
Roman" ,unicode:=true

End if

Case : "ץ" , "צ" myrange.end=i+2

If myrange.text " 'צ" =then

Myrange.insertsymbol chracternumber:=1590:font"times new
Roman" ,unicode:=true

Else

Myrange.end=i+1

Myrange.insertsymbol chracternumber:=1589:font"times new
Roman" ,unicode:=true


Case : "י" myrange.end=i+2

If myrange.text " 'י" = then


Myrange.insertsymbol chracternumber:=1572:font"times new
Roman" ,unicode:=true

Else

Myrange.end=i+1

Myrange.insertsymbol chracternumber:=1608:font"times new
Roman" ,unicode:=true

End if

Case: "ש" Myrange.insertsymbol chracternumber:=1588:font"times new
Roman" ,unicode:=true
Case: "ז" Myrange.insertsymbol chracternumber:=1586:font"times new
Roman" ,unicode:=true

Case: "ה" myrange.end=i+2

If myrange.text " 'ה"=then

Myrange.insertsymbol chracternumber:=1577:font"times new
Roman" ,unicode:=true

Else

Myrange.end=i+1

Myrange.insertsymbol chracternumber:=1607:font"times new
Roman" ,unicode:=true
End if

Case: "$" :Myrange.insertsymbol chracternumber:=1573:font"times new
Roman" ,unicode:=true


Case: "^" :Myrange.insertsymbol chracternumber:=1571:font"times new
Roman" ,unicode:=true

Case: "#": Myrange.insertsymbol chracternumber:=1570:font"times new
Roman" ,unicode:=true

Case: """": Myrange.insertsymbol chracternumber:=1609:font"times new
Roman" ,unicode:=true

Case "0": Myrange.insertsymbol chracternumber:=1632:font"times new
Roman" ,unicode:=true

Case "1": Myrange.insertsymbol chracternumber:=1633:font"times new
Roman" ,unicode:=true

Case "2": Myrange.insertsymbol chracternumber:=1534:font"times new
Roman" ,unicode:=true

Case "3": Myrange.insertsymbol chracternumber:=1635:font"times new
Roman" ,unicode:=true
Case "4": Myrange.insertsymbol chracternumber:=1636:font"times new
Roman" ,unicode:=true

Case "5": Myrange.insertsymbol chracternumber:=1637:font"times new
Roman" ,unicode:=true

Case"6": Myrange.insertsymbol chracternumber:=1638:font"times new
Roman" ,unicode:=true

Case "7": Myrange.insertsymbol chracternumber:=1639:font"times new
Roman" ,unicode:=true
Case "8": Myrange.insertsymbol chracternumber:=1640:font"times new
Roman" ,unicode:=true
Case "9": Myrange.insertsymbol chracternumber:=1641:font"times new
Roman" ,unicode:=true
Case "?" : Myrange.insertsymbol chracternumber:=1534:font"times new
Roman" ,unicode:=true


Case:"", "{"


Transcribe=false

Myrange.delete

I=i-1

End select
Else
If myrange.text="}"or myrange.text=""then

Transcribe=true

Myrange.delete

I=i-1

End if

End if

Next

End sub

thanks a lot

 



« Previous Thread | Next Thread »

Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Linear Mode Linear Mode

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
please help with syntax joe schmo Outlook and VBA 1 May 4th 07 09:58 PM
Error Message: Invalid DN Syntax rhody Outlook - Using Contacts 1 September 23rd 06 08:15 PM
syntax of calendar link MikeL Outlook - General Queries 4 June 21st 06 10:12 PM
Invalid syntax error on some URL links in OE Alan J Robertson Outlook Express 28 April 1st 06 03:45 PM
Invalid Syntax Error?? F. Edwin Felty Outlook Express 5 March 31st 06 04:02 PM


All times are GMT +1. The time now is 03:51 PM.

Feed Icon - Contact Us - OutlookBanter Home - FAQ - Links - Privacy Statement - Top

Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.Search Engine Friendly URLs by vBSEO 2.4.0
Copyright 2004-2025 Outlook Banter.
The comments are property of their posters.