MSProject language id?

[Rene]

Hello.

How can I get the language id from MSProject with vb/vba.

-Application.LanguageSettings.LanguageID(msoLanguageIDUI)- does not work.

Thank you
Rene

 

[Karl E. Peterson]

How can I get the language id from MSProject with vb/vba.

-Application.LanguageSettings.LanguageID(msoLanguageIDUI)- does not work.

Maybe this? http://vb.mvps.org/samples/Locale

 

[Rene]

No. Iwant the language from the application MSProject.
Thank you.

 

[Karl E. Peterson]

No. Iwant the language from the application MSProject.

Perhaps I misunderstand, but where perzactly do you think MSProject would get it
from? I readily admit to be extremely ignorant of that application's details --
does it allow itself to be used in a language other than what the system is using?

 

[Steve Rindsberg]

Perhaps I misunderstand, but where perzactly do you think MSProject would get it
from? I readily admit to be extremely ignorant of that application's details --
does it allow itself to be used in a language other than what the system is using?

Some of the other Office apps do. PPT can have different language settings for each
shape, for the current presentation and a preferred setting for the overall app, all
of which may or may not match the os settings.

Haven't a clue about Project, I'm afraid.

This might help:

Debug.Print Application.LanguageSettings.LanguageID(msoLanguageIDUI)

 

[Karl E. Peterson]

Some of the other Office apps do. PPT can have different language settings for
each shape, for the current presentation and a preferred setting for the overall
app, all of which may or may not match the os settings.

Wow, no kidding, huh? What purpose would that serve? Genuinely curious.

 

[Steve Rindsberg]

Wow, no kidding, huh? What purpose would that serve? Genuinely curious.

Suppose I have a US/English version of Office but need to produce documents in German
or Spanish or whatever ... maybe I'm a translator or have a client there or the like.
Sure beats buying a new Spanish copy of Word if I can just set the app to my
preferred language of the day. Or du jour. <g>

 

[Rene]

I'm german and use an english OS with german applications.

In Excel I can get the languageID with:
Application.International(xlCountryCode).
In Word with: Application.LanguageSettings.LanguageID(msoLanguageIDUI).

Both does not work with MSProject. :-(

 

[Steve Rindsberg]

I'm german and use an english OS with german applications.

In Excel I can get the languageID with:
Application.International(xlCountryCode).
In Word with: Application.LanguageSettings.LanguageID(msoLanguageIDUI).

Both does not work with MSProject. :-(

How do you set the language for Project? For Word/PPT/Excel, you use the
Microsoft Office Language tool, as I recall. Does that also change Project?

If so, perhaps you could launch an invisible instance of one of the other apps
and get the language ID from it.

Office appears to store its language settings here:
HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Common\LanguageResources

That's also worth looking at.

Or if Project's language settings are independent of Office's, open Regedit,
locate the Project settings in CurrentUser and keep refreshing the view while
you change the language settings.

 

[Karl E. Peterson]

Suppose I have a US/English version of Office but need to produce documents in
German or Spanish or whatever ... maybe I'm a translator or have a client there
or the like. Sure beats buying a new Spanish copy of Word if I can just set the
app to my preferred language of the day. Or du jour. <g>

Okay, that sure makes sense. But you were suggesting having different languages
within a single document in PPT?

 

[Steve Rindsberg]

Okay, that sure makes sense. But you were suggesting having different languages
within a single document in PPT?

Add a textbox in PPT, type a couple paragraphs, then use Tools, Language to set each
para to a different language then ...

Sub ThingCosaResWhatever()

Dim x As Long
' Each shape can have a TextFrame and
' Each TextFrame can have a TextRange and
' Each TextRange can be set to a different language
With ActiveWindow.Selection.ShapeRange(1)
Debug.Print .TextFrame.TextRange.LanguageID
' in this case, -2, meaning "crazy mixed up thang"

' and to make it more entertaining, each paragraph
' in a textrange can be set to a different language
With .TextFrame.TextRange
For x = 1 To .Paragraphs.Count
Debug.Print .Paragraphs(x).LanguageID
Next
End With
End With

End Sub

 

[Karl E. Peterson]

Add a textbox in PPT, type a couple paragraphs, then use Tools, Language to set
each para to a different language then ...

So, this is, like, for one of those govt presentations? In Canada? <g>

 

[Steve Rindsberg]

So, this is, like, for one of those govt presentations? In Canada? <g>

I imagine the feature was *very* popular in Canada when it was introduced.
But in Europe too, I'm sure. And probably anyplace else that's not as devoutly
monolingual as the US. And now with more and more stuff needing Spanish as well as
English here too ... well. There ya go.

It's the kind of feature that alone would make an upgrade more than pay for itself.

 

[Karl E. Peterson]

I imagine the feature was *very* popular in Canada when it was introduced.
But in Europe too, I'm sure. And probably anyplace else that's not as devoutly
monolingual as the US. And now with more and more stuff needing Spanish as well
as English here too ... well. There ya go.

It's the kind of feature that alone would make an upgrade more than pay for
itself.

Huh. Yeah, I am hopeless, linquistically, according to my wife anyway. English and
Computer. (Did I mention "antisocial" too?) Hmmmm...

 

[Steve Rindsberg]

(Did I mention "antisocial" too?) Hmmmm...

Next time it's my turn to buy the beer, I'll remind you of that, <g>