Modules & VBA :: How To Save Word Template As HTML

Apr 29, 2014

I'm using the below to merge an access form into a word template (it's a starter for 10).

That works fine. What I need to do is save the word template as HTML so I can then upload it to my website.

Dim wordApp1 As Word.Application
Dim docPath1 As String
Dim fileName1 As String
Dim PageName As String
PageName = Forms!Frm_Page_Create![Page]
docPath1 = Application.CurrentProject.Path & "Merges"

[code]....

View Replies

Modules & VBA :: Static Webpage Form - Export To HTML Using Template

Mar 12, 2014

In my DB I have a query that I need to create a static webpage from, now in excel I can do the record button and bingo, but access is a lot more confusing.

I have a template named doc_tplt.html that when I do the export from the query it creates the webpage using this template.

I want to have a form with a selection of command buttons on it to export to html using the template for various queries and tables.

What is the VBA code to export the query (qry_docs) and apply the template (doc_tplt.html) and save to the same directory as the DB itself.

View 2 Replies View Related

Modules & VBA :: How To Insert Data From Access To Word Template

Jul 28, 2013

I'm doing a project for my work. I created a few reports in Access. Some of these reports are simple graphic bars. How can I insert these reports into a word document template?

View 2 Replies View Related

Modules & VBA :: Export Single Record To MS Word Template

May 25, 2015

I am working in Access 2013.I'll be performing a series of inspections at a number of intersections for a small community. The data being captured is consistent from site to site and lends itself to a database application, and what I would like to do is the following:Use forms to capture the data.Generate a report to preview the output for a single record. I may ultimately decide to set the report datasource to a query.Attach a macro to a button that exports fields from that record to a template based in MS Word.The first two bullet items I can handle with my limited Access capability. Each file has to be individually reviewed and saved, and each file will ultimately contain an electronic signature.

View 2 Replies View Related

Modules & VBA :: Send Form Fields To Word Template?

Jul 2, 2015

I have a form with fields that contain the address/postcode etc of the person in question, and I also have a template letter that needs to have said persons address/postcode etc at the sending stage after a button is clicked.

View 9 Replies View Related

Modules & VBA :: Change Check Box Values Of -1 To YES And Then Fill Word Template

Jul 26, 2013

I have the following VBA code that auto populates a word template:

Private Sub Command24_Click()
On Error GoTo ErrorHandler:
ErrorHandler:

[Code].....

The code executes flawlessy but there are three values that are based off check boxes set as YES/NO (EMPLOYEDATREGISTRATION, EMPLOYED and FRINGEBENEFITS). These values show up as -1 for YES and 0 for NO.

Is there anyway to add code to mine that would allow me to change these values before they are sent to the Word template?

View 10 Replies View Related

Modules & VBA :: Filling Excel Template Cells / Save Then Send On Outlook

Jul 13, 2013

I have the code below which takes information from a form on access and sends it over to the correct place on an excel spreadsheet template. This works fine but I then need it to save and send on outlook.

