Mobile menu

Jumping Sentence by Sentence through Word Application
Thread poster: Khalid Nasir

Khalid Nasir
Iraq
Local time: 20:13
English to Arabic
+ ...
Dec 13, 2006

I use MS office applications in work. I needed through my translation work to jump sentence by sentence, one after another, through my text. The sentence is the basic unit for translation work. I did the following module in MS Word application to assist me to jump and select "letter by letter in a moving selection" the next sentence to the insertion point and speak it. You can customize your tool bar to assign a key or menu to this module so you will able to move sentence by sentence through your text. To see this module how to work, open VB in your Word application, select Project (Document1) in the project explorer window, insert a standard module and userform from the insert menu and copy the following code to the inserted module. Insert TextToSpeech control in userform. When you press the assigned key or menu the insertion point jumps to the next sentence, selects and reads it
To adjust this module to your pairs , you should replace wdEnglishUK & wdEnglishUS to the relevant language constant members of your pairs from WdLanguageID go to VB help for this.

Sub GoToNextSentence()
Selection.Move wdSentence, 1
Selection.Sentences.First.Select
mytext = Selection.Sentences.First
Selection.Collapse _
Direction:=wdCollapseStart
For x = 1 To Len(mytext)
Start = Timer
Selection.MoveRight _
wdCharacter, 1, wdExtend
Do Until Timer > Start + 0.005
DoEvents
Loop
Next x
Selection.Sentences.First.Select
If Len(Selection.Range) > 250 Then
UserForm5.TextToSpeech1.Speed = 140
Else
UserForm5.TextToSpeech1.Speed = 160
End If
If Selection.Range.LanguageID _
= wdEnglishUK _
Or Selection.Range.LanguageID _
= wdEnglishUS Then
UserForm5.TextToSpeech1.Speak _
(Selection.Sentences.First)
End If
End Sub


Direct link Reply with quote
 


To report site rules violations or get help, contact a site moderator:


You can also contact site staff by submitting a support request »

Jumping Sentence by Sentence through Word Application

Advanced search






SDL MultiTerm 2017
Guarantee a unified, consistent and high-quality translation with terminology software by the industry leaders.

SDL MultiTerm 2017 allows translators to create one central location to store and manage multilingual terminology, and with SDL MultiTerm Extract 2017 you can automatically create term lists from your existing documentation to save time.

More info »
LSP.expert
You’re a freelance translator? LSP.expert helps you manage your daily translation jobs. It’s easy, fast and secure.

How about you start tracking translation jobs and sending invoices in minutes? You can also manage your clients and generate reports about your business activities. So you always keep a clear view on your planning, AND you get a free 30 day trial period!

More info »



All of ProZ.com
  • All of ProZ.com
  • Term search
  • Jobs