« 2010年6月 | トップページ | 2010年8月 »

2010年7月の3件の記事

2010年7月27日 (火)

マクロ自動インストールの取説

最近ベクターで公開しているマクロテンプレートには、自動のインストール機能をつけています。

ときどき、Word の設定によってはうまくインストールができないことがございますので、マニュアルをみて対応をしてください。

以下のリンクをクリックすると、PDFマニュアルが表示されます。

「インストール・マニュアル」を表示

| | コメント (0) | トラックバック (0)

2010年7月 3日 (土)

Google英文ライティング(書籍紹介)

右クリックでGoogle!」を使われている翻訳者の方であれば、ぜひ読んでいただきたい本です。

グーグルを英作文(英借文:ネイティブからの借りもの英語で作文をすること)に使う効用については、いろいろな書籍で言われています。

私が何度か紹介した安藤進さんの本も有名ですね。

今回紹介する「Google英文ライティング」と、安藤進さんの本(たとえば、「ちょっと検索!翻訳に役立つGoogle表現検索テクニック」)との決定的な違い、それは、グーグル検索の手法を非常に単純化している点です。

なんと、本書では、「フレーズ検索」と「ワイルドカード検索」とだけが取り上げて、英作文の方法に焦点があてられています。

それら2つの検索を用いて、どうやって狙いの「動詞」、「副詞」、「前置詞」など、英語表現を取り出すかが説明されているのです。

それに対して、安藤進さんの本では、グーグル検索のコマンド検索などを駆使して、様々な調べ物をする方法が説明されているように思います。

なので、安藤さんがコマンド検索の使い方で表現を絞り込んでいくのに比べ、遠田さんは、言葉(フレーズ、キーワード)の選び方で表現を絞り込んでいきます。

たとえば、検索で「To 不定詞」を使ってみること(P.73)、なんて私はやったことがありませんでしたが、これも一つの大きなヒントですね。

今までと違ったアプローチを一つ知るだけで、得られる結果が変わるわけですから、こんなにうれしいスキルはないですよね。

そういう小さな役立つノウハウが山盛りの本です。

例文が豊富で、英語を推敲していく過程が丁寧に説明されており、なぜその表現を選ぶのか?を納得しながら読み進められると思います。

おそらく、グーグルで実際に検索結果を見ながら本書を読み進めるのが、一番納得がいって、体感できるので学びが多いと思いますが、電車の中でぱらぱらとめくりながら言葉選びのセンスを感じるだけでも多くを学べると思います。

あと、例文は日常や仕事で使いそうな表現もあって、英語表現の勉強にも役に立ちますね。

実際には、単純に上記のように2つの本を分類できるわけではないと思いますし、遠田さんの本も、安藤さんの本もどちらも読まれることをおすすめします。

どちらの本にも共通しているのは、狙いの答えを得るための思考過程が細かに説明されている点。

この追体験がすごくうれしいところです。うまくコツをつかめば、仕事でもプライベートでも、とにかくほしい情報にいち早くアクセスできるようになると思います。

では、翻訳でのおすすめの使い方の紹介。

①遠田さんのGoogle本で学んだ「言葉の選び方」や「英文を推敲するスキル」を生かして、望みの結論に達する過程を繰り返し練習(疑似体験)します。

②さらに、安藤さんのGoogle本で学んだ複雑な検索式を「右クリックでGoogle!」に登録して、遠田さんで学んだ言葉選びのセンスをさらに深く使いこなしてみてください。

こういう本好きです。

| | コメント (0) | トラックバック (0)

使用中の書式を検索するマクロ

文書を作成するときに、いろいろと書式を使いますね。

私は、メモとしていろいろな書式を書き込みますが、納品時にはそれらのメモがないことを確認する必要があります。

そんなときに便利なマクロです。

Sub Style_Check()

      Dim myRange As Range
      Dim myStyle(1 To 7) As String
      Dim i As Integer
      Dim myStyleFound As String
      Dim blnStyle As Boolean

10    myStyle(1) = "下付き"
20    myStyle(2) = "上付き"
30    myStyle(3) = "太字"
40    myStyle(4) = "斜体"
50    myStyle(5) = "下線(一重線)"
60    myStyle(6) = "取り消し線"
70    myStyle(7) = "蛍光ペン"

80    For i = 1 To 7

90        Set myRange = ActiveDocument.Range(0, 0)

100       With myRange.Find
110           .Text = ""
120           .Forward = True
                     
130           If i = 1 Then
140               .Font.Subscript = True
150           ElseIf i = 2 Then
160               .Font.Superscript = True
170           ElseIf i = 3 Then
180               .Font.Bold = True
190           ElseIf i = 4 Then
200               .Font.Italic = True
210           ElseIf i = 5 Then
220               .Font.Underline = wdUnderlineSingle
230           ElseIf i = 6 Then
240               .Font.StrikeThrough = True
250           ElseIf i = 7 Then
260               .Highlight = True
270           End If

280           .Wrap = wdFindStop
290           .Execute
             
300           If .Found = True Then
310               myStyleFound = myStyleFound & vbCr & myStyle(i)
320           End If
             
330       End With

340   Next

350   Set myRange = Nothing

360   If Len(myStyleFound) <> 0 Then
370       MsgBox "現在の文書で使用されている書式" & vbCr & myStyleFound, vbInformation, "検索結果"
380   Else
390       MsgBox "見つかりませんでした。", vbExclamation, "検索結果"
400   End If

End Sub

| | コメント (0) | トラックバック (0)

« 2010年6月 | トップページ | 2010年8月 »