The issue I am having is that the saved document is not attaching to the e-mail. The subject etc all work fine but the excel spreadsheet just doesn't attach. When I go into the folder I have specified for the document to be saved in it isn't there either. :0(

The code for the e-mail "callmail" function works perfectly for word documents but I don't know if it is different for an excel file.

Code:

Private Sub Command154_Click()
On Error Resume Next
Dim appExcel As Excel.Application
Dim wbook As Excel.Workbook
Dim wsheet As Excel.Worksheet
Set appExcel = New Excel.Application

[Code] .....

View 4 Replies View Related

Modules & VBA :: Insert Rich Text (HTML Format) From Access To Word 2013

Jul 24, 2014

I'm about to connect my DB to word. So I made a form where the user has to choose what entry to export. The data is inserted in a word file in different bookmarks. But there is one special task to insert the rich text so in this case the html formatted text is displayed like this:

Code:
<html><div>asdf</div></html>

My Text is inserted like this:

Code:
wdApp.ActiveDocument.Bookmarks("-Bookmarkname-").Range.Text = Lrs("-ColumnName-")

Lrs is a Recordset.

So how is it possible to display the html code right in the Word doc?

View 1 Replies View Related

Modules & VBA :: Save Word As PDF

Mar 14, 2014

I'm using the below to merge from acces to word and create a new doc. All is well.However I need to save the output file type as PDF.When I try to change the docx to PDF, it corrupts?

Dim wordApp1 As Word.Application
Dim docPath1 As String
Dim fileName1 As String
docPath1 = Application.CurrentProject.Path & "Merges"
fileName1 = docPath1 & "CreatedCover Letter.docx"
Set wordApp1 = New Word.Application
With wordApp1

[code]...

View 1 Replies View Related

How To Populate HTML Template Within ACCESS?

Nov 30, 2004

Hello all..
I have an HTML template with about 15 TAGS built in to it..such as:
[SKU]
[MITVALUE_TITLE]
[MITVALUE_ACCESSORY1]
[MITVALUE_ACCESSORY2]
[MITVALUE_ACCESSORY3]
[MITVALUE_ACCESSORY4]
[MITVALUE_ACCESSORY5]
[MITVALUE_ACCESSORY6]
[MITVALUE_ACCESSORY7]
etc. etc. etc...

Now I would like to somehow populate those fields from the tables that i have.. (The all have a common "related" field)

example:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
<style type="text/css">

</style>
</head>
<body>
<table width="100%" height="100%" border="0">
<tr>
<th height="23" colspan="2" scope="col">ITEM INCLUDES:</th>
<th width="30%" height="100%" rowspan="4" scope="col"><a href="[MITVALUE_PHOTO5]" target="_blank"><img src="[MITVALUE_PHOTO5]" width=266 height=200 border="6" align="right"></a></th>
</tr>
<tr>
<th width="73%" height="23" colspan="2" scope="col">[MITVALUE_ITEM]</th>
</tr>
<tr>
<th width="10%" height="23" scope="col"><div align="left"></div></th>
<th width="38%" scope="col"><div align="left"> [MITVALUE_ACCESSORY1] 
[MITVALUE_ACCESSORY2] 
[MITVALUE_ACCESSORY3] 
[MITVALUE_ACCESSORY4] 
[MITVALUE_ACCESSORY5] 
[MITVALUE_ACCESSORY6] 
[MITVALUE_ACCESSORY7]</div></th>
</tr>
<tr>
<th height="23" colspan="2" scope="col">THIS ITEM ONLY INCLUDES ITEMS LISTED ABOVE </th>
</tr>
</table>
</body>
</html>

................................................
I would like those fields to be put in automatically.. wether they are in a memo field within a table or a field within a query ... it really doesn't matter.... Anyone have any ideas?

Regards,
OvAdoggvO

View 3 Replies View Related

Macro - Output To HTML Using A Template

Apr 4, 2013

In the Macro object 'ExportwithFormat' there is an option to output as an html file. There is also an option to supply a template file. I am not sure how to create a template file for html.How to create this file or point to a resource that will work for me?

View 1 Replies View Related

Gaps In Between Tables On Html Email Template

Sep 21, 2006

my html template is built inside access.. the form button is clicked and the template opens in outlook.

it looks fine in outlook.. so i send the email.. when i receive the email in outlook, it looks fine..

here is what it looks like

http://www.londonheathrowcars.com/image2.jpg

however, i sent the same template to a gmail and hotmail address to see what it looks like..

it looks fine in hotmail
http://www.londonheathrowcars.com/image3.jpg

however in gmail it looks like this..

http://www.londonheathrowcars.com/image1.jpg

now, these gaps are appearing in between tables..

<table>blablabl</table>GAP<table>...

now, my question is.. is there anything i can add to the code that will remove these gaps..
i know my code is messy.. at the moment however it begins with <table> and ends with </table> (the main wrap table)

i realise i may need to add some kind of html type or something, but i dont know what..

as always, if anyone can shed some light on this matter i would be ever grateful..

thank you

below is the code

CODE
Option Compare Database

Private Sub emailbutton_Click()
'References: Oulook Library
Dim strEmail, strSubject As String, strBody As String
Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem

Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)

strEmail = Me.emailadd

