How to change TextBox language in a Word document Thread poster: Józef Kwasniak
|
|---|
The best would be a macro to change language in all TextBoxes in a document. Doing it manually takes to much time.
Can anyone suggest something?
Thanks in advance.
Jozef Kwasniak
| | | |
works, tough it can get slow for large documents:
-------------------------------------------------------
Sub ChangeLanguageTextBoxes()
Dim aShape As Shape
For Each aShape In ActiveDocument.Shapes
If aShape.Type = msoTextBox Then
aShape.Select
Selection.LanguageID = wdEnglishUS
End If
Next
End Sub
-------------------------------------------------------
You'll have to change the languageID of c... See more works, tough it can get slow for large documents:
-------------------------------------------------------
Sub ChangeLanguageTextBoxes()
Dim aShape As Shape
For Each aShape In ActiveDocument.Shapes
If aShape.Type = msoTextBox Then
aShape.Select
Selection.LanguageID = wdEnglishUS
End If
Next
End Sub
-------------------------------------------------------
You'll have to change the languageID of course (to wdPolish probably).
Good luck! ▲ Collapse
| | | | Józef Kwasniak
Local time: 10:22
English to Polish
+ ...
TOPIC STARTER | Grouped TextBoxes Problem | Apr 20, 2005 |
Thank you for your prompt response. The macro is OK, but it doesn't work when there are a few TextBoxes grouped. There must be a way of ungrouping them, changing the language and grouping again.
JK
| | | | | For the whole document (all stories) | Apr 20, 2005 |
This one takes care of language change for the whole document, including headers and footers and other "stories", and text boxes as well as shapes with text.
Sub langconvPL()
Dim mystoryrange As Range
For Each mystoryrange In ActiveDocument.StoryRanges
mystoryrange.LanguageID = wdPolish
mystoryrange.NoProofing = False
Next mystoryrange
scount = ActiveDocument.Shapes.Count
For x = 1 To scount
ActiveDocument.Shapes(x).Se... See more This one takes care of language change for the whole document, including headers and footers and other "stories", and text boxes as well as shapes with text.
Sub langconvPL()
Dim mystoryrange As Range
For Each mystoryrange In ActiveDocument.StoryRanges
mystoryrange.LanguageID = wdPolish
mystoryrange.NoProofing = False
Next mystoryrange
scount = ActiveDocument.Shapes.Count
For x = 1 To scount
ActiveDocument.Shapes(x).Select
If ActiveDocument.Shapes(x).TextFrame.HasText = True Then
ActiveDocument.Shapes(x).TextFrame.TextRange.Select
Selection.LanguageID = wdPolish
End If
Next x
End Sub
HTH
Piotr ▲ Collapse
| | |
|
|
|
Józef Kwasniak
Local time: 10:22
English to Polish
+ ...
TOPIC STARTER | This one works really good | Apr 21, 2005 |
No problems now. The macro is very useful. Thank you very much.
JK
| | | | Tony M
France
Local time: 10:22
Member
French to English
+ ...
SITE LOCALIZER | Setting default language too | Aug 10, 2007 |
Does anyone know how (or probably rather where) to change the default language setting — or rather, the default options?
I have mine set most of the time to French, but when I got to change a language, at session start-up the pull-down only offers me French or US English, but I have to scroll right down to find UK English. Is there a way I can get it to keep it in the top 'most-frequently-used' list (where it obediently goes once I've used it for the first time)
... See more Does anyone know how (or probably rather where) to change the default language setting — or rather, the default options?
I have mine set most of the time to French, but when I got to change a language, at session start-up the pull-down only offers me French or US English, but I have to scroll right down to find UK English. Is there a way I can get it to keep it in the top 'most-frequently-used' list (where it obediently goes once I've used it for the first time)
Thanks a lot! ▲ Collapse
| | | | To report site rules violations or get help, contact a site moderator: You can also contact site staff by submitting a support request » How to change TextBox language in a Word document | Trados Business Manager Lite | Create customer quotes and invoices from within Trados Studio
Trados Business Manager Lite helps to simplify and speed up some of the daily tasks, such as invoicing and reporting, associated with running your freelance translation business.
More info » |
| | Protemos translation business management system | Create your account in minutes, and start working! 3-month trial for agencies, and free for freelancers!
The system lets you keep client/vendor database, with contacts and rates, manage projects and assign jobs to vendors, issue invoices, track payments, store and manage project files, generate business reports on turnover profit per client/manager etc.
More info » |
|
| | | | X Sign in to your ProZ.com account... | | | | | |
Login to reply/comment 
