VBA - 在兩個內容控件之間設置默認換行碼

我試圖在VBA for Word中的兩個內容控件之間獲取行。我想在兩個內容控件之間設置默認換行符。如果它是兩個以上的換行符，我想刪除其他。VBA - 在兩個內容控件之間設置默認換行碼

在循環中執行我的代碼時，將字符串合併到內容控件中會使合併到內容控件中時出現多行換行。

如何在兩個內容控件之間設置默認的兩個換行符？

Content control A 
- line break 
- line break 
Content control B

來源

2017-09-29 CaptainYankee

如果您需要關於代碼的幫助，如果您在問題中包含它，它會有很大的幫助。 – braX

我找到了解決方案。子RemoveLineBreak（）昏暗RSTART作爲範圍昏暗雷德作爲範圍 ActiveDocument.SelectContentControlsByTag（「ContentC1」）項目（1）.Range.Select Selection.MoveDown單位：= wdLine，計數：= 1 設置RSTART = Selection.Range ActiveDocument.SelectContentControlsByTag（「ContentC2」）項目（1）.Range.Select Selection.MoveUp單位：= wdLine，計數：= 1 集雷德= Selection.Range 的ActiveDocument。範圍（rStart.Start，rEnd.End）。選擇 Selection.Delete Selection.InsertBreak類型：= wdLineBreak End Sub – CaptainYankee

我找到了解決辦法。

Sub RemoveLineBreak() 

Dim rStart As Range 
Dim rEnd As Range 


    ActiveDocument.SelectContentControlsByTag("ContentC1").Item(1).Range.Select 
    Selection.MoveDown Unit:=wdLine, Count:=1 

Set rStart = Selection.Range 

    ActiveDocument.SelectContentControlsByTag("ContentC2").Item(1).Range.Select 
    Selection.MoveUp Unit:=wdLine, Count:=1 

Set rEnd = Selection.Range 

    ActiveDocument.Range(rStart.Start, rEnd.End).Select 
    Selection.Delete 
    Selection.InsertBreak Type:=wdLineBreak 

End Sub

來源

2017-09-30 17:18:24 CaptainYankee

VBA - 在兩個內容控件之間設置默認換行碼

回答

相關問題