strBody = "<table border='1' width='610' id='table1' cellspacing='0' cellpadding='5' bordercolor='#5A79B5' align='left'><tr><td align='center'><table border='0' width='600' id='table2' cellspacing='0' cellpadding='0'>" & _
"<tr><td width='300' height='61'> </td><td width='300' height='61' align='center'><img border='0' src='http://www.londonheathrowcars.com/emaillogosmall.gif' width='300' height='61'></td></tr><tr><td width='300' height='30'>FAO</td>" & _
"<td width='300' height='30' align='center'>-------- London Heathrow Cars --------</td></tr></table><table border='0' width='600' id='table3' cellspacing='0' cellpadding='0'><tr><td> </td></tr><tr>" & _
"<td>Thank you for your booking request via our website. Details of the requested transfer and our fare are as follows:</td></tr><tr><td> </td></tr><tr><td><hr color='#5A79B5'></td></tr></table>" & _
"<table border='0' width='600' id='table4' cellspacing='0' cellpadding='0'><tr><td width='200' height='20'>Job Date:</td><td width='400' height='20'>  This</td>" & _
"</tr><tr><td width='200' height='20'>Pickup Time:</td><td width='400' height='20'>  This</td></tr><tr><td width='200' height='20'> </td><td width='400' height='20'> </td>" & _
"</tr><tr><td width='200' height='20'>From:</td><td width='400' height='20'>  This</td></tr><tr><td width='200' height='20'> </td><td width='400' height='20'> </td>" & _
"</tr><tr><td width='200' height='20'>To:</td><td width='400' height='20'>  This</td></tr><tr><td width='200' height='20'> </td><td width='400' height='20'> </td>" & _
"</tr><tr><td width='200' height='20'>Vehicle:</td><td width='400' height='20'>  This</td></tr><tr><td width='200' height='20'>Set Fare:</td>" & _
"<td width='400' height='20'>  This</td></tr></table><table border='0' width='600' id='table5' cellspacing='0' cellpadding='0'><tr><td><hr color='#5A79B5'></td></tr><tr><td> </td></tr><tr><td>" & _
"Our drivers are courteous, experienced and smartly presented. In addition, all of our vehicles are modern, clean and comfortable. To book this transfer, kindly reply to this email or call us on the following:</td>" & _
"</tr><tr><td> </td></tr><tr><td><table border='0' id='table9' cellspacing='0' cellpadding='0'><tr><td width='150'>Freephone (UK Only):</td><td width='150' align='left'>" & _
"  0800 505 3231</td></tr><tr><td width='150'>International:</td><td width='150' align='left'>  +44 (0) 208 814 2727</td></tr></table></td>" & _
"</tr><tr><td> </td></tr><tr><td><hr color='#5A79B5'></td></tr><tr><td>Hasan Karim - Operations London Heathrow Cars  </td></tr></table><table border='0' width='600' id='table10' cellspacing='0' cellpadding='0'>" & _
"<tr><td><table border='0' width='325' id='table11' cellspacing='0' cellpadding='0'><tr><td width='75'>Address:</td><td width='250'>" & _
"  Suite 7, Jolyon House, Amberley Way, TW4 6BH</td></tr><tr><td width='75'>Phone:</td><td width='250'>  +44 (0) 208 814 " & _
"2727</td></tr><tr><td width='75'>Fax:</td><td width='250'>" & _
"  +44 (0) 208 399 6500</td></tr><tr><td width='75'>Web:</td><td width='250'>  http://www.LondonHeathrowCars.com</td></tr><tr>" & _
"<td width='75'>Email:</td><td width='250'>  info@LondonHeathrowCars.com</td></tr></table></td></tr></table></td></tr></table>"

strSubject = "London Heathrow Cars - Booking Request"
With objEmail
.To = strEmail
.Subject = strSubject
.HTMLBody = strBody
'.Send 'Will cause warning message
.Display
End With

Set objEmail = Nothing
End Sub

View 1 Replies View Related

General :: Create A Forum That Changes Values In A HTML Template

Jul 8, 2014

I Am working on a Access database that will build a excel spread sheet, that will be uploaded to Ebay via file exchange. I am looking to build a forum that will edit parts of a Html text in a column, such as the size and color.

