日本手機漫畫成為新商機

之前我自己曾經想過「電子書閱讀機的殺手級內容--漫畫書？」，今天剛好看到台灣出版資訊網上一篇新聞「日本手機漫畫成為新商機」，果然大家有志一同，都找到這個有賺頭的領域去。

如果對照1109期商業週刊中訪問尖端發行人黃鎮隆的「印書像印鈔票的秘密--尖端執行長二十年的釣魚經營學」一文中格林文化發行人郝廣才所言「以前一本漫畫發行幾十萬本，是常有的事，現在，漫畫就像書一樣，能賣超過一萬本，就算是暢銷，」，至少對於漫畫，紙本的地位已經越來越不保了。

但話說回來，用手機看漫畫，我想螢幕還是算小了點，雖然已經比看小說好太多，但若是用電子書閱讀機，顯然舒適多了！

取出WORD文件中所有文字框的文字

我的工作因為要整理作者提供的稿件，因此一直有個需求就是把WORD文件中所有文字框（有加上文字的快取圖形、水平或是垂直的文字框）中的文字取出來，這樣我就不需要一個一個文字框作Copy貼的動作，今天剛好找到了一個合用的範例如下：

Dim sh As Shape
Dim txt As String
For Each sh In ActiveDocument.Shapes
   If sh.TextFrame.HasText Then
   txt = sh.TextFrame.TextRange.Text
   MsgBox (txt)
   End If
Next sh

只要把MsgBox那行換成你需要的動作，就可以將取出的文字再利用了，我自己是把所有文字匯集到一個跟WORD文件同名，但加上 "_shape" 字尾的文字檔：

Sub 匯出文字框的文字()
'
fname = ActiveDocument.FullName 'Word檔名
txtFname = Left(fname, Len(fname) - 4) & _
    "_shapes.txt" 'txt檔名
Set fs = CreateObject("Scripting.FileSystemObject")
Set txtfile = fs.CreateTextFile(txtFname, True) '建立文字檔

Dim sh As Shape
Dim txt As String

For Each sh In ActiveDocument.Shapes
   If sh.TextFrame.HasText Then
   txt = sh.TextFrame.TextRange.Text
   txtfile.writeline txt
End If
Next sh
txtfile.Close
End Sub

延伸閱讀：

• Select a SINGLE Shape using VBA