A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
こんばんは。
別の質問の中で、私が回答していますから、そちらを参考にしたほうが早いかもしれません。
Wordのマクロは、標準的には、当該Document の"ThisDocument" モジュールを使います。
というよりも、Excelは、オブジェクトが多いので、標準モジュールを多用します。
ただ、宗派や版によっても違うかとは思いますが、漢訳法蓮華経の読み下しは、どこかにあったような気がします。
それと、ふりがなとおっしゃっていますが、Wordのルビという前提で出来上がっていますから、違う場合は、正しく出ません。Word Document 上のルビそのものからも、ふりがなデータは取り出すことは可能です。今回は、あくまでも、虫食いを作るためのものです。
http://oshiete1.goo.ne.jp/qa5384755.html
#3
いずれにしても、ふりがなデータのみを抜き出すなら、すでに、Wordを想定した回答が出ていますから、そちらを参照してからにしていただけませんでしょうか。こちらは、括弧の半角のみですが、もうひとつのほうは、全角・半角両方の括弧をサポートするように出来ています。
No.2
- 回答日時:
こんにちは。
>ワードのマクロでできるのか、カッコ付きのテキストから検索置換するのか教えてください。
「保存すると書式なし」→「ほぞん□□□しょしき□□」となることですと、括弧以外の文字に対して、全角空白にして、虫食い形式にすることでしょうか?
本来、ふりがなデータを抜き出してリスト化するのは簡単なのですが、虫食いデータにするのは、なかなか難しいです。特に、元のご質問のような文章ですと、() 付きの文章が交じり合っている場合は、誤動作します。
一旦、テキストに出力して、括弧つき・ふりがなデータだけを残して、全角空白にして、それを再び、Wordに呼び出し、そのWordの表示をスペースが見えるように切り替えるものです。
'-------------------------------------------
Sub PingPickUp()
'フリガナデータの抽出
Dim newDoc As Document
Dim Matches As Object
Dim Match As Object
Dim FNo As Integer
Dim oFno As Integer
Dim TextLine As String
Dim Buf As String
Dim i As Long
Selection.HomeKey Unit:=wdStory
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
If InStr(1, Selection.Text, "(", 1) = 0 Then
MsgBox "フリガナデータがないと思われます。", vbInformation
Exit Sub
End If
On Error GoTo ErrorHandler
Selection.Copy
Set newDoc = Word.Documents.Add
newDoc.Content.Paste
newDoc.SaveAs "$$tmp.txt", wdFormatText
newDoc.Close
With CreateObject("VBScript.RegExp")
.Pattern = "\([^\)]+\)" 'パターン
.Global = True
oFno = FreeFile()
Open "$$otmp.txt" For Output As #oFno
FNo = FreeFile()
Open "$$tmp.txt" For Input As #FNo
Do While Not EOF(FNo)
Line Input #FNo, TextLine
Buf = TextLine
If .Test(Buf) Then
Set Matches = .Execute(Buf)
i = 1
For Each Match In Matches
Mid(Buf, i, Match.firstindex - i + 1) = String(Match.firstindex - i + 1, Chr(&H8140))
'括弧を取る
Buf = Replace(Buf, "(", "", , , 1): Buf = Replace(Buf, ")", "", , , 1)
i = Match.firstindex + Len(Match.Value) + 1
Next
Else
Buf = String(Len(Buf), Chr(&H8140))
End If
Print #oFno, Buf
Buf = ""
Loop
End With
ErrorHandler:
If Err.Number > 0 Then
MsgBox Err.Description
End If
Close #FNo
Kill "$$tmp.txt"
Close #oFno
If Dir("$$otmp.txt") <> "" Then
With Documents.Open("$$otmp.txt")
.Windows(1).View.ShowSpaces = True
End With
End If
End Sub
すごいプログラムありがとうございます。私は初心者ですので、早速標準モジュールの中へコピペしましたが「プロシャージャーの呼び出し、引数が不明」で□□ばかりになりました。
主旨は虫食い形式にはせずに、カッコ内のふりがなデータを抜き出してテキスト化することと、カッコ以外の文字をテキストにしたいのです。
例 妙(みょう)法(ほう)自我得佛來(じ-が-とくぶつらい)…を
「妙法自我得佛來…」と「みょうほうじ-が-とくぶつらい…」にしたいのです。
素人ですが、せっかくワードデータに漢字とふりがながあるのだから、手作業でなく、自動処理したいと頭から湯気がでています。
再度よろしくお願いします。
No.1
- 回答日時:
「保存(ほぞん)すると書式(しょしき)なし」
↓
エクセルシートに貼り付けて
データ→区切り位置 で(を指定したり )を指定したりすれば
取り出すことは可能です。
文章によって分離されたふりがなが入るセルの列が不ぞろいになる場合も多いでしょうから、作業が楽になるかどうかはわかりません。
取り出しが終わったら、不要な文字を削除して
ワードに貼り付けます。
この回答への補足
ありがとうございました。( の区切り位置で下記のように
Iほぞん)すると書式Iしょしき)なし」
ふりがなの所で分かれるので、後は手作業で
ほぞん□しょしき□
としていきます。が文字量が多いので
マクロとかで()かっこかっこの間の文字をとりだして、テキストにすることはできないでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
夏が終わったと感じる瞬間って、どんな時?
まだまだ暑い今日この頃。 しかしながら、もう夏は終わっている!……はず。 あなたが思う「夏が終わった!」エピソードを教えてください。
-
【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
2024年は「名探偵コナン30周年」「涼宮ハルヒ20周年」などを迎えますが、 あなたが「もうそんなに!?」と驚いた○○周年を教えてください。
-
ホテルを選ぶとき、これだけは譲れない条件TOP3は?
ホテルを探す時、予約サイトで希望条件の絞り込みができる便利な世の中。 あなたは宿泊先を決めるとき「これだけは譲れない」と思う条件TOP3を教えてください。
-
昨日見た夢を教えて下さい
たまにすごいドラマチックな夢見ること、ありませんか? 起きてからも妙に記憶に残っているような、そんな夢。
-
14歳の自分に衝撃の事実を告げてください
タイムマシンで14歳の自分のところに現れた未来のあなた。 衝撃的な事実を告げて自分に驚かせるとしたら何を告げますか?
-
マクロで(カッコ)内のテキストと分けたい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワード:右上の小さい文字
-
Ctrl+Shift+C、Ctrl+Shift+Vが...
-
エクセルでマイナスの%表示を...
-
ワードで改行すると一行開いて...
-
Powerpointで、コピーすると、...
-
縦書き日本語入力で( )をこ...
-
Google スプレッドシートを使...
-
エクセル 期日の半年前になる...
-
エクセルの機能について
-
ワードで既に使われている色の使用
-
Excel 条件付き書式 行ごとに...
-
パワーポイントで乗数はどうや...
-
ワード確定していた全角文字(...
-
wordで縦書きで「あ」に濁点を...
-
文字の上に線をつけたい場合
-
エクセルで奇数または偶数にだ...
-
英文での借用書書式を教えてく...
-
フォント、一文字で「ちゃん」&...
-
丸注(注を○で囲んだもの)の出...
-
word 背景について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワード:右上の小さい文字
-
ワードで改行すると一行開いて...
-
Ctrl+Shift+C、Ctrl+Shift+Vが...
-
エクセルでマイナスの%表示を...
-
Powerpointで、コピーすると、...
-
縦書き日本語入力で( )をこ...
-
Google スプレッドシートを使...
-
エクセル 期日の半年前になる...
-
英文での借用書書式を教えてく...
-
パワーポイントで乗数はどうや...
-
ワードの文字の濃さを揃えたい。
-
この、¥1,235って何のお金が払...
-
ワードで既に使われている色の使用
-
レポート
-
ワード確定していた全角文字(...
-
wordの表にテキストをペースト...
-
Excel 条件付き書式 行ごとに...
-
フォント、一文字で「ちゃん」&...
-
【EXCEL2002】「貼り付け先の書...
-
wordで縦書きで「あ」に濁点を...
おすすめ情報