彰化一整天的論壇

 找回密碼
 立即註冊
查看: 370|回復: 0

word取代含頁首頁尾

[複製鏈接]
發表於 2017-4-17 19:54:00 | 顯示全部樓層 |閱讀模式
  1. Dim myStoryRange As Range


  2.         For Each myStoryRange In ActiveDocument.StoryRanges
  3.         With myStoryRange.Find
  4.             .Text = "Text to find to replace goes here"
  5.             .Replacement.Text = "And the replacement text goes here"
  6.             .Wrap = wdFindContinue
  7.             .Execute Replace:=wdReplaceAll
  8.         End With
  9.         Do While Not (myStoryRange.NextStoryRange Is Nothing)
  10.             Set myStoryRange = myStoryRange.NextStoryRange
  11.             With myStoryRange.Find
  12.                 .Text = "Text to find to replace goes here"
  13.                 .Replacement.Text = "And the replacement text goes here"
  14.                 .Wrap = wdFindContinue
  15.                 .Execute Replace:=wdReplaceAll
  16.             End With
  17.         Loop
  18.     Next myStoryRange
複製代碼
資料來源: http://stackoverflow.com/questio ... pply-on-header-also
回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2018-7-22 12:24 , Processed in 0.027966 second(s), 11 queries , Apc On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表