View 1 Replies View Related

Forms :: Email Using User Selected HTML Template With Optional Report As Attachment

Jun 27, 2015

I have an access form. It has

-Two textboxes with client first and last name
-Two textboxes with a contact 'email1' and 'email2' for the client
-A combobox with a list of templates to use for the email.
-A checkbox to include a copy of the statement on the email.

I want the user to be able to press a button which does the following

-Sends an email to both 'email1' and 'email2'.
-Attaches a secific report as PDF if the user has selected the checkbox
-The body of the email includes a greeting line using the clients name from the record.
-The body of the message includes below the greeting line a html email template depending on the users combobox selection.

View 3 Replies View Related

I Have A Template In Word

Jul 11, 2005

and I want to write in some places

I know to open the word
and write in to the word

to write in to word:

Dim objWord As Word.Application

Set objWord = CreateObject("Word.Application")
objWord.Visible = False 'True is visible
objWord.Documents.Add ("C:DocumentsTest.dot")
objWord.ActiveDocument.Bookmarks("bmCusDetails").Select
objWord.Selection.Text = Forms![a]![b]

objWord.Visible = True

but how am I write in a special place?

thanks alot, and sorry on my english

View 1 Replies View Related

Link To A Word Template

Jan 23, 2008

Hi I have a database and I want to basically use table fields to load into a Word template and I want this done via code, i.e a button....any help very much appreciated!

View 1 Replies View Related

Linking Access To A Word Template

Feb 16, 2006

i have a form and was wondering if it was possible to take some of the fields and drop them into a template word document from inside access. so as to create a button that when clicked opens up the template and transferes the wanted form data.

any idears how to automate this process would be greatly appreciated

thanks in advance john

View 2 Replies View Related

Reports :: Exporting Data To Word Template

Apr 7, 2014

I have a Word template that I require my data to be exported to. Is there a way to import a .docx into a report design?

View 1 Replies View Related

Populating Word Template From Form In Access

Mar 7, 2013

I am creating a db for my work place that records incidents that take place. I am a novice at Access but I have made different tables, queries, forms and reports and they all work.

I was wondering if there was a way to extract data that a user enters into a form and then use that to populate a word template *without* coding using VBA? I am really a beginner and not confident with VBA at all. I have read the forum and that seems to be an option (but would rather something else if possible!)

View 3 Replies View Related

Problem With Make Table Query And Merge To Word Template

May 23, 2005

Hi guys!

I have my word template set up such that some data is copied from the open form into the document and some data is taken from a table which is created from a query based on the content of the form (the record number). This works well HOWEVER (there's always a however isn't there :rolleyes: ) where two users click on the button at exactly the same time or within a very short space of time the query only runs once and either the database crashes (bad) or the document is created for the second person with the wrong data (very bad).

How can I make it so that only one person can run the query at a time (ideally build in a delay in processing so that the query will run for them when the first person has finished...failing that a message to say please try again later)? They will always be working with a different record.

