使用C Sharp在单词自动选择中选择所有形状

Question

How can I select all shapes in a document with C#.

I'm currently changing the language settings of a word document.

I was able to change the language using select all, unfortunately not all were selected like header/footer, text box or any shapes on the document. I manage somehow to set the language in header/footer. But I can't find a way to set the language for shapes.

I have tried to do a quick macro, but I don't know what the index for each shapes in the document.

This is the macro:

ActiveDocument.Shapes("Text Box 4").Select
ActiveDocument.Shapes.Range(Array("Text Box 4", "Rectangle 7")).Select
ActiveDocument.Shapes.Range(Array("Text Box 4", "Rectangle 7", _
    "Text Box 10")).Select
ActiveDocument.Shapes.Range(Array("Text Box 4", "Rectangle 7", _
    "Text Box 10", "Rectangle 11")).Select
Selection.LanguageID = wdEnglishUK

And this is what I deed in C#, but its not working...

        wordApp.ActiveDocument.Shapes.SelectAll();
        wordApp.Selection.LanguageID = Word.WdLanguageID.wdEnglishUK;

If try using this:

wordApp.ActiveDocument.Shapes.Range(??).Select; //I don't know what should I put inside the range
wordApp.Selection.LanguageID = Word.WdLanguageID.wdEnglishUK;

I hope someone here can help me. Or if you have better solution to change the language, please let me know.Tnx

Answer 1

You have not had an answer in a while, so here is VBA, I hope you can convert it.

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

From: http://www.proz.com/forum/office_applications/31516-how_to_change_textbox_language_in_a_word_document.html