懸案のワード文書からアメブロへの転載が短縮化されましたので、一昨日から、アメブロを再開いたしました。
昨日は、第十二章第19話をアップしました。前回『🟦他サイトからカクヨムへの転載について（その②）』の話の中の1️⃣を少し詳しく解説します。
1️⃣画像以外のワード文書を先に作成します。振り仮名も付いた完全原稿です。全画面コピペしてアメブロの通常表示画面に貼ります。プレビューしてエラーが出ないことを確認して下さい。
①ワード文書の完全原稿を作成する前の元原稿を作成します。ワードで作成しても良いし、wzエディターなどのエディターで作成しても構いません。振り仮名も仮に付けておきましょう。こんな感じで付けることが多いですよね。
岳明軒（ユエ・ミンシュエン）
挿絵の左上の画像はそのような元原稿です。
②元原稿のこの形「岳明軒（ユエ・ミンシュエン）」を青空文庫形式「｜岳明軒《ユエ・ミンシュエン》」の形に替えます。
正規表現置換を使えるエディター〈wzエディターなど〉だと次のようにやります。
―――――――――――――――――
正規表現検索
([一-鿿]+)（([^）]*)）
置換表現
｜$1《$2》
―――――――――――――――――
ワードでやるなら、正規表現置換の代わりにワイルドカードを使用します。
手順は次のとおりです。
1) Ctrl+H（検索と置換）を開く。
2) 「詳細設定」を開き、「ワイルドカードを使用する」にチェックを入れる。
3) 次を設定して「すべて置換」。
―――――――――――――――――
検索する文字列（Find what）
([一-龯]@)（([!）]@)）
置換後の文字列（Replace with）
｜\1《\2》
―――――――――――――――――
これで、ワード文書全体が、青空文庫形式「｜岳明軒《ユエ・ミンシュエン》」になりました。
挿絵の左下の画像は青空文庫形式「｜岳明軒《ユエ・ミンシュエン》」で表現された原稿です。この原稿をワードにコピペします。
③コピペしたワード文書において、次のマクロを実行します。マクロ名は、AozoraRubyToWordRuby()としておけばよろしいでしょう。
―――――――――――――――――
Option Explicit
Sub AozoraRubyToWordRuby()
' 青空文庫形式：｜親文字《ルビ》 を、Wordのルビ（PhoneticGuide）に変換する
' ルビ書式：游明朝 10pt を指定（必要なら下の定数を変更）
Const RUBY_FONT_NAME As String = "游明朝"
Const RUBY_FONT_SIZE As Single = 10
Const RUBY_RAISE As Long = 0 ' 上下位置。必要なら 1～2 程度で微調整
Dim rngSearch As Range
Set rngSearch = ActiveDocument.Content
With rngSearch.Find
.ClearFormatting
.Replacement.ClearFormatting
.MatchWildcards = True
.Text = "｜(*)《(*)》"
.Replacement.Text = ""
.Wrap = wdFindStop
.Forward = True
.Format = False
End With
Do While rngSearch.Find.Execute = True
Dim matchString As String
matchString = rngSearch.Text
Dim posOpen As Long, posClose As Long
posOpen = InStr(matchString, "《")
posClose = InStr(matchString, "》")
If posOpen <= 2 Or posClose <= posOpen Then
rngSearch.Collapse Direction:=wdCollapseEnd
GoTo ContinueLoop
End If
Dim parentText As String, rubyText As String
parentText = Mid$(matchString, 2, posOpen - 2)
rubyText = Mid$(matchString, posOpen + 1, posClose - (posOpen + 1))
' 念のため空を弾く
If Len(parentText) = 0 Or Len(rubyText) = 0 Then
rngSearch.Collapse Direction:=wdCollapseEnd
GoTo ContinueLoop
End If
' 親文字に置換
rngSearch.Text = parentText
' ルビを付与（ルビ側のフォント/サイズを指定）
rngSearch.PhoneticGuide rubyText, _
wdPhoneticGuideAlignmentCenter, _
RUBY_RAISE, _
RUBY_FONT_SIZE, _
RUBY_FONT_NAME
' 次の検索へ（いま置換した箇所の末尾に移動）
rngSearch.Collapse Direction:=wdCollapseEnd
ContinueLoop:
Loop
End Sub
―――――――――――――――――
注――便宜上、ワードのフォントは、游明朝、フォントサイズは20ポイントにしてあります。マクロでは、ルビのサイズしか指定出来ませんので、本文のフォントサイズの半分の10ポイントを指定しました。
挿絵の右上の画像が、振り仮名付きのワードの完全原稿です。この原稿をコピペして、アメブロの通常表示画面に貼ります。プレビューしてエラーが出ていないことを確認すれば終わりです。
2️⃣その直下に、昨日作成した画像を貼ります。第十二章第18話で一つ一つ作成した画像ですが、そのまま貼るとエラーが出ますので、第十二章第18話をHTML表示に替え、画像の部分だけをコピーしたものを元画像と言う名前で保存しておきました。下に書いたものです。これをアメブロの通常表示画面ではなくて、HTML表示画面に貼ります。これで完成です。昨日アメブロにアップロードしたものはこの方法で行いました。
<p>―――――――――――――――――</p>
<p> </p>
<p><a href="https://stat.ameba.jp/user_images/20240207/21/oislnovel/76/4a/p/o2242172915398739450.png"><img alt="" height="324" src="https://stat.ameba.jp/user_images/20240207/21/oislnovel/76/4a/p/o2242172915398739450.png" width="420"></a><br>
<a href="https://stat.ameba.jp/user_images/20240207/21/oislnovel/fb/af/p/o3390027915398739664.png"><img alt="" height="35" src="https://stat.ameba.jp/user_images/20240207/21/oislnovel/fb/af/p/o3390027915398739664.png" width="420"></a></p>
<p>紅軍の長征<br>
<a href="https://stat.ameba.jp/user_images/20240530/13/oislnovel/8c/22/j/o2250198615445228245.jpg"><img alt="" height="371" src="https://stat.ameba.jp/user_images/20240530/13/oislnovel/8c/22/j/o2250198615445228245.jpg" width="420"></a><br>
中国地図<br>
出典 建築資料研究社「住まいの民族建築学」浅川滋男著P8<br>
<a href="https://stat.ameba.jp/user_images/20240220/10/oislnovel/c8/a1/j/o1080129415403774217.jpg"><img alt="" height="503" src="https://stat.ameba.jp/user_images/20240220/10/oislnovel/c8/a1/j/o1080129415403774217.jpg" width="420"></a><br>
中国侵略<br>
東京書籍「世界史B」P329<br>
<a href="https://stat.ameba.jp/user_images/20240220/10/oislnovel/21/14/j/o1080129515403774303.jpg"><img alt="" height="504" src="https://stat.ameba.jp/user_images/20240220/10/oislnovel/21/14/j/o1080129515403774303.jpg" width="420"></a><br>
辛亥革命以降<br>
東京書籍「世界史B」P332<br>
<a href="https://stat.ameba.jp/user_images/20250205/16/oislnovel/9f/85/j/o2275161015540925271.jpg"><img alt="" height="297" src="https://stat.ameba.jp/user_images/20250205/16/oislnovel/9f/85/j/o2275161015540925271.jpg" width="420"></a><br>
<a href="https://stat.ameba.jp/user_images/20250205/16/oislnovel/0f/eb/p/o3359042415540925380.png"><img alt="" height="53" src="https://stat.ameba.jp/user_images/20250205/16/oislnovel/0f/eb/p/o3359042415540925380.png" width="420"></a></p>
<p>香港と九龍半島<br>
<a href="https://stat.ameba.jp/user_images/20250209/13/oislnovel/03/9c/j/o1319106515542257280.jpg"><img alt="" height="339" src="https://stat.ameba.jp/user_images/20250209/13/oislnovel/03/9c/j/o1319106515542257280.jpg" width="420"></a><br>
広東省中・東部<br>
出典：山川出版社「移動の地域史」松本宣郎／山田勝芳著。P61。<br>
<a href="https://stat.ameba.jp/user_images/20250210/20/oislnovel/a5/67/j/o1448104515542790228.jpg"><img alt="" height="303" src="https://stat.ameba.jp/user_images/20250210/20/oislnovel/a5/67/j/o1448104515542790228.jpg" width="420"></a><br>
香港全域「九龍地区は香港島の対岸にある」<br>
出典：山川出版社「移動の地域史」松本宣郎／山田勝芳著。P70</p>
<p>―――――――――――――――――</p>
次回は、HTML文書とはなんぞや？と言うテーマを深堀りするつもりです。ご期待下さい。ちなみに、ノベプラからアメブロへの転載は、後一月くらいで終わります。特にアメブロには魅力を感じない（金銭目的の投稿者が多すぎる）ので、もうやめます。ただ、苦労しただけの成果は私個人にはありました。