- 帖子
- 230
- 主題
- 75
- 精華
- 2
- 積分
- 337
- 點名
- 0
- 作業系統
- Windows 10
- 軟體版本
- Office 2000, 2019
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 彰化縣
- 註冊時間
- 2013-7-18
- 最後登錄
- 2025-1-20
|
本帖最後由 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 |
|
發表於 2018-6-17 19:37
| 
