Prev: Create a shape using words
Next: Picture at word
From: Jan Kratochvil on 13 Apr 2010 03:52
I have to review a large DOCX file. This file was translated and the
translator left lots of text fields in drawing canvas and other places in
wrong language.

Is there any possibility how to set in Word all the text to one language?
Ctrl+A does not works for all objects.

My document must be in German and I have some German text set as Czech or
English.

--
Regards
Jan Kratochvil
Windows Vista Business SP2, Office 2007 SP 2
From: Graham Mayor on 13 Apr 2010 06:11
It is much the same process as updating fields in story ranges. The
following should work

Sub German()
Dim oStory As Range
For Each oStory In ActiveDocument.StoryRanges
oStory.LanguageID = wdGerman
If oStory.StoryType <> wdMainTextStory Then
While Not (oStory.NextStoryRange Is Nothing)
Set oStory = oStory.NextStoryRange
oStory.LanguageID = wdGerman
Wend
End If
Next oStory
Set oStory = Nothing
End Sub

http://www.gmayor.com/installing_macro.htm
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>


"Jan Kratochvil" <JanKratochvil(a)discussions.microsoft.com> wrote in message
news:842237D8-E72C-4A99-99E9-E3778CEAC22B(a)microsoft.com...
>I have to review a large DOCX file. This file was translated and the
> translator left lots of text fields in drawing canvas and other places in
> wrong language.
>
> Is there any possibility how to set in Word all the text to one language?
> Ctrl+A does not works for all objects.
>
> My document must be in German and I have some German text set as Czech or
> English.
>
> --
> Regards
> Jan Kratochvil
> Windows Vista Business SP2, Office 2007 SP 2


 | 
Pages: 1
Prev: Create a shape using words
Next: Picture at word