|
||
|
Senior Member
 加入日期: Apr 2005
文章: 1,207
|
請問word要怎麼用取代的方式切表格
 我有Excel資料如1 貼到Word中排版如2 想要依自動方式切開讓每頁只放1個表 所以需要將表格斷開如3 手動的方式是按Ctrl+Shift+Enter 然後在兩表中間的空行按Ctrl+Enter 但不知道能不能有自動化取代的方式 例如先搜尋「標題」取代成「Ctrl+Shift+Enter」 然後再搜尋「^p」取代成「Ctrl+Enter」(我試取代成^m或^n之類的都失敗) 還是只能寫巨集跑? 謝謝 |
|||||||
2022-03-11, 08:38 AM
#1
|
|
|
Senior Member
加入日期: Apr 2005
文章: 1,207
|
代碼:
Sub 巨集1()
'
' 巨集1 巨集
On Error Resume Next
Application.WindowState = wdWindowStateMaximize
Dim s As String
s = ""
Dim j As Integer
j = 0
Dim k As Integer
k = 0
Do
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.HomeKey Unit:=wdRow
Selection.SelectCell
s = Selection.Text
If (Left(s, 2) = "00") And (Len(s) > 10) Then '判斷是標題
Selection.InsertBreak Type:=wdPageBreak
j = j + 1
End If
k = k + 1
Loop Until (j > 590) or (k > 10000) 'j看有幾個表減1, k設比行數多防變成死循環
End Sub
先寫一個巨集跑 只是這樣有591個表佔了大約400頁要切 每切一個表就要幾10秒要跑滿久的 (咦, 好像是剛開始幾次切的時間比較久, 後面大概3秒鐘切1個表, 還滿快的) 此文章於 2022-03-11 09:40 AM 被 dkjfso 編輯. |
||
|
2022-03-11, 09:26 AM
#2
|
|
