Mobile menu

How to change TextBox language in a Word document
Thread poster: Józef Kwasniak

Józef Kwasniak
Local time: 17:31
English to Polish
+ ...
Apr 20, 2005

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


Direct link Reply with quote
 

Rossana Triaca  Identity Verified
Uruguay
Local time: 13:31
Member (2002)
English to Spanish
This one... Apr 20, 2005

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!


Direct link Reply with quote
 

Józef Kwasniak
Local time: 17:31
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


Direct link Reply with quote
 

Piotr Bienkowski  Identity Verified
Poland
Local time: 17:31
Member (2005)
English to Polish
+ ...
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).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


Direct link Reply with quote
 

Józef Kwasniak
Local time: 17:31
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


Direct link Reply with quote
 

Tony M  Identity Verified
France
Local time: 17:31
Member
French to English
+ ...
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)

Thanks a lot!


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 »

How to change TextBox language in a Word document

Advanced search






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 »
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 »



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