エクセルデーター使用のテキスト
[18642]エクセルデーター使用のテキスト 投稿者:とーます 投稿日:2008/11/21 11:11:27
こんにちは。
仕事を行う上でこういうのってないのかな?とを探しています。
お客様からのエクセルデーターで、テキストのみを取り出したいのです。
エクセルで作られているテキストは、セルに入力したものと
ワードアートで作られているものがありますが、
すべての文字を、テキストエディットもしくは、ワードに
置き換えたいのですが、どなたか方法を知りませんか?
エクセルから、文字のみを取り出す場合、
ボックスを指定して、「ワードアートテキスト編集」の
ウィンドを出してコピペ。
ひとつづつやっていては、多大なる時間の無駄でして。
しかも、なぜかWinで作られたデーターはMacで開くと
全然動きません。
どなたかご存じの方、よろしくお願いします。
環境は、OSX10.4.8 です。
エクセルは、2004 fo rmacを使っています。
仕事を行う上でこういうのってないのかな?とを探しています。
お客様からのエクセルデーターで、テキストのみを取り出したいのです。
エクセルで作られているテキストは、セルに入力したものと
ワードアートで作られているものがありますが、
すべての文字を、テキストエディットもしくは、ワードに
置き換えたいのですが、どなたか方法を知りませんか?
エクセルから、文字のみを取り出す場合、
ボックスを指定して、「ワードアートテキスト編集」の
ウィンドを出してコピペ。
ひとつづつやっていては、多大なる時間の無駄でして。
しかも、なぜかWinで作られたデーターはMacで開くと
全然動きません。
どなたかご存じの方、よろしくお願いします。
環境は、OSX10.4.8 です。
エクセルは、2004 fo rmacを使っています。
Re: エクセルデーター使用のテキスト 投稿者:ひよっこ 投稿日:2008/11/21 12:23:48
Office2004 for macを使ったことがないのでよくわかりませんが、
エクセル上の文字をテキストデータとして取り出したいのなら、別名でテキスト保存ではダメなのでしょうか・・・
エクセル上の文字をテキストデータとして取り出したいのなら、別名でテキスト保存ではダメなのでしょうか・・・
Re: エクセルデーター使用のテキスト 投稿者:いき♂ 投稿日:2008/11/21 13:32:42
Re: エクセルデーター使用のテキスト 投稿者:あぷらいと 投稿日:2008/11/21 13:49:44
Macは所有していないので確認は取れないのですが、
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
=================================
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
=================================
Re: エクセルデーター使用のテキスト 投稿者:CS3初心者 投稿日:2008/11/21 18:54:52
AppleのiWorkに入っているNumbersというソフトはお試しになりましたか?
Excelのスプレッドシートを読み込んだり、
文書を書き出したりすることができます。
以前Excelデータを渡されて作業しなくてはならかった時、
フリートライアルを見つけて、その場をしのぎました。
ご希望通りのデータができるかどうかは不明ですが
フリートライアルですので、試してみてはいかがでしょう。
アップルサイト↓
http://www.apple.com/jp/iwork/numbers/#overview
Excelのスプレッドシートを読み込んだり、
文書を書き出したりすることができます。
以前Excelデータを渡されて作業しなくてはならかった時、
フリートライアルを見つけて、その場をしのぎました。
ご希望通りのデータができるかどうかは不明ですが
フリートライアルですので、試してみてはいかがでしょう。
アップルサイト↓
http://www.apple.com/jp/iwork/numbers/#overview
Re: エクセルデーター使用のテキスト 投稿者:いき♂ 投稿日:2008/11/21 21:16:54
> CS3初心者さん
http://ascii.jp/elem/000/000/108/108752/
iWorkは、Excelのスプレッドシートを読み込むことはできますが、ワードアートは簡素化された図として変換されるようです。
http://ascii.jp/elem/000/000/108/108752/
iWorkは、Excelのスプレッドシートを読み込むことはできますが、ワードアートは簡素化された図として変換されるようです。
Re: エクセルデーター使用のテキスト 投稿者:とーます 投稿日:2008/11/25 14:29:40
皆さん、ありがとうございました。
さっそく、試してみます。
これで、作業効率も格段に上がることと思います。
ホントにありがとうございました♪
さっそく、試してみます。
これで、作業効率も格段に上がることと思います。
ホントにありがとうございました♪
この記事の書き込み元へのリンク (コメントや質問などはこちらへどうぞ)