C＃でVBAを変換してもC＃にループしますが、コンパイルエラーが発生します

Question

C＃でWord VBAマクロをプラグインに変換しています。私がこれまでに成功したC＃でのすべてのステートメント、メソッドとプロパティをリファクタリングしましたが、この1つは私の苦労を与える

：

For Each l In Application.Languages 
    If InStr(LCase(l.NameLocal), LCase(Language)) > 0 Then 
     Selection.LanguageID = l.ID 
     Exit For 
    End If 
Next l 

次のように私はC＃で上記を変換した：

using Microsoft.Office; 
using Microsoft.Office.Interop; 
using Word = Microsoft.Office.Interop.Word; 

Word.Application oWord = new Word.Application(); 
Word.Document oWordDoc = new Word.Document(); 
var Selection = oWordDoc.ActiveWindow.Selection; 
string strTgtLanguage = "Hungarian"; 

foreach (var item in oWord.Application.Languages) 
{ 
      if (item.NameLocal.IndexOf(strTgtLanguage)>-1) 
//The error is ---^ here on 'NameLocal'. 
      { 
       Selection.LanguageID = item.ID 
//And here on 'ID' -----------------------^ 
       break; 
      } 
} 

両方のインスタンスのコンパイラエラーがある：

'object'に 'NameLocal'の定義が含まれておらず、 'ObjectL'の最初の引数を受け入れる拡張メソッド 'NameLocal'が見つかりませんでした（usingディレクティブまたはアセンブリ参照がありません）

私はここで間違っていますか？私はforeachステートメントがコレクションからobjectを正しく宣言したと思った。

ありがとうございます。

Answer 1

型名とvar itemを交換しなければなりません。

foreach (var item in oWord.Application.Languages)var可変itemと最初のケースでは foreach (Word.Language item in oWord.Languages)

と交換型System.Objectです。

ため、それぞれの完全な

のLINQは、次のようになります使用のための：-各

foreach (Word.Language item in oWord.Languages.Cast<Word.Language>() 
.Where(item => item.NameLocal.IndexOf(strTgtLanguage, StringComparison.Ordinal) > -1)) 
{ 
    selection.LanguageID = item.ID; 
    break; 
} 

または、例えばと交換することができますFirstOrDefault：あなたが明示的に反復変数を宣言する必要がありますので、

Word.Language hungarian = 
oWord.Languages.Cast<Word.Language>() 
.FirstOrDefault(item => item.NameLocal.IndexOf(strTgtLanguage, StringComparison.Ordinal) > -1); 

if (hungarian != null) 
    selection.LanguageID = hungarian.ID; 

Answer 2

エラーコードの場合、最初のエラーはあなたのoWord.Application.Languagesが実際にNameLocalというコレクションフィールドを返さないと思われます。

2つ目Selection.LanguageID = l.IDはSelection.LanguageID = item.ID

Answer 3

LanguagesはIEnumerableをです。

IEnumerableの.Cast<>()メソッドを使用する場合は、.Any()関数にアクセスして、反復ループを自分で書くのを避けることができます。下記の

どちらのバージョン：Officeの相互運用ライブラリの知識がなくて言えば

using wd = Microsoft.Office.Interop.Word; 

wd.Application oWord = new wd.Application(); 
wd.Document oWordDoc = new wd.Document(); 
wd.Selection oWordSelection = oWordDoc.ActiveWindow.Selection; 

// foreach loop 
foreach (wd.Language item in oWord.Languages) 
{ 
    Console.WriteLine(item.ID); 
    if (item.NameLocal.IndexOf("Hungarian") > -1) 
    { 
     oWordSelection.LanguageID = item.ID; 
     break; 
    } 
} 

// linq 
if (oWord.Languages.Cast<wd.Language>().Any(lang => lang.NameLocal.IndexOf("Hungarian") > -1)) 
    oWordSelection.LanguageID = wd.WdLanguageID.wdHungarian;