|
|
|
|
Thanks, this really helped
"Jay Freedman" wrote:
OK, that's doable. The UpdateTableFromCSV() macro below automates the
"convert to table" method that I mentioned before.
Put these three macros in a module in your template (see
http://www.gmayor.com/installing_macro.htm if you need instructions). Change
the path and name of the csv file (in the line that defines the variable
csvFileName) to the one you use.
Public Sub AutoNew()
UpdateTableFromCSV
Dialogs(wdDialogFileSaveAs).Show
End Sub
Public Sub AutoOpen()
UpdateTableFromCSV
ActiveDocument.Save
End Sub
Private Sub UpdateTableFromCSV()
Dim oRg As Range
Dim oDoccsv As Document
Dim csvFileName As String
csvFileName = _
"C:\Documents and Settings\Clint\My Documents\Data.csv"
Set oRg = ActiveDocument.Bookmarks("csv_here").Range
On Error Resume Next
Set oDoccsv = Documents.Open( _
FileName:=csvFileName, _
ConfirmConversions:=False, _
Format:=wdOpenFormatText)
If Not oDoccsv Is Nothing Then
With oRg
Do While .Tables.Count
.Tables(1).Delete
Loop
.Text = oDoccsv.Content.Text
oDoccsv.Close savechanges:=wdDoNotSaveChanges
Set oDoccsv = Nothing
.Style = ActiveDocument.Styles("Normal")
.ConvertToTable Separator:=","
End With
ActiveDocument.Bookmarks.Add Name:="csv_here", _
Range:=oRg.Tables(1).Range
Else
MsgBox "Could not find " & csvFileName
End If
End Sub
Add a bookmark named "csv_here" in the body of the template and save it.
Then use File New to create a document based on the template. Each time
you create a new document or open an existing document based on this
template, the table will be updated to the current contents of the csv file.
--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Clint wrote:
I want this done as a template. So when a user opens the template it
will update the list of drawings for each transmittal letter. The
csv file is always named the same....
"Jay Freedman" wrote:
Clint wrote:
I'm trying to create a transmittal letter with a list of drawings.
The list of drawing information is in a csv file and I want to
create a template that will take this csv file and create a list of
the drawing information. In other words all the information from
the csv file listed on one letter. Help!!! I tried to use mail
merge but all I'm getting is the first record.
If you have Excel, open the csv file in that program -- Excel
understands csv, while Word considers it just plain text. Then
select the cells in Excel, copy to the clipboard, and paste into
Word. The result will be a table.
Without Excel, you can open or paste the csv data into Word, select
it, and run Table Convert Text to Table. Make sure the "Commas"
option is selected for the separator and click OK. The result will
be a table similar to the one you'd get from Excel, but formatted
somewhat differently.
--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
|