答案1
我認為你需要用VBA來實現這個要求。
開啟 VBA 控制台:點選“Alt + F11”
下面是錄影畫面產生的宏,大家可以參考:
Sub Macro5()
Selection.TypeText Text:="100"
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "parameter1"
.Replacement.Text = "100"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.TypeText Text:="200"
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "parameter2"
.Replacement.Text = "200"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.TypeText Text:="300"
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "parameter3"
.Replacement.Text = "300"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
只需要修改以下兩個參數即可控制變數的值:
TypeText 文字:="XX" Replacement.Text = "XX"
答案2
我想我找到了一種非常接近您想要的方法,但是您必須使用文件的高級屬性,而不是文件中的表格。
以下是從頭開始的步驟(適用於 Windows 上最新版本的 Word):
- 建立一個新文檔
- 轉到檔案➡屬性(右上角)➡進階屬性:
- 然後轉到出現的視窗中的“自訂”選項卡
- 在這裡您可以建立自訂文件屬性,您可以使用它來儲存參數值,如下 GIF 顯示(抱歉,拼字錯誤):
現在回到文檔。在那裡你可以使用字段代碼顯示文檔屬性。
最簡單的方法是前往您希望參數文字出現的位置,按CTRL+ F9,鍵入
DOCPROPERTY parameter_name \* MERGEFORMAT
,然後按F9更新文件中的所有欄位程式碼(包括您剛剛建立的欄位程式碼):
- 在您希望參數出現的每個位置重複此操作
若要變更整個文件中的參數值,請在「進階屬性」中更新它(步驟 2-3),返回文件並按 更新所有欄位程式碼F9。
這是一個簡短的演示: