如何在MS Word的每個標題末尾應用宏？

Question

我有一個文件與各種標題（所以不一定標題1或標題2 - 但所有類型的標題）。

我想要做的是寫一個宏，例如，將在每個標題的末尾刪除2個空格。

例如，我們有

這是一個標題

在標題的末尾，我會做：

Selection.Delete Unit:=wdCharacters, Count:=2 

我需要這在每個標題的末尾被應用。

有誰知道如何做到這一點？

Answer 1

轉到第一個標題：

Selection.GoTo What:=wdGoToHeading,Which:=wdGoToFirst 

轉到下一個標題

Selection.GoTo What:=wdGoToHeading,Which:=wdGoToNext 

檢查要看到，如果你已經達到了最後的標題：當前的

x=Selection.Start 
    Selection.GoTo What:=wdGoToHeading,Which:=wdGoToNext 
    if x = Selection.Start then '... last heading reachd 

轉到結束標題（例如刪除字符：

Selection.EndKey Unit:=wdLine