[發問] 請問如何快速將每一筆資料串起來 尋找, 取代

偉婕

同事說她在[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號

linyancheng

試試這個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

linyancheng

VBA代碼文件

偉婕

回復 3# linyancheng

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