PBB Macros - Document language selection

DominicM

May prove useful for those of you wishing your PBB marked up in multiple languages

6472.Logos_Langauge.zip

Find more posts tagged with

Files

Comments

Robert M. Warren

Thanks, Dominic. I'll have to give it a try.

Calvin Habig

Dominic:

It interests me, but all that is in the zip folder is a .bas file. I have no idea what to do woith it or where to put it.

Any help appraciated.

Cal

DominicM

when you are in word and you click your macro button and then edit macros, there are a list of SUB commands

you would paste the following text in there at bottom of list:

Sub PREPROCESS_SET_DOCUMENT_BASE_LANGUAGE()
' SetLang Macro Whole Story
Dim strNoteType As String
Selection.WholeStory
strNoteType = InputBox("Set Language to -" _
& vbCr & "US - EN(US) UK - EN(UK)" _
& vbCr & "DE - German FR - French" _
& vbCr & "GK - Greek HE - Hebrew" _
& vbCr & "ES - Spanish LA - Latin" _
& vbCr & "IT - Italian AR - Arabic" _
& vbCr & "XX - NONE" _
& vbCr & vbCr & "Please input Language Code.", _
"Apply Language to Whole Document", "US")
If strNoteType = "US" Then
Selection.LanguageID = wdEnglishUS
End If
If strNoteType = "UK" Then
Selection.LanguageID = wdEnglishUK
End If
If strNoteType = "FR" Then
Selection.LanguageID = wdFrench
End If
If strNoteType = "DE" Then
Selection.LanguageID = wdGerman
End If
If strNoteType = "ES" Then
Selection.LanguageID = wdSpanish
End If
If strNoteType = "AR" Then
Selection.LanguageID = wdArabic
End If
If strNoteType = "LA" Then
Selection.LanguageID = wdLatin
End If
If strNoteType = "GK" Then
Selection.LanguageID = wdGreek
End If
If strNoteType = "HE" Then
Selection.LanguageID = wdHebrew
End If
If strNoteType = "IT" Then
Selection.LanguageID = wdItalian
End If
If strNoteType = "XX" Then
Selection.LanguageID = wdLanguageNone
End If
'ActiveDocument.Save
End Sub

Sub MARKUP_SetDocLangtoUS()
' SetLang US Macro
Selection.WholeStory
Selection.LanguageID = wdEnglishUS
End Sub

Sub MARKUP_SET_LANGUAGE_MULTI()
' SetLang to Selection
Dim strNoteType As String
strNoteType = InputBox("Set Language to -" _
& vbCr & "US - EN(US) UK - EN(UK)" _
& vbCr & "DE - German FR - French" _
& vbCr & "GK - Greek HE - Hebrew" _
& vbCr & "ES - Spanish LA - Latin" _
& vbCr & "IT - Italian AR - Arabic" _
& vbCr & "XX - NONE" _
& vbCr & vbCr & "Please input Language Code.", _
"Apply Language to Section", "US") 'Change US to your default
If strNoteType = "US" Then
Selection.LanguageID = wdEnglishUS
End If
If strNoteType = "UK" Then
Selection.LanguageID = wdEnglishUK
End If
If strNoteType = "FR" Then
Selection.LanguageID = wdFrench
End If
If strNoteType = "DE" Then
Selection.LanguageID = wdGerman
End If
If strNoteType = "ES" Then
Selection.LanguageID = wdSpanish
End If
If strNoteType = "AR" Then
Selection.LanguageID = wdArabic
End If
If strNoteType = "LA" Then
Selection.LanguageID = wdLatin
End If
If strNoteType = "GK" Then
Selection.LanguageID = wdGreek
End If
If strNoteType = "HE" Then
Selection.LanguageID = wdHebrew
End If
If strNoteType = "IT" Then
Selection.LanguageID = wdItalian
End If
If strNoteType = "XX" Then
Selection.LanguageID = wdLanguageNone
End If
End Sub