從Word文檔中的指定位置的Builiding Block插入表格。

我想插入一個定義爲構建塊的表。我將內容控件放置在文檔中的指定位置，並通過「selectcontetcontrolsbytag」引用它。當表插入到conentcontrol中時，它會轉換爲RichText。這裏是我的代碼：從Word文檔中的指定位置的Builiding Block插入表格。

ThisDocument.SelectContentControlsByTag("TermsConditions").Item(1).Range = _ 
ActiveDocument.AttachedTemplate.BuildingBlockTypes.Item(wdTypeTables).Categories.Item("Terms and Conditions Translation").BuildingBlocks.Item("Terms and Conditions Eng")

你能幫助我正確的代碼中插入指定位置積木。我也希望這個積木塊被另一個替換，當用戶將從userform，組合框等選擇其他項目。

來源

2015-12-09 Jacek Rzadca

我不確定您的意思是「它被轉換爲富文本」...

可接受的插入BuildingBlock的方法是使用傳遞目標Range對象的BuildingBlock.Insert方法。例如（基於您的代碼示例）：

Dim doc as Word.Document 
Dim rngTarget as Word.Range 
Set doc = ActiveDocument 
Set rngTarget = doc.SelectContentControlsByTag("TermsConditions").Item(1).Range 
doc.AttachedTemplate.BuildingBlockTypes.Item(wdTypeTables).Categories.Item("Terms and and Conditions Translation").BuildingBlocks.Item("Terms and Conditions Eng").Insert rngTarget, true

看看在VBA語言參考的例子...

而且，你不應該在你的代碼中使用的ThisDocument，使用的ActiveDocument。（更妙的是，聲明一個Document對象，分配的ActiveDocument它，然後使用它。）

來源

2015-12-09 16:52:03

它的工作！我是VBA的新手。在開始時我嘗試了插入方法，但是我只能使用Selection.Range目標。無論如何，你的代碼中有一個小錯誤，我正在嘗試解決。我只能將表格插入「termsConditions」內容控件中。我正在尋找代碼來清除/重置/刪除/ conent（在這種情況下，表格!!比文本更復雜），而不刪除它。這將允許我將內容控件中的一個表替換爲另一個表。你可以幫幫我嗎？ –

內容控件是否僅包含表格或其他內容？如果只有表格，請確保內容控件的屬性「內容控件不能被刪除」被激活。那麼你應該可以在不刪除內容控件的情況下刪除整個ContentControl.Range。 –

是的，它包含一張桌子。我試過你的解決方案。它不起作用。當我已經放入某個桌子時，我無法刪除內容。它也被保護以免被刪除。我找到了另一個解請參閱下面的答案。 –

我的問題完整的解決方案是：提出辛迪梅斯特里面的內容更換內容控制

解決方案：
要更改的內容控制內「TermsConditions」內容我添加以下代碼：

如果doc.SelectContentControlsByTag（「TermsConditions」）項目（1）.Range.Text <> doc.SelectContentControlsByTag（「TermsConditio NS 「）項目（1）.PlaceholderText然後 doc.SelectContentControlsByTag（」 TermsConditions「）。項目（1）.Range.Cut 否則結束如果

來源

2015-12-11 10:19:26

如果您爲經常重複使用的對象聲明變量並使用它，則您的代碼將更有效地執行並更易於閱讀。例如：Dim ccTermConditions as Word.ContentControl：Set ccTermConditions = doc.SelectContentControlsByTag.Item（1）：If ccTermConditions.Range.Text <> ccTermConditions.PlaceholderText Then ccTermConditions.Range.Cut：End If（由於新行不可行在註釋中，冒號（:)表示代碼中將有新行的位置。） –

從Word文檔中的指定位置的Builiding Block插入表格。

回答

相關問題