Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 02-13-2020, 05:43 AM
Dont know Dont know is offline Word VBA coding for tables Windows 10 Word VBA coding for tables Office 2016
Novice
Word VBA coding for tables
 
Join Date: Feb 2020
Posts: 5
Dont know is on a distinguished road
Default Word VBA coding for tables

Help needed please with coding below, currently this works but only if i dont have any tables in the document. I want to be able to continually use macro to add different tables within same document, think its something to do with activedocument.tables (1), how do i name the table if i don't want it to be a set number?

Sub TestCGBT()
Dim oTbl As Table
' TestCGBT Macro


Application.Templates("P:\Templates\CG Research Template.dotm"). _
BuildingBlockEntries("CG body text table").Insert Where:=Selection.Range, _
RichText:=True
ActiveDocument.Tables(1).Cell(1, 1).Range.Select
Selection.SplitTable
Application.Templates("P:\Templates\CG Research Template.dotm"). _
BuildingBlockEntries("Figure 1: Title").Insert Where:=Selection.Range, _
RichText:=True
Selection.Delete Unit:=wdCharacter, Count:=1
Dialogs(wdDialogTableInsertTable).Show

End Sub
Reply With Quote
 



Similar Threads
Thread Thread Starter Forum Replies Last Post
2 general question about coding puff Excel Programming 1 12-07-2017 08:53 AM
Word VBA coding for tables Problem Coding End of Page DRD992 Word VBA 1 10-12-2017 05:15 PM
Word VBA coding for tables If else statement-Need help with coding rsrasc Excel Programming 4 10-30-2015 01:10 AM
UserForm VBA coding Niclasfa Word VBA 1 04-08-2015 10:23 PM
What kind of coding? ep2002 Excel 3 07-22-2014 07:52 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 07:59 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft