VBAでのテキスト言語の検出

Question

私はSplitで配列に格納するPowerPointのテキストボックスを持っています。 VBAでのテキストの言語を検出する方法はありますか？ 実際には英語または中国語のテキストしかないので、テキストが英語でないか、またはUnicodeでないかを検出する別の解決策があると思いますか？

Answer 1

それは文字の一つが中国であることを確認することで可能でなければなりません：

Function IsChiness(text As String) As Boolean 
    Dim c&, i& 
    For i = 1 To Len(text) 
    c = AscW(Mid$(text, i, 1)) 
    If c >= &H4E00& And c <= &H9FFF& Then 
     IsChiness = True 
     Exit Function 
    End If 
    Next 
End Function 

Answer 2

形状の.TextFrame.TextRange.LanguageIDは、テキストがに設定されているどの言語を教えてくれます。たとえば、米国英語は1033です。それは同様に進値を見て価値がある

https://msdn.microsoft.com/en-us/goglobal/bb964664.aspx?f=255&MSPPError=-2147217396

：ここでは言語IDのリストは、（この場合は十進LCID、右側の列を使用します）があります。右端の2桁はメインの言語コード（たとえば中国語は04）を示し、左端の2桁は特定のロケール（PRC、シンガポール、台湾など）を示しています。

1つのテキストボックスに複数の言語テキストが混在している場合は、各.RunテキストのLanguageIDプロパティを確認してください。たとえば、選択した図形を使用して、次のように試してみてください。

Dim oRng As TextRange 
Dim x As Long 

With ActiveWindow.Selection.ShapeRange(1).TextFrame.TextRange 
    For x = 1 To .Runs.Count 
     Debug.Print .Runs(x).LanguageID 
    Next 
End With