字VBA：需要刪除幀，但保持格式化

我現在有像這樣的行和列的文件格式（這大約是100行6列在實際的例子）一個字：字VBA：需要刪除幀，但保持格式化

a b c d 
1 x x x x 
2 x x x x 
3 x x x x 
4 x x x x

萬物皆有一個單獨的框架，即在這個例子中有24個框架。但是，當我刪除任何框架時，格式不會保持不變（文字傾向於位於Word文檔的左上角）。

這是一個問題的原因是因爲我無法通過鍵入'幀格式'來添加到文檔中。

我將文檔從xps轉換爲docx。

我試過這個VBA代碼，確實刪除了幀但沒有保留格式。

Sub CleanUpExport() 
Dim aFrame As Frame 
Dim p As Paragraph 
Dim l As Single 

For Each aFrame In ActiveDocument.Frames 
    aFrame.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage 
    l = aFrame.HorizontalPosition 
    For each p In aFrame.Range.Paragraphs 
     p.LeftIndent = l 
    Next p 
    aFrame.Delete 
Next aFrame 
End Sub

任何幫助表示讚賞。

來源

2017-06-19 Monty

如果您刪除幀之前複製幀的內容，然後在同一位置粘貼，你應該得到相同的格式之前

來源

2017-06-19 10:16:18 Sam

有1500個字，也約1500架，這不會是實際的。我試圖複製整個文檔並使用各種粘貼特殊選項，但都沒有工作。一些刪除了幀，但沒有（除了圖片選項）保持格式。但我不能選擇圖片選項，因爲我需要之後編輯文檔。 – Monty

我不確定我是否完全理解您的問題，但我想您的片段可以調整爲逐幀顯示，並通過剪切和粘貼替換它們的內容 – Sam

字VBA：需要刪除幀，但保持格式化

回答

相關問題