エクセルデーター使用のテキスト
仕事を行う上でこういうのってないのかな?とを探しています。
お客様からのエクセルデーターで、テキストのみを取り出したいのです。
エクセルで作られているテキストは、セルに入力したものと
ワードアートで作られているものがありますが、
すべての文字を、テキストエディットもしくは、ワードに
置き換えたいのですが、どなたか方法を知りませんか?
エクセルから、文字のみを取り出す場合、
ボックスを指定して、「ワードアートテキスト編集」の
ウィンドを出してコピペ。
ひとつづつやっていては、多大なる時間の無駄でして。
しかも、なぜかWinで作られたデーターはMacで開くと
全然動きません。
どなたかご存じの方、よろしくお願いします。
環境は、OSX10.4.8 です。
エクセルは、2004 fo rmacを使っています。
エクセル上の文字をテキストデータとして取り出したいのなら、別名でテキスト保存ではダメなのでしょうか・・・
Windows Excel 2003 でマクロを使ってできます。
特別のことはしていないのでMacでも動くのではないかと思います。
セル"A1" の辺りにワードアートのテキストをまとめた
テキストボックスが作成されます。
=================================
Sub WordArtText()
Dim shapecnt
Dim WA
WA = ""
On Error Resume Next
For shapecnt = 1 To ActiveSheet.Shapes.Count
ActiveSheet.Shapes(shapecnt).Select
WA = WA & Selection.ShapeRange.TextEffect.Text & Chr(10)
Next shapecnt
On Error GoTo 0
Range("A1").Select
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 5, 5, 200, 200).Select
Selection.Characters.Text = WA
MsgBox "おわりました"
End Sub
=================================
Excelのスプレッドシートを読み込んだり、
文書を書き出したりすることができます。
以前Excelデータを渡されて作業しなくてはならかった時、
フリートライアルを見つけて、その場をしのぎました。
ご希望通りのデータができるかどうかは不明ですが
フリートライアルですので、試してみてはいかがでしょう。
アップルサイト↓
http://www.apple.com/jp/iwork/numbers/#overview
http://ascii.jp/elem/000/000/108/108752/
iWorkは、Excelのスプレッドシートを読み込むことはできますが、ワードアートは簡素化された図として変換されるようです。
さっそく、試してみます。
これで、作業効率も格段に上がることと思います。
ホントにありがとうございました♪