我想復制word檔案中的文本（包括頁眉、頁腳、表格和文本框等所有內容），然后我想用一個宏來隱藏原始文本（或隱藏的文本），同時保留格式。
我做了一些研究，并嘗試做了一些東西，這里是我到現在為止所做的作業：
Dim text As Word.Range
Set text = Selection.Range.Duplicate
選擇.插入段落后
Selection.InsertAfter Text:=text.Text.
text.Font.Hidden = True。
這個宏的問題在于它沒有復制文本的格式，而是將文本復制為 "純文本"。
你有辦法保持格式嗎？
你有辦法保持格式嗎？
uj5u.com熱心網友回復：
下面的代碼應該能滿足你的需要。你需要確保source范圍不包括target范圍的開始。
Dim source As Range, target As Range
With ActiveDocument
.Content.InsertParagraphAfter
Set source = .Content
source.MoveEnd wdParagraph, -1 .
.Characters.Last.FormattedText = source.FormattedText
source.Font.Hidden = True .Font.Last.FormattedText = source.FormattedText.
結束 與
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/307754.html
標籤：