ワードからの文字の抜き出し

質問

スキャナで取り入れ、ワードへ張り付けた文章の編集についてです。

文章に罫線、枠線が含まれているのですが、線類をすべて排除して　文章のみコピーしたいのですが、可能でしょうか・

回答No.3

neKo_deux · ベストアンサー

> まだ消えません。

確認した所、現在カーソルがある位置より後の文字を置き換えるようになっていました。
文書の一番上にカーソルを持っていって、4)を実行してみてください。

やっている事は、
[編集]-[置換]で、「─」→「」(空欄)に置換。
[編集]-[置換]で、「│」→「」(空欄)に置換。
…
を罫線文字全部に対して行っています。

試しに一部の罫線文字を手動で置換してみると消えませんか？

--
…と、よくよく考えたらマクロを使わずにワイルドカード指定で置換した方が簡単でした。
こちらの手順の方が良いでしょう。

1) [編集]-[置換]で「検索と置換」ダイアログを表示。
2) 「オプション」をクリックし、広げる。
3) 以下の条件を指定。
検索する文字列：[─│┌┐┘└├┬┤┴┼━┃┏┓┛┗┣┳┫┻╋┠┯┨┷┿┝┰┥┸╂]
置換後の文字列：　←(空欄、スペースも削除)
検索方向：文書全体
ワイルドカードを使用する：チェック
後は全てチェックoff
4) 「全て置換」を実行。

お礼

再挑戦しました。

ワイルドカード指定、マクロ両方試しましたが、消去不可能でした。　No.５の方の言われるとおり、イメージ画像として、認識しているのかもしれません。　いろいろお手数をおかけしました。ありがとうございました。

補足

再度お手数おかけしまして、申し訳ございませんでした。

> 試しに一部の罫線文字を手動で置換してみると消えませんか？

はい、残念ながら消えませんでした。

２番目の方法では、障害が・・・・・検索する文字列の出し方がわからないのです・・・・

で、とりあえず、任意の文字を指定して指示通りの操作を行ったところ、その文字は消えました。

検索する文字列の出し方がわかれば、ＯＫだと思いますので、出し方を教えていただければと思います。

因みに、コピペでは、入らないんですね・・・・

会社からですので、再挑戦は、来週になると思います。

回答No.5

imogasi

＞スキャナで取り入れ
写真を撮ったと同じく、イメージ画像としてファイルが
出来ているはずです。
＞ワードへ張り付けた
画像を貼りつけた状態でしょう。
＞文章の編集
普通ワードで作る文章部分は、文字コードでファイルが作られます。罫線は別の仕組み（書式）で有無を保持しているでしょう。
本質問のニーズに応えるには
（１）画像の中から罫線直線部分を画像認識し、取り除く。仕様によっては、罫線線素コードに起き換える。
（２）文字画像部分は文字と認識し、文字コードに同定し変換する。
そういう機能を持った特別のソフトが必要と思います。
特別の市販のOCRソフトはあります。ワードにはその機能は
現状ではないでしょう。ワードの搭載機能が手書き文字認識まで来ていますが。

お礼

詳しく教えていただき、ありがとうございます。

イメージ画像としてファイル認識しているようです。

指摘して頂かなければ、気づかなかったです。

ありがとうございました。

回答No.4

tds2a

補足します。
私は、別のソフトで文字を認識して編集しますので結果はタイピングと同じにフォントの変更も可能です。

回答No.2

neKo_deux

マクロを使用して罫線文字を削除する手順を説明します。

対象文書(コピーしておく方が吉)を開いている状態で、
1) [Alt]+[F11]でVisual Basicエディタを起動。
2) 左側のProject(文書名)で右クリック-[挿入]-[標準モジュール]で「文書名 - Module1(コード)」のウインドウを開く。
3) 以下の内容を貼り付け。
－－－－－ここから－－－－－
Sub k_Rep()
Dim strSrc As String
Dim iLen, iCount As Integer
strSrc = "─│┌┐┘└├┬┤┴┼━┃┏┓┛┗┣┳┫┻╋┠┯┨┷┿┝┰┥┸╂"
iLen = Len(strSrc)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

For iCount = 1 To iLen
With Selection.Find
.Text = Mid(strSrc, iCount, 1)
.Replacement.Text = ""
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next iCount
End Sub
－－－－－ここまで－－－－－
4) Word画面、[ツール]-[マクロ]-[マクロ]の「k_Rep」を「実行」

の手順でどうでしょう？

補足

細かな手順を示していただき、ありがとうございます。

この手順の　最後の実行をクリックした後、１０分ほど経ちますが、まだ消えません。この方法では消えないのでしょうか

因みに、スキャンで張り付けた文章ではなく、ワードで作成した文章でも消えなかったのですが・・・・

私の操作方法が、間違っているのでしょうか・・・・・

回答No.1

tds2a

最近のＯＡ機器の発展の速度が速いので自身のある回答はできませんですが、
現在、私の使っている機器とソフトでは罫線が多い場合は
新規にタイピングした方が早いこともあります。
所要時間を無視して罫線や枠線を除いて編集することは可能です。

補足

>所要時間を無視して罫線や枠線を除いて編集することは可能です。

どのような方法で可能なのでしょうか・・・
手順を教えていただければと思いますが・・・・