Save Word Document With Current Date From Within Module
May 5, 2006
I am using a module to create and save a Word document from an Excel module. I'm using the following line to save the document which works fine but (and this is a big BUT)(to quote a TV programme from long ago) obviously everytime I save the document it will overwrite itself. Is there a way of adding the date it is saved on to the file name so it creates a new document each time.
objWordDoc.SaveAs Filename: = "WAGReport"
I have tried changing it like this but get an error message
Dim dtMyDate As Date
dtMyDate = Format(Date, "DDMMYY")
dtMyDate = Sheets("Client Master").Range("d2")
objWordDoc.SaveAs Filename: = "WAGReport" & dtMyDate
View 3 Replies
ADVERTISEMENT
Sep 28, 2013
Amend this code? I want to save the word document, then save it as a pdf file, then delete the word document;
Code:
Sub E_W()
Dim strDate As String
Dim DirName As String
[Code]....
View 3 Replies
View Related
Jan 21, 2014
I have been working on the following VBA code, which should copy specific charts from excel into specific places in a word-template.
I Am quite new with VBA, so I googled the code, changed a few things, and it works exactly as it should - except from one thing. When the Word-document is loaded from the template, I would like the document to be "saved as..."
Instead of just opening the template. I have tried
Code:
.ActiveDocument.SaveAs Filename:=fname & ".doc"
The code is as follows:
Option Explicit
Sub EksporterTilWord()
Dim appWrd As Object
Dim objDoc As Object
Dim FilePath As String
Dim FileName As String
[Code] ...........
View 1 Replies
View Related
Nov 8, 2012
I have a long bit of code that at one point saves a Word document and then saves it again with a new name and the old (legacy) .doc extension.
This all works find when the user is running Office 2007. However, it errors out for using Office 2010. The reference libraries are all correct (as far as I know).
Code:
Dim myDoc As Word.Document
Dim saveAsName as String
saveAsName = "some text here" + ".doc"
myDoc.Save
myDoc.SaveAs fileName:=(saveAsName), FileFormat:=wdFormatDocument
View 9 Replies
View Related
May 26, 2006
I have an excel program that is supposed to count word instances in a word document. I can't seem to find the right declaration for a word document.
For example to declare a workbook in excel its
Dim wb As Work Book
I've tried
Dim doc As Word.Document
'or
Dim doc As Word.Application
as shown in some of the forum posts, but an error user-type not defined keeps displaying.
View 2 Replies
View Related
Feb 15, 2010
I want to schedule a print, for lets say every Sunday at midnight. I have managed to find some what of a solution by using the following vbscript and scheduling a print to default printer. Works perfectly if that is all I wanted.
Dim objExcel, objWorkbook, strFile
' Connect to Excel
Set objExcel = CreateObject("Excel.Application")
strFile = "C: est.xls"
' Open the Excel File for Printing
Set objWorkbook = objExcel.Workbooks.Open _
(strFile)
' Print to Default Printer
Set objSheet = objExcel. ActiveWorkbook.Worksheets(1)
objSheet.PrintOut
objExcel.ActiveWorkbook.Close
objExcel.Application.Quit
I do not want to print to an actual printer, therefore if I set my default printer as the document writer, the vbscript gets it as far as the "Save As" page. Is there a way I can add to this vbscript so it will save as well? Can I get it to save as "name"&[DATE], thereby having it save as a different name each time?
Can I change this vbscript to print to a named printer rather then a default printer? I am sure a PDF convertor may be of some assistance with this, but I do not have an PDF converter on my computer, and as this will be carried out on a computer that I will not have administration rights, I can not download one.
View 2 Replies
View Related
Jul 6, 2009
Is it possible to export Excel cell contents to Word fields in a protected Word document? For example...
What code would be needed to tell Excel to open up, copy and export the contents of A2 in the active sheet of a workbook to "Field 2" in a Word document named "Report 01" and then put the contents of B2 to "Field 2" etc?
Do both applications have to be opened up at the same time or is Excel able to open up Word on its own? Will the macro be able to....
1. Automatically open up the correct Word document?
2. Look ONLY in a certain folder for the "Report 01" Word document?
or
Bring up a "selection" box that allows you to select the document you wish Excel to export it's data to?
3. Close and save the Word Document without any user intervention?
View 2 Replies
View Related
Nov 6, 2009
I have a spreadsheet that I send emails from. Currently I use the .PrintOut command just before .send and it prints the email to the default printer. Instead of printing to the printer i want to print the email to pdf or any file for archive purposes. I would also like the file to be located on a network drive with a file name from a cell in the spreadsheet with todays date. Is this possible?
Currently the code looks like this:
VB:
With OutMail
.to = sh.Range("A1").Value [code]....
View 9 Replies
View Related
Nov 6, 2009
I have a spreadsheet that I send emails from. Currently I use the .PrintOut command just before .send and it prints the email to the default printer. Instead of printing to the printer i want to print the email to pdf or any file for archive purposes. I would also like the file to be located on a network drive with a file name from a cell in the spreadsheet with todays date. Is this possible?
With OutMail
.to = sh.Range("A1").Value
.CC = ""
.BCC = ""
.Subject = sh.Range("H1").Value & " " & sarBody
.HTMLBody = strbody & "<br><br>" & "<H3><B>Specific Notes, If any...</B></H3>" & vbCrLf & varBody & Signature
.PrintOut
.send
End With
View 9 Replies
View Related
Jun 22, 2007
I'm trying to save a file with current date and time...I used the code from the following thread:
Save File Name With Date/time Stamp
ActiveWorkbook.SaveAs Filename:="C:FinalOutput.xls " & _
format(Now(), "mm_dd_yyyy hh mm AMPM"), FileFormat:=xlNormal, Password:="", _
WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Now when I try to run the macro, it gives me an error saying: Compile Error, Wrong number of arguments or invalid property assignment. And it highlights "format" in yellow.
View 9 Replies
View Related
Jul 5, 2009
I have an excel file which I use when I book keep journals in work. Each time I come across a new piece of bookkeeping I add to the file, name the sheet and index it. (I've attached a loose example for illustration) so the bookkeeping template.xls gets bigger every day.
Currently, when I book keep on a particular day, I open the template.xls workbook;
draft my journals;
and then manually copy the worksheets I have completed during the day from the template.xls workbook and paste the sheets into a new book and save the days bookkeeping as the current date.
With the file I have attached can someone show me how to write a macro and apply it to each of the buttons on the various work sheet tabs (each button will run the same macro).
Upon clicking a button, I would like the macro to;
Copy the active sheet into a new book and save the file as the current date.
Each subsequent click of a button the macro will check if the .xls file exists for the current date, if it does, then it will just copy the active worksheet to the file that has already been created.
In the new file which is saved as the current date, I need to remove the macro button and the hyperlink that reads back to index.
I have had some helpful macro's provided from another forum, however, the other forum does not appear to enable users to upload files, so I can't quite convey what it is I am trying to achieve.
View 14 Replies
View Related
May 6, 2014
I have this existing macro which saves each tab into a separate excel file. However, I'd like for it to also save them together in a new folder using the current month and date (named: QA Files May_05.06.14). The month and date would change according to current month/date. How would I incorporate that into this code? I am not good with macros.
Sub tabname()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Activate
ws.Name = Range("D1").Value
Next
[Code]...
View 4 Replies
View Related
Feb 22, 2008
I have an excel worksheet which has a lot of comments attached to individual cells. Is there a way to convert these comments into a microsft word document along with the contents of the cells to identify where they originated? Also Is it possible to convert just a selection of cells into word document rather than the whole worksheet.
View 9 Replies
View Related
Jan 19, 2009
I'm trying to open a word document from excel using VBA. Here is my code.
View 5 Replies
View Related
Aug 25, 2009
I am trying to open a word document from within excel using
View 2 Replies
View Related
Jan 25, 2009
I need to covert a word document to excel.
View 9 Replies
View Related
Nov 2, 2009
I have a worksheet that is pretty handy right now. I have a print button that automatically sends the doc to print with the specs I want, etc, etc. It has drop down lists, data validations, etc. What I want, and this may be impossible, is when the print button is clicked excel looks at a certain cell and based on the data in that cell, it pulls over a word document and prints that along with it.
In short, the items in the drop down list in the cell I have chosen have a different disclosure that goes with each, and I would like if possbile those to be printed from word...based on which item is picked....along with the spreadsheet when the print button is clicked.
View 9 Replies
View Related
May 18, 2006
I am working on a project where I am creating analysis using a subroutine in excel/vba and I would like to have the subroutine generate a report that is a word document. I have never used excel/vba to create and modify a word document and don't know how to approach it. I imagine that I will have a template.doc that I can access and save as another file. Does anyone have an example of creating and modify a word document in this manner.
View 2 Replies
View Related
Jun 1, 2007
I've just written up an SOP for a reconciliation process. Part of it requires the reader to use some Excel UDFs that I've created. Rather than having someone look for the UDF file on the network, I tried to embed it as an Excel Worksheet Icon within my procedure document. However, when I double-click the icon to launch the add-in, I get the following error message:
"Microsoft Word can't start the application required to open this object. An error occurred and this feature is no longer functioning properly. Would you like to repair this feature now?" This does not happen when I embed a regular Excel workbook, or even a template.
View 5 Replies
View Related
Oct 25, 2012
Is there a way to scan a document into excel 2003 and be able to keep the current format ? or some way to be able to get it into excel and the easliy put it back to the format I need?
View 2 Replies
View Related
Mar 10, 2009
I am trying to get a module wide variable to provide the current filename to the various subs.
View 2 Replies
View Related
Jan 23, 2010
I made some graphs in Excel and then copied them to a Word document. Everything seemed fine, but when I printed the document some graphs had a white square under the numbers and some hadn't. I can't find out where I can change this so that all of them would be without that white background under the numbers:
http://www.shrani.si/f/B/8T/22dMjbNF/img0944.jpg
http://www.shrani.si/f/2Y/bv/1sSyqpAw/img0945.jpg
how can I change that so that all graphs will look the same (without that little squares behind the values).
View 4 Replies
View Related
Apr 28, 2014
I have a template document, created in MS Word. I want to generate, from Excel, a new document as would happen when you open the template from windows explorer or whatever ie. Template1.doc as opposed to Template.xlt.
The best I've managed to achieve is the opening of the template.
View 6 Replies
View Related
Feb 13, 2007
how to print an embedded Word document using VBA? I have tried using the macro recorder but only the cryptic code below is returned:
Sub Macro2()
ActiveSheet.Shapes("Object 3").Select
Selection.Verb Verb:=xlOpen
End Sub
View 5 Replies
View Related
Oct 1, 2007
I'm trying to write an Excel VBA macro that opens a .csv file, selects a range of cells, opens a new, blank Word document, and then pastes the cells into the Word document.
I can open .csv file.
I can open MS Word.
I can select and copy the cells in the .csv file.
I cannot figure out how to paste those cells into Word.
View 3 Replies
View Related
Jul 11, 2008
I have an Excel spreadsheet of data that I would like to export into tables in a new word document.
The code below (without the marked section) does this, but I can’t figure out how to create a second table after the first one.
Eventually I will use a For…Next loop to do this many times, but I’m trying to make the problem smaller by just making a second table.
Sub CreateNewWordDoc()
' add a reference to the Word-library
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim wrdTable As Word.Table
Dim xText
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Add ' create a new document
Set wrdRange = wrdDoc.Range
wrdApp.Visible = True.........
View 9 Replies
View Related
May 7, 2014
I have a column for "Comments". Is there a way to make each cell work more like a word document? ie. paragraph formation, tabs, etc.
View 2 Replies
View Related
Jun 30, 2014
I would like to automate a word document that I have to fill out manually based on the info in a spreadsheet. I would like to be able to select a row that the data comes from as well. I have attached the spreadsheet and word document to this thread.
Attached Files:
localLappy.xlsx‎
Repair Summary.docx‎
View 2 Replies
View Related
Aug 27, 2010
I'm trying to create Word documents (letters.doc) from Excel fields.
I already created bookmarks in Word and have the same Titles in A Row in Excel 2003 and I have tried the following threads:
Add bookmarks to Word from Excel Inserting data values from Excel into a Word doc using bookmarks
But I cannot manage it properly. I know that I need the code that goes on the lines of
Set WdApp = CreateObject("Word.Application")
rather than Set WdApp = New.Object
I cannot get Word to open a document! =(
It's basic letter creation, First_Name, 2_Name, Address_1, Address_2.. These have been bookmarked in Word and have exact same Titles in Columns A-D
View 9 Replies
View Related
Feb 20, 2014
I have an Excel spreadsheet that contains information for a Word document. It uses an elaborate macro to "substitute" unique codes in a starter document. At completion of the process, it goes through and delete all unused codes
The problem is that the codes are preceded by a "bullet" symbol.
How can I remove that orphaned bullet symbol. If the code is ". CtlCode10" (where the . is a bullet), then ALL need to be removed
View 2 Replies
View Related
