<div>
Hi, 
 
You can start to saving MAcro in Word then do your tasks then view or edit the VBA generated code. 
 
Sub Macro1() 
' 
' Macro1 Macro 
' Macro recorded 8/11/2004 by Farzad Akbarnejad 
' 
&nbsp; &nbsp; If ActiveWindow.View.SplitSpecial &lt;&gt;&nbsp;wdPaneNone Then 
&nbsp; &nbsp; &nbsp; &nbsp; ActiveWindow.Panes(2).Close 
&nbsp; &nbsp; End If 
&nbsp; &nbsp; If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ 
&nbsp; &nbsp; &nbsp; &nbsp; ActivePane.View.Type = wdOutlineView Then 
&nbsp; &nbsp; &nbsp; &nbsp; ActiveWindow.ActivePane.View.Type = wdPrintView 
&nbsp; &nbsp; End If 
&nbsp; &nbsp; ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader 
&nbsp; &nbsp; Selection.TypeText Text:=&quot;This is a text typed in Header&quot; 
&nbsp; &nbsp; ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument 
&nbsp; &nbsp; Selection.TypeParagraph 
&nbsp; &nbsp; Selection.TypeParagraph 
&nbsp; &nbsp; ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=7, NumColumns:= _ 
&nbsp; &nbsp; &nbsp; &nbsp; 5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ 
&nbsp; &nbsp; &nbsp; &nbsp; wdAutoFitFixed 
&nbsp; &nbsp; With Selection.Tables(1) 
&nbsp; &nbsp; &nbsp; &nbsp; If .Style &lt;&gt;&nbsp;&quot;Table Grid&quot; Then 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Style = &quot;Table Grid&quot; 
&nbsp; &nbsp; &nbsp; &nbsp; End If 
&nbsp; &nbsp; &nbsp; &nbsp; .ApplyStyleHeadingRows = True 
&nbsp; &nbsp; &nbsp; &nbsp; .ApplyStyleLastRow = True 
&nbsp; &nbsp; &nbsp; &nbsp; .ApplyStyleFirstColumn = True 
&nbsp; &nbsp; &nbsp; &nbsp; .ApplyStyleLastColumn = True 
&nbsp; &nbsp; End With 
&nbsp; &nbsp; Selection.TypeText Text:=&quot;Row 1 &nbsp;Col &nbsp;1&quot; 
&nbsp; &nbsp; Selection.MoveRight Unit:=wdCell 
&nbsp; &nbsp; Selection.TypeText Text:=&quot;Row 1 &nbsp;Col 2&quot; 
&nbsp; &nbsp; Selection.MoveRight Unit:=wdCell 
&nbsp; &nbsp; Selection.MoveRight Unit:=wdCell 
&nbsp; &nbsp; Selection.MoveRight Unit:=wdCell 
&nbsp; &nbsp; Selection.MoveRight Unit:=wdCell 
&nbsp; &nbsp; Selection.MoveRight Unit:=wdCell 
&nbsp; &nbsp; Selection.MoveRight Unit:=wdCell 
&nbsp; &nbsp; Selection.MoveRight Unit:=wdCell 
&nbsp; &nbsp; Selection.MoveRight Unit:=wdCell 
&nbsp; &nbsp; Selection.MoveRight Unit:=wdCell 
&nbsp; &nbsp; Selection.MoveRight Unit:=wdCell 
&nbsp; &nbsp; Selection.MoveRight Unit:=wdCell 
&nbsp; &nbsp; Selection.TypeText Text:=&quot;Row 3 &nbsp;Col 3&quot; 
&nbsp; &nbsp; Selection.MoveRight Unit:=wdCell 
&nbsp; &nbsp; Selection.MoveRight Unit:=wdCell 
&nbsp; &nbsp; Selection.MoveRight Unit:=wdCell 
&nbsp; &nbsp; Selection.MoveRight Unit:=wdCell 
&nbsp; &nbsp; Selection.MoveRight Unit:=wdCell 
&nbsp; &nbsp; Selection.MoveRight Unit:=wdCell 
&nbsp; &nbsp; Selection.MoveRight Unit:=wdCell 
&nbsp; &nbsp; Selection.MoveRight Unit:=wdCell 
&nbsp; &nbsp; Selection.MoveRight Unit:=wdCell 
&nbsp; &nbsp; Selection.MoveRight Unit:=wdCell 
&nbsp; &nbsp; Selection.MoveRight Unit:=wdCell 
&nbsp; &nbsp; Selection.TypeText Text:=&quot;Row 5 Col 4&quot; 
End Sub 
 
 
-FA
</div>

<div>
How would I incorporate your header and table logic within the vbscript below, without using a macro? 
 
Set Oword = CreateObject(&quot;word.application&quot;) 
Oword.Visible = true 
Set WRDDOC = Oword.Documents.Add 
WRDDOC.Select 
 
' insert heading here 
 
with Oword 
.Selection.MoveDown 
.Selection.InsertAfter &quot;Hello World!&quot; 
.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter 
.Selection.Font.Name = &quot;VERDANA&quot; 
.Selection.Font.Size = 9 
.Selection.Font.Bold = True 
.Selection.Font.Underline = False 
.Selection.InsertParagraphAfter 
.Selection.InsertParagraphAfter 
.Selection.MoveDown 
 
' insert table here 
 
end with
</div>

<div>
<div class="content wysiwyg-content">
How would I code a word automation vbscript that produces a word doc with headers and tables?
</div>
</div>

How would I code a word automation vbscript that produces a word doc with headers and tables?

vbscript word automation

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.