gonzalcvt68m@outlook.com

翻譯公正服務將word，轉換好的東西，擺到Excel表格上，再複製內容到notepad上，Ta.La...呼~~~~，總算搞定啦~

在word中的檢視-巨集-檢視巨集-將巨集取名字(或不改也OK)按編纂，將以下程式複製到Sub 巨集名稱() ……End Sub() 中間

 
<若文章是用換行符號來做固定段落樣式的，想要去除換行的大大請看本文末段>

是以想哄騙word，的巨集指令到場換行命令，
問題來了......!!!
起首是，word換行指令是啥?
利用錄製巨集指令體例，小米錄到word換行時，是用"Selection.TypeParagraph"這個敕令行。可是，小米依樣放入取代號令時，word不給帳。
 
所以小米開始展開爬文動作，恩，有看到"^p"是word換行指令，行欠亨!!
後來找到chr(10)，也不成，最後是chr(13)，搞定~。
 
十分困難，讓word，乖乖將轉出的文字內容換行了，小米急如星火地將內容拷貝複製到notepad，上。
唉~，居然照舊故天成翻譯公司，，仍是不異狀況，一片字海，Orz.......|||
 
問題浪再度襲來......Orz.!!!
翻譯

貯存巨集，然後將需要分段的文章內容複製到word中，記得游標要回到最前面，然後在檢視-巨集-檢視巨集-拔取轉換巨集程式 –按執行
(曩昔小米都使用notepad的這個純真的呈現，將一些有參雜字型表格等設定複雜內容的工具，直接複製到notepad裡面，可以很快速地獲得所需文字，不必再去刪減點竄那些設定的動作，就因為它很純真，效果......目前它太單純啦!!!，Orz....)
With Selection.Find

將上面的所有可代替的再次統統用上，仍是一樣，因為notepad自己是很"單純"的文字顯示。輸入的，"n"或^13或其他換行字符城市被乖乖原字呈現翻譯

End With


Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.Replacement.ClearFormatting
繞了一大圈，讓小米學了很多，固然有些用不大到。

Selection.Find.ClearFormatting

也不知道為何word跟notepad醬子不合~
.Forward = True

至於要將文字內容裡的不需要的換行部份砍掉的話，就簡單多了翻譯只要將文章複製到word裡面,操縱word的取代號令-更多(M)-底下的指定方式(E)選段落標記(P)-全數庖代 就搞定了~不外要注意的是:若原文章沒有在段落部份留空格的話~ 哪可就是真真正正的文字海喔~ 謹慎
.Replacement.Text = Chr(13) + "　　" '這段是要將上行指令找到的空格取代成換行並插足分段的空格

再將內容全部複製到空白的Excel檔案中，在A1貯存格或直接貼上內容，再次拔取掃數(按A欄左側1行上方的那個小貯存格；或是在任何一個空白儲存格上按Ctrl+A鍵) 複製，將內容貼到notepad上就大功樂成囉。

弄了老半天，之後....，小米倏忽靈光一閃，呵呵
.Text = "    " '找到分段的空格部門<看倌要哄騙時翻譯社得視文章內容要調劑喔~>
如斯段落即分出。

此次小米要跟各人分享的是Word與記事本(NotePad)--換行問題
 
因為小米迷電子書，所以會下載一些網路分享的.TXT，格式文本電子書來看
(看.PDF，格局有點不是很方便，對於kindle來講，字體沒像ipad那樣可隨意變換，有點惋惜翻譯)
 
有時候下載下來的檔案，看起來因沒有分段，一路到底，儘管有空格，逗點符號等辨別句子跟場景。然則，畢竟不像段落那樣，給人看了有中段休息的Fu~。
感受會是一大片文字海~，有溺斃的窒息感~。像如許:

word vs notepad 換行戰記(添加)