オートメーターを使って文字変換はできないものでしょうか？

私の知識では無理ですが以下サイトがあります。

漢数字[大字]を ⇒ アラビア数字に変換する

http://www.benricho.org/moji_conv/07.html

他にも、もっと別の方法論があると思いますので検索してみるとか、もしくは他の方のご意見があるといいですね。

TextEditの書類でFindを使い下記のようにしてReplace Allで置換できますけど...

# 毎日少しずつ実行すれば...

なおAutomatorだと10年かかっても出来ないかも...

Excelのマクロの自動記録(相対参照。)を利用して、簡単にできないかと挑んでみたのですが、置換を実行するコマンドに文字列を指定する部分でやはりマクロの手書きが必要なようです。

意図したWorkflowが見つからなければ、ご自身でWorkflow(Program)を作るか、見つかったWorkflowを手直しする必要が出てきます。なのでAppleScript, Shell Script, Perl, Pythonなどのスキルがどうしても必要になります。

またAutomatorの苦手なPassword、Dialog, Prompt、繰り返し作業などをテクニックでカバーする必要があります。むしろAppleScript, Shell Script, PerlなどでProgramを作って実行するほうがはるかに簡単です。

Shell Script, Perlなどに慣れているならCocoaDialogが便利。コマンドがあるのでPassword, Prompt, Dialogなどが扱いやすいです。

# Password, Promptなどが動作するShell ScriptでもScript menuから実行すると完璧に無視してそれ以外を実行します。

ありんこさん、こんばんは

私はJedit Xを使ってテキストの置換を行ったりしています。

マルチファイルに股がる置換も可能です。

また、どうしてもAutomatorをご使用になるのであれば、Jedit Xをインストールするとワークフローに同等の置換機能が追加されます。

有償ですが、１本あると重宝しますよ。

Welcome to Artman21 | Artman21

このメッセージは次により編集されています：アイスクリーマ

第1条から第1000条をAutomatorで自動処理したいとトビ主さんがお考えだとJedit Xの「テキストの置換をする」だと厳しいかも知れません。Automatorは重いし手順は手作業と変わらないのでTextEditなどで置換のほうが早いかも。

今気づいた。

民法

第二目 弁済の目的物の供託（第四百九十四条―第四百九十八条） 第三目 弁済による代位（第四百九十九条―第五百四条） ...... 第百五十四条 差押え、仮差押え及び仮処分は、 権利者の請求により又は法律の規定に従わないことにより取り消されたときは、時効 ...

をリンク先で変換すると

民法

第2目 弁済の目的物の供託（第494条―第498条） 第3目 弁済による代位（第499条―第504条） ...... 第154条 差押え、仮差押え及び仮処分は、 権利者の請求により又は法律の規定に従わないことにより取り消されたときは、時効 ...

となり”第二目”が”第2目”となってしまいますね…これではお望みとはちがいますので、似たような自動変換テーブルを作っても難しいか…という感想が湧きました。

お後がよろしいようで。

（六法をipadで持ち歩きできないかと思い

お金かかるけど、iPhoneやiPad用にはApp Storeに製品版がありますね.

模範六法

http://itunes.apple.com/jp/app/id426635247?mt=8

とりあえずは、できて良かったです。

お金かかるけど、iPhoneやiPad用にはApp Storeに製品版がありますね.

お金がかからないのもありますよ。

iTunes Storeで「六法」で検索すればいろいろなAppが見つかります。

アラビア数字というので模範六法にしましたが、こだわらなければありましたね。。

素人造りですが、下記の様な感じで、Excelのマクロで一応できる気配が有ります。法令集と漢数字とアラビア数字の対応表を所持していないので厳密に試せません。

既に解決済みで、実際使うことは無いと思いますが。Office 2004で作成。ちなみに、ファイル名のパスやFor Nextループの回数なんかは適宜変更の必要があります。

Sub Test1()

'

' WordをExcelから動かす Macro

' マクロ記録日: 2011.4.9

'

'Excelの一覧表を使用してWord内の単語を置換する。

'

Dim wdObj As Object

Dim i As Integer

Dim findname As String

Dim convetext As String

Set wdObj = CreateObject("Word.Application")

wdObj.Visible = True

wdObj.Documents.Open Filename:="Users:niki:Desktop:houbun.doc"

For i = 1 To 5

Range("A1").Select

Cells(i, 2).Select

Selection.Copy

findname = ActiveCell.Offset(0, -1)

convtext = ActiveCell.Value

wdObj.Selection.Find.ClearFormatting

wdObj.Selection.Find.Replacement.ClearFormatting

wdObj.Selection.Find.Text = findname

wdObj.Selection.Find.Forward = True

If wdObj.Selection.Find.Execute Then

wdObj.Selection.TypeBackspace

wdObj.Selection.InsertAfter convtext

End If

wdObj.Selection.Goto What:=wdGoToPage, Which:=wdGoToFirst

Next

MsgBox "End End"

End Sub