0

私はこのような文書を持っています:

English English English English

中文中文中文中文中文

English English English English

中文中文中文中文

英語の段落と中国語の段落がこの順序で 1 つずつ表示されます。

では、英語の段落をすべて削除する方法はありますか?

私は知っていgrepて、使用方法regexや..のようなことを知っawk sedていますが、Microsoft Word内でそれをやりたいので:

AppleScript でこの問題を解決するにはどうすればよいですか?

みんなありがとう！

4

1 に答える 1

1

これはあまりきれいではありませんが、仕事を成し遂げるはずです。

property english : "abcdefghijklmnopqrstuvwxyz"
set deleteMe to {}

tell application "Microsoft Word"
    tell active document
        set pCount to count of paragraphs
        repeat with i from 1 to pCount
            set cCount to count of characters in characters of paragraph i
            repeat with j from 1 to cCount
                tell paragraph i
                    if content of character j is in english then
                        set end of deleteMe to i
                        exit repeat
                    end if
                end tell
            end repeat
        end repeat

        set dCount to -(count of deleteMe)
        repeat with k from -1 to dCount by -1
            set content of text object of paragraph (item k of deleteMe) to "" -- delete paragraph
        end repeat
    end tell
end tell
于 2012-06-20T12:36:15.693 に答える