核心步驟：修改註冊表以超越限制
這項技巧是利用 Windows 的輔助使用功能「篩選鍵」來覆蓋標準的鍵盤速度設定。
按下 Win + R 鍵，輸入 regedit 並按下 Enter 開啟登錄編輯器。
導航至以下路徑：
HKEY_CURRENT_USER\Control Panel\Accessibility\Keyboard Response
在右側視窗中修改（或建立）以下字串值（REG_SZ）：
AutoRepeatRate：設定為更小的值。此數值代表重複的時間間隔（單位為毫秒）。例如：
設定為 10：每秒重複約 100 次。
設定為 6：每秒重複約 160 次。
AutoRepeatDelay：設定重複前的延遲時間。建議設定為 200 或 300 毫秒。
DelayBeforeAcceptance：設定為 0。
BounceTime：設定為 0。
Flags：設定為 59（十進制）。這個數值會強制啟動篩選鍵並套用自定義速率。
重新登入或重啟電腦以使設定生效。
Sub ¥¨¶°1()
'
' ¥¨¶°1 ¥¨¶°
'
'
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=397.7, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=416.05, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=458.6, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=486.95, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=508.2, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=529.45, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=557.8, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=586.15, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=593.25, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=600.35, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=607.4, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=614.5, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=621.6, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=628.7, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=635.75, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(2).SetWidth ColumnWidth:=635.75, RulerStyle:= _
wdAdjustNone
Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter. _
LinkToPrevious
End Sub
Sub ¥¨¶°2()
'
' ¥¨¶°2 ¥¨¶°
'
'
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter. _
LinkToPrevious
Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=178.9, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=186, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=207.25, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=221.4, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=242.7, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=249.75, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=271.05, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=292.3, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=320.65, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=341.9, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=356.1, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=370.25, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=377.35, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=384.45, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=391.5, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=398.6, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=405.7, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=419.85, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=426.95, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=434.05, RulerStyle:= _
wdAdjustNone
Selection.Tables(1).Columns(3).SetWidth ColumnWidth:=434.05, RulerStyle:= _
wdAdjustNone
End Sub
插入分隔符號: 自下頁起
Selection.InsertBreak Type:=wdSectionBreakNextPage
插入分隔符號: 接續本頁
Selection.InsertBreak Type:=wdSectionBreakContinuous
fsutil
---- 支援的命令 ----
8dot3name 8.3 名稱管理
behavior 控制檔案系統行為
dax Dax 磁碟區管理
dirty 管理磁碟區的已變更位元
file 檔案特定命令
fsInfo 檔案系統資訊
hardlink 永久連結管理
objectID 物件識別碼管理
quota 配額管理
repair 自我修復管理
reparsePoint 重新分析點管理
storageReserve 儲存空間保留管理
resource 交易資源管理員管理
sparse 疏鬆檔案控制
tiering 存放裝置階層處理屬性管理
transaction 交易管理
usn USN 管理
volume 磁碟區管理
wim 透明的 WIM 裝載管理
https://learn.microsoft.com/zh-tw/office/vba/api/word.addin
if exist "FOLDER\" echo FOLDER exist
if exist "FILE" echo FILE or FOLDER exist
if exist "FOLDER\nul" echo not use
if exist "FILE\." echo also FILE exist
Paragraphs.Add 會將 Paragraphs set 增加一個 paragraph, 但是返回的並不是新增的而是新增之前倒數一個 paragraph.
