[發問] 請問如何快速將每一筆資料串起來

尋找, 取代

本帖最後由偉婕於 2018-6-12 23:54 編輯

同事說她在[google日曆]中輸入了一些資料後，想將資料匯出來在Word中再做處理，可是發現資料長度好像有限制，有些較長的資料都會被截成兩行，要怎麼快速將每一筆資料串在一起？

我試著於[尋找目標]中輸入(^13)([!^1-^127])(*)(^13)
而[取代為]中輸入\2\3\4
是可以將大部分的資料每一筆都串起來，可是如果遇到截斷的地方是數字的話就失效了

後來我試著將所有^p取代掉，將所有資料全部串在一起，再拆資料
可是因為她一次都匯很多天的資料，所以就會把[2018-XX-XX(週X)]也串在一起，因此要教她很多尋找取代的步驟，由於她對這方面操作較不熟
所以想問問大家有沒有其他解法，先謝謝大家了

==========================================

例子：
2018-06-12(週二)
07:00 - 07:30 關於保留英文字部分,可以利用尋找功能關於保留英文字部分,可以利用尋找功
能關於保留英文字部分,可以利用尋找功能
08:00 - 09:00 關於保留中文字部分,可以利用取代功能
09:00 - 10:00 關於保留中文字部分,可以利用取代功能關於保留中文字部分,可以利用0927-
123456
10:00 - 10:30 關於保留中文字部分,可以利用取代功能關於保留中文字部分,可以利用尋找
1號

---------------------------------
例子最後希望呈現結果：
2018-06-12(週二)
07:00 - 07:30 關於保留英文字部分,可以利用尋找功能關於保留英文字部分,可以利用尋找功能關於保留英文字部分,可以利用尋找功能
08:00 - 09:00 關於保留中文字部分,可以利用取代功能
09:00 - 10:00 關於保留中文字部分,可以利用取代功能關於保留中文字部分,可以利用0927-123456
10:00 - 10:30 關於保留中文字部分,可以利用取代功能關於保留中文字部分,可以利用尋找1號

樓主熱帖

偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 376
主題: 84
精華: 0
積分: 419
點名: 0
作業系統: Win 8
軟體版本: Office 2007
閱讀權限: 100
性別: 女
註冊時間: 2010-4-30
最後登錄: 2022-6-2

論壇貢獻勳章美女勳章熱烈參與勳章

4^#

發表於 2018-6-17 23:39 | 只看該作者

回復 3# linyancheng

感謝版主的幫忙，解決我同事及我的問題了，再次感謝！

偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

linyancheng

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 228
主題: 73
精華: 2
積分: 333
點名: 0
作業系統: Windows 10
軟體版本: Office 2000, 2019
閱讀權限: 100
性別: 男
來自: 彰化縣
註冊時間: 2013-7-18
最後登錄: 2024-10-13

3^#

發表於 2018-6-17 19:53 | 只看該作者

VBA代碼文件

資料串連.zip (6.74 KB)

TOP

linyancheng

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 228
主題: 73
精華: 2
積分: 333
點名: 0
作業系統: Windows 10
軟體版本: Office 2000, 2019
閱讀權限: 100
性別: 男
來自: 彰化縣
註冊時間: 2013-7-18
最後登錄: 2024-10-13

2^#

發表於 2018-6-17 19:37 | 只看該作者

本帖最後由 linyancheng 於 2018-6-17 19:40 編輯

試試這個VBA代碼，
可處理截斷成兩行或三行以上的資料串，
但日期及時間格式必須有此規律性。

Sub 資料串連()

Dim P As Paragraph
Dim timeP As Paragraph

For Each P In ActiveDocument.Paragraphs
      If Left(P.Range.Text, 13) Like "??:?? - ??:??" Then
         Set timeP = P
      ElseIf Left(P.Range.Text, 10) Like "????-??-??" Then
         '不處理
      Else
         If Not timeP Is Nothing Then
            timeP.Range.Text = Replace(timeP.Range.Text, vbCr, "")
         End If
      End If
Next P

End Sub

TOP