I'm a bit stuck as to what to search for in the forum for an answer to this so haven't really searched.....sorry :(

Many thanks
Jo

View 2 Replies View Related

Reports :: Filling Report Based On Specific Word Template

Jan 13, 2014

I was thinking today if it is possible to fill Access reports based on a specific Word template? I don't want to populate a Word file with Access data as users of my app might not all have Word. Or is there another solution using a WYSIWYG editor where users can format everything according to their needs? That would be fantastic.

View 2 Replies View Related

Save A Form As Word Document

Nov 29, 2004

Hi
I have a form (Quotation) and i would like when i press a command box to save it as a word document.
I tried that with a command box and with a macro using OutputTo Action.
I can save the Form But i can not have a proper understandable format.
How this is possible?

My aim is to save it as .rtf for example, and attached to the customer mail.

Please advice me.

View 4 Replies View Related

Form Data To MS Word & Protecting The Form Template

Dec 18, 2006

Thanks to some of the threads here, I have managed to automate inputting form data from a record into bookmarks in a word document template (a letter). What I am trying to do is to lock the letter allowing modification only to the form fields in that template. If the original template is locked (allowing entry only in the fields), the data does not flow through. So I was trying to accomplish this through the "ProtectedForForms" property. However, it does not work. The letter gets locked before the information flows through. Here's the code I am trying to use (borrowed from one of the users here):

Private Sub cmd_letWarn_Click()

' Check for empty fields and unsaved record.
If IsNull(occupant) Then
MsgBox "Occupant Name cannot be empty"
Me.occupant.SetFocus
Exit Sub
End If

If IsNull(propad_no) Then
MsgBox "Building Number cannot be empty"
Me.propad_no.SetFocus
Exit Sub
End If

If IsNull(prop_ZIP) Then
MsgBox "ZIP Code cannot be empty"
Me.prop_ZIP.SetFocus
Exit Sub
End If

If Me.Dirty Then
If MsgBox("Record has not been saved. " & Chr(13) & _
"Do you want to save it?", vbInformation + vbOKCancel) = vbOK Then
DoCmd.RunCommand acCmdSaveRecord
Else
Exit Sub
End If
End If

' Create a Word document from template.
Dim WordApp As Word.Application
Dim strTemplateLocation As String

' Specify location of template
strTemplateLocation = "T:PlanningPlanningEnforcementLogsuppfiles emp warn.dot"

On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set WordApp = CreateObject("Word.Application")
End If
On Error GoTo ErrHandler

WordApp.Visible = True
WordApp.WindowState = wdWindowStateMaximize
WordApp.Documents.Add Template:=strTemplateLocation, NewTemplate:=False

' Replace each bookmark with field contents.
With WordApp.Selection

.Goto what:=wdGoToBookmark, Name:="ownername"
.TypeText [occupant]

.Goto what:=wdGoToBookmark, Name:="bnum"
.TypeText [propad_no]

.Goto what:=wdGoToBookmark, Name:="stname"
.TypeText [propad_street]

.Goto what:=wdGoToBookmark, Name:="zipcode"
.TypeText [prop_ZIP]

.Goto what:=wdGoToBookmark, Name:="pbnum"
.TypeText [propad_no]

.Goto what:=wdGoToBookmark, Name:="pstname"
.TypeText [propad_street]

.Goto what:=wdGoToBookmark, Name:="ppn"
.TypeText [parcel_no]

.Goto what:=wdGoToBookmark, Name:="ordinance"
.TypeText [code_sections]

.Goto what:=wdGoToBookmark, Name:="orddesc"
.TypeText [complaint_typ]

.Goto what:=wdGoToBookmark, Name:="ownername2"
.TypeText [occupant]

.Goto what:=wdGoToBookmark, Name:="officer"
.TypeText [officer_name]

End With

DoEvents
WordApp.Activate
WordApp.ActiveDocument.ProtectedForForms = True

Set WordApp = Nothing
Exit Sub

ErrHandler:
Set WordApp = Nothing

End Sub

Thanks in adavance for any help.

View 3 Replies View Related

Modules & VBA :: Save As Dialog Box - Allow User To Save Copy Of Current Database At Desired Location

Feb 12, 2014

So I have this relatively simple problem: I need to create a button that once clicked will open the Save As dialog box and allow the user to save a copy of the current database where he wishes. The filename should contain todays date in DDMM format along with some pre-set text e.g. DDMM PresetText.

I am using Access 2010.

View 2 Replies View Related

Modules & VBA :: Save Access Report As PDF And Save To Folder

Jan 10, 2014

I have a few selected reports on an Access 2007 database that users can run. Is there a way for users to view the report, save as a PDF and automatically save a copy to a shared drive by modules/vba coding as an On Click event procedure?

View 4 Replies View Related

Modules & VBA :: Parse HTML Using DOM Without Browser

Jan 27, 2014

If I have an XML file, I can load it into an XML document and parse it.

For an HTML file, I have been unable to find similar parsing methods - that is, using DOM and not involving a browser (other than simply treating the file as text). I'd prefer to avoid the browser control because it is different for a number of different Access versions, so the only option remaining that I see is to run Internet Explorer with visibility off.

Can one parse HTML using the DOM without a browser?

View 8 Replies View Related