#1
|
|||
|
|||
Text, then table, then more text and table and final text
I am trying to build a word document from excel. basically the excel table just takes values and transfers them into the word document.
Currently I created part of it but somehow the cursor gets stuck at the first table and the second table is inserted in the first one. The format I am trying to look for is. Text. Table Text Table Ending Text HEre is my code so far. Code:
Option Explicit Sub CreateBasicWordReport() Dim wdApp As Word.Application Dim objRange Dim objDoc Dim Cell Dim NewRange Set wdApp = New Word.Application With wdApp .Visible = True .Activate .Documents.Add With .Selection .ParagraphFormat.Alignment = wdAlignParagraphCenter .BoldRun .Font.Size = 11 .TypeText "Letter to Proceed with Transfer" .TypeParagraph .Font.Size = 11 .TypeText "Determination of Transfer Value and Request for Transfer" .TypeParagraph .TypeParagraph .TypeParagraph .ParagraphFormat.Alignment = wdAlignParagraphLeft End With End With Set objRange = wdApp.ActiveDocument.Range objRange.Collapse Direction:=wdCollapseEnd wdApp.ActiveDocument.Tables.Add objRange, 4, 2 With wdApp.ActiveDocument.Tables(1).Cell(1, 1).Range .Bold = False .Text = "Date" End With With wdApp.ActiveDocument.Tables(1).Cell(2, 1).Range .Bold = False .Text = "Exportin" End With With wdApp.ActiveDocument.Tables(1).Cell(3, 1).Range .Bold = False .Text = "Importing" End With With wdApp.ActiveDocument.Tables(1).Cell(4, 1).Range .Bold = False .Text = "Re" End With With wdApp.ActiveDocument.Tables(1).Cell(1, 2).Range .Bold = False .Text = "Re" End With With wdApp.ActiveDocument.Tables(1).Cell(2, 2).Range .Bold = False .Text = "Re" End With With wdApp.ActiveDocument.Tables(1).Cell(3, 2).Range .Bold = False .Text = "Re" End With With wdApp.ActiveDocument.Tables(1).Cell(4, 2).Range .Bold = False .Text = "Re" End With objRange.Collapse Direction:=wdCollapseEnd wdApp.ActiveDocument.Range.InsertAfter "_____________________________________________________________________________________" wdApp.ActiveDocument.Range.InsertAfter "Part 1" wdApp.ActiveDocument.Bookmarks.Exists ("\EndOfDoc") ' wdApp.ActiveDocument. 'Set NewRange = ActiveDocument.Content 'NewRange.Collapse Direction:=wdCollapseEnd 'wdApp.ActiveDocument.Tables.Add ( 'wdApp.ActiveDocument.Range.Collapse Direction:=wdCollapseEnd 'objRange.Collapse Direction:=wdCollapseEnd 'wdApp.ActiveDocument.Paragraphs.Add.Range.Text = "FGHFHDFg" 'wdApp.ActiveDocument.Tables.Add NewRange, 4, 2 'Set objTable = wdApp.ActiveDocument.Tabl 'objTable.Cell(1, 1).Range.Text = "WOO" 'wdApp.Documents.Add.Tables.Add wdApp.ActiveDocument.Range, 5, End Sub |
#2
|
||||
|
||||
You should create the basic layout as a Word template so that when you create the initial document, it already contains the standard content and formatting.
Set objDoc = .Documents.Add(sPathToTemplate) If your template already contained all the elements your code creates then the rest of the code you showed is actually not needed. You would then use code to bring in the Excel content itself.
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#3
|
||||
|
||||
Cross-posted at: excel - Word VBA Text then table then text then table - Stack Overflow
For cross-posting etiquette, please read: Excelguru Help Site - A message to forum cross posters
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#4
|
|||
|
|||
My template is not static. Doesn't that change things?
There should be an 3 if conditions that change the output the text at the middle and end of the document. |
#5
|
||||
|
||||
I have already responded to that in your cross-post...
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#6
|
|||
|
|||
I appologize i am quite new you are correct.
Add or delete bookmarks in a Word document or Outlook message - Office Support Would I proceed to add bookmarks in this manner? |
#7
|
||||
|
||||
Yes, that's how you might create one for your template, but the GUI approach for accessing them isn't what you'd use in VBA. There are many VBA examples here showing how you'd do that. Do a search on: UpdateBookmark
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Scan text for specific word/text and list in table | fietstasss | Word VBA | 1 | 01-15-2018 02:05 PM |
How to prevent the text goes down with setting text around the table in MS Word? | tesicg | Word Tables | 1 | 06-07-2016 08:46 AM |
VBA Table – Search All Tables - Find & Replace Text in Table Cell With Specific Background Color | jc491 | Word VBA | 8 | 09-30-2015 06:10 AM |
VBA Search Table for Text/Select Text/Insert Hyperlink | sldrellich | Word VBA | 3 | 03-24-2015 01:09 PM |
Convert Text To Table: Separate text at (Other)? | tinfanide | Word VBA | 2 | 01-12-2015 05:26 AM |