Macro o collect titles and dates

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Is there a faster way to do this? This sub lets the user input a date & then proceeds to list all of the Insert/Delete/Replace chnages that have been made a Microsoft Word Document since that date. However, this takes a long time to complete, even with small documents & with large docs, it takes a prohibitive amount of time. The results are listed in a Word Document, with a tab printed in between the "columns" (no table was used, as I found that using a table for the output made this run even slower). Does anyone know of a more effiicient way to tally up the differences? Here's the code I have so far & thanks in advance! Sub TrackByDate() Dim srcDoc As Document, destDoc As Document Dim oRev As Revision Dim strCkDate As String Dim ChangeTxt As String Dim FileName As String Dim CkDate As Date Dim RevType As Variant Dim nRows As Long RevType = Array("NoRevision", "Insert", "Delete", _ "Property", "ParagraphNumber", "DisplayField", _ "Reconcile", "Conflict", "Style", "Replace", _ "ParagraphProperty", "TableProperty", _ "SectionProperty", "StyleDefinition") strCkDate = InputBox$("Enter date (MM/DD/YYYY) to find all changes made since:") If strCkDate = "" Then Exit Sub If Not IsDate(strCkDate) Then Exit Sub CkDate = CDate(strCkDate) Set srcDoc = ActiveDocument Set destDoc = Documents.Add destDoc.PageSetup.Orientation = wdOrientLandscape destDoc.Sections(1).Headers(wdHeaderFooterPrimary) _ .Range.Text = "Revisions in " & srcDoc.FullName nRows = 1 destDoc.Range.Text = "Revisions in " & _ srcDoc.FullName & " since " & strCkDate & _ vbCr & vbCr & "Date" & " " & " " & "Time" & " " & vbTab _ & "Page" & vbTab & "Line" & vbTab & "Change" & vbTab & "Text" & vbCr & vbCr For Each oRev In srcDoc.Revisions nRows = nRows + 1 If CDate(Left$(Format(oRev.Date, "MM/DD/YYYY"), 10)) _ >= CkDate Then If (RevType(oRev.Type) = "Insert" Or _ RevType(oRev.Type) = "Delete" Or RevType(oRev.Type) = "Replace") Then ChangeTxt = oRev.Range.Text ChangeTxt = Replace(ChangeTxt, vbCr, " ") ChangeTxt = Replace(ChangeTxt, vbLf, " ") ChangeTxt = Replace(ChangeTxt, vbCrLf, " ") destDoc.Range.InsertAfter _ oRev.Date & " " & vbTab & _ oRev.Range.Information(wdActiveEndAdjustedPageNumber) & vbTab & _ oRev.Range.Information(wdFirstCharacterLineNumber) & vbTab & _ RevType(oRev.Type) & vbTab & " " & ChangeTxt & vbCr End If End If Next oRev End Sub Tag: Macro o collect titles and dates Tag: 103471
  - 2
    - Custom Toolbar Editing Word 2002 & Migration to 2007 We previously had templates written that included a custom toolbar with a drop down list for personal letterhead. I have found the letterhead macro and have been able to edit it (Global.dot), but I do not see the toolbar macro or where in the macro the toolbar is referenced in order to edit the drop down list. Can anyone help me? The people who wrote the script have resigned and given us absolutely no instruction on how they developed the macros, etc. -- BA Pease -- BA Pease Tag: Macro o collect titles and dates Tag: 103469
  - 3
    - how do I change measurement from cms. into inches can anyone advise how I change ruler measurements from cms. into inches? Tag: Macro o collect titles and dates Tag: 103459
  - 4
    - Use current heading level in a field Is there a way to get the current heading level from a field? I can't use a StyleRef field because I don't know what style to look for (i.e. Heading 1, Heading 2 etc.) Thanks (I realize this is the VBA forum) Tag: Macro o collect titles and dates Tag: 103444
  - 5
    - UserForm and macro woes Ok, here's where I'm at. I have a document template with a userform with three check boxes and a drop down. When the form loads, the code has it go to a spreadsheet and return all schools from column 1 ('schools') of a 4 column table. I want the users to be able to 'filter' the list returned by clicking one or more of the checkboxes. When the user clicks checkbox1 (STAFFcheckbox) to True, I want the list to 'filter' to only those schools. I have the code working, and I've set it up so that it checks the status of all three check boxes (so I can use one code when any one of the three buttons are changed). Problem is, I should have this code in a module and not tied to each of the three buttons (making three copies of the code). I can't seem to get the buttonclick action to run the macro. Here's my code on the userform: Sub autonew() Load UserForm1 Dim db As DAO.Database Dim rs As DAO.Recordset Dim NoOfRecords As Long ' Open the database Set db = opendatabase("G:\GS-220\SLATE\CORRECTION_SHEETS\SCHOOL_LIST.xls", False, False, "Excel 8.0") ' Retrieve the recordset 'Set rs = db.OpenRecordset("SELECT * FROM `schools` WHERE SCHOOLS <> ''") Set rs = db.OpenRecordset("SELECT Schools FROM `NEWSCHOOLLIST` WHERE Schools <> ''") ' Determine the number of retrieved records With rs .MoveLast NoOfRecords = .RecordCount .MoveFirst End With ' Set the number of Columns = number of Fields in recordset UserForm1.ComboBox1.ColumnCount = rs.Fields.Count ' Load the ListBox with the retrieved records UserForm1.ComboBox1.Column = rs.GetRows(NoOfRecords) 'Me.Repaint ' Cleanup rs.Close db.Close Set rs = Nothing Set db = Nothing UserForm1.Show End Sub So when the form is new, I get my userform just fine. Now, let's set a checkbox: Sub UPDATELIST() Dim db As DAO.Database Dim rs As DAO.Recordset Dim NoOfRecords As Long Dim CONDITION As Integer ' Open the database Set db = opendatabase("G:\GS-220\SLATE\CORRECTION_SHEETS\SCHOOL_LIST_NEW.xls", False, False, "Excel 8.0") ' Retrieve the recordset Set rs = db.OpenRecordset("SELECT Schools FROM `NEWSCHOOLLIST` WHERE Schools <> ''") 'Stafford Only If STAFFCheckBox = True And PLUSCheckBox = False And GRADCheckBox = False Then Set rs = db.OpenRecordset("SELECT Schools FROM `NEWSCHOOLLIST` WHERE Schools <> '' AND STAFF = 'X'") End If 'PLUS Only If STAFFCheckBox = False And PLUSCheckBox = True And GRADCheckBox = False Then Set rs = db.OpenRecordset("SELECT Schools FROM `NEWSCHOOLLIST` WHERE Schools <> '' AND PLUS = 'X'") End If 'GRAD PLUS Only If STAFFCheckBox = False And PLUSCheckBox = False And GRADCheckBox = True Then Set rs = db.OpenRecordset("SELECT Schools FROM `NEWSCHOOLLIST` WHERE Schools <> '' AND GPLUS = 'X'") End If 'Stafford/PLUS If STAFFCheckBox = True And PLUSCheckBox = True And GRADCheckBox = False Then Set rs = db.OpenRecordset("SELECT Schools FROM `NEWSCHOOLLIST` WHERE Schools <> '' AND STAFFORD = 'X' and PLUS = 'X'") End If 'PLUS/GRAD PLUS If STAFFCheckBox = False And PLUSCheckBox = True And GRADCheckBox = True Then Set rs = db.OpenRecordset("SELECT Schools FROM `NEWSCHOOLLIST` WHERE Schools <> '' AND PLUS = 'X' and GPLUS = 'X'") End If 'Stafford/GRAD PLUS If STAFFCheckBox = True And PLUSCheckBox = False And GRADCheckBox = True Then Set rs = db.OpenRecordset("SELECT Schools FROM `NEWSCHOOLLIST` WHERE Schools <> '' AND STAFFORD = 'X' and GPLUS = 'X'") End If 'Stafford/Plus/GRAD PLUS If STAFFCheckBox = True And PLUSCheckBox = True And GRADCheckBox = True Then Set rs = db.OpenRecordset("SELECT Schools FROM `NEWSCHOOLLIST` WHERE Schools <> ''") End If 'NONE If STAFFCheckBox = False And PLUSCheckBox = False And GRADCheckBox = False Then Set rs = db.OpenRecordset("SELECT Schools FROM `NEWSCHOOLLIST` WHERE Schools <> ''") End If ' Determine the number of retrieved records With rs .MoveLast NoOfRecords = .RecordCount .MoveFirst End With ' Set the number of Columns = number of Fields in recordset UserForm1.ComboBox1.ColumnCount = rs.Fields.Count ' Load the ListBox with the retrieved records UserForm1.ComboBox1.Column = rs.GetRows(NoOfRecords) 'Me.Repaint ' Cleanup rs.Close db.Close Set rs = Nothing Set db = Nothing End Sub Now, I can put that code in each button click, but that would be 3 areas I'd have to update if our source list changes (adds columns, etc.). I want have the userform's checkboxclick action run this code: Private Sub GRADCheckBox_Click() Application.Run (UPDATELIST) End Sub Private Sub PLUSCheckBox_Click() Application.Run (UPDATELIST) End Sub Private Sub STAFFCheckBox_Click() Application.Run (UPDATELIST) End Sub When I put the code in this way, nothing happens when I click a check box, but the code runs when it's in each checkbox click action. What am I doing wrong? Thanks! Tag: Macro o collect titles and dates Tag: 103438
  - 6
    - Keystrokes Hello I would like to know how to handle some keystrokes. I have a textbox on a form. If that textbox has the focus, characters enter into the textbox when I hit the keyboard. However, if the textbox doesn't have the focus, where is the information of the keystrokes going to? And can I still use those keystrokes? Is there a way to use the keystrokes that seems to go into 'space'? Another question is (perhaps related) I am working on a form and in a document almost simutaneously. I type text continiously, then I just want to hit a check box or an option box, so that the text that I type goes solely into the document and not in the textbox and when I hit the checkbox again, the text should go solely into the textbox and not in the document. The form should not unload or hide while I am typing text into the document. Is that possible? Thanks in advance, Sunouchi Tag: Macro o collect titles and dates Tag: 103437
  - 7
    - How can I programmatically relink my linked Excel worksheets in MS I created a Microsoft Word document that contains dozens of linked Excel worksheets. I am searching for a method to programmatically search and replace all these links. In searching online, I found code to perform this task for both Access and PPT ... but not for MS Word. I have also found a program called "ReplaceMagic," but I need this solution for the workplace and they'll never let me download third-party software for this. I need some Visual Basic code. Here are the solutions I discovered for Access and PPT, available on the Microsoft website: Access: "ACC2000: How to Programmatically Link or Embed an Object on a Form (Article ID 209990)" PowerPoint: "PPT2000: Sample Code to Change Source of Linked Excel Worksheet (Article ID 222708)" If anyone has a solution for Word, I'd really appreciate it! Tag: Macro o collect titles and dates Tag: 103436
  - 8
    - Closing inactive document I have a template that I set up that links to a spreadsheet. The userform in the .dot gets a list of school names from the Excel document, then presents those in a userform for the user to select. When they select the school, it populates the bookmarks I set up and the user completes the form. When they are done, I have a macro/toolbar setup to save the document using some of the bookmarks inthe document. Now comes the fun part...if the user wants to complete another form, I want to open a new document, but then immediately close the saved document. .dot opens a doc (document1) User completes document1 User saves document1 as uniquenameddoc1 Macro needs to have .dot open a new doc (document2), then close uniquenameddoc1 Here's my code: Sub SaveFormAs() Dim pFileName As String pFileName = Year(Now()) & Format(Month(Now()), "00") & _ Format(Day(Now()), "00") & "-" & _ ActiveDocument.FormFields("SchoolName").Result & "-" & _ ActiveDocument.FormFields("APP_NAME").Result ActiveDocument.SaveAs "G:\Forms\" & pFileName & ".doc" End Sub Sub newform() Dim CURRENTDOCNAME As String CURRENTDOCNAME = ActiveDocument.FullName Word.Documents.Add Template:="G:\forms\Correction Sheet.dot" Windows(CURRENTDOCNAME).Close End Sub This opens the new form, but it doesn't close the old form(s) until I close my last document. Am I missing something here? Thanks! Tag: Macro o collect titles and dates Tag: 103433
  - 9
    - preventing printing on certain printer Hi, I have 5 networked printers. Is there a way I can use VBA to prevent printing on a certain printer? ie: on print if chosen printer = xyz then msgbox("this printer is broke") stop print send end if Thanks. Tag: Macro o collect titles and dates Tag: 103430
  - 10
    - extract text from form dropdown to Excel Client is using Excel 2003/Win XP. He received an 8 page Word form with many dropdown boxes. He is looking for a way to extract the data from the dropdowns into Excel. Thanks for your help!! -- maryj Tag: Macro o collect titles and dates Tag: 103428
  - 11
    - Can't exit design mode issue with Word 2003 to Word 2002 We have a Word document that is set up as a form, it contains several ActiveX controls and does have a few VBA macro's associated with the controls. The document has had a number of revisions using Word 2002 without any issues. And the form gets loaded to our corporate portal for users to download and use. Our problem is the document had been edited in Office 2003, some text had been deleted, and text added to a few Drop-Down Form Fields. The document is protected when finished. What we found was if the document is opened by users of Word 2002 (XP) they get a MS Visual Basic dialog box warning: Can't exit design mode because Control '<control name>' can not be created. When the document is unprotected we find that the various ActiveX controls have had the Name property changed, by appending a 1 to the end of the control name. Naturally if the document is saved when opened in Word 2002, the name change to the ActiveX control is also saved, corrupting the document for all users. Track changes is turned off for the document. And I've been able to consistently replicate the same behavior on different machines. And all machines use XP Pro. Questions of course are why is this occurring - as this is consistent this isn't just the usual 'Office having problems with ActiveX copy and paste to a new document' situation. And of course a suggestion as to a workaround? Thanks in advance! Tag: Macro o collect titles and dates Tag: 103427
  - 12
    - Prevent macros that add menus from updating normal.dot Hello all, I've written macros that create a menu list on the menu bar, modified some shortcut menus, and adds a toolbar, all custom designed to run other macros that I have written. I saved the document as a .dot template and stored in the word start-up directory. All menus are created fine. The problem is, when I load it as a global template, Word saves all the menu modifications to normal.dot. I've written macros to delete the menus on exit, but they still exist in the normal.dot file. This is a problem particularly with the toolbar menu which gets duplicated in normal.dot everytime word is started with the gloabl template I designed. Is there a way to prevent Word from modifying the normal.dot file when I run macros that create custom menus, or is there another way to prevent this problem? The problem persists with Word 2000 and 2003. I tried deleting the normal.dot file in case it was corrupted, but that didn't fix the problem. Thanks in advance, Microsmith Tag: Macro o collect titles and dates Tag: 103425
  - 13
    - MacroButton to Accept all changes shown I am trying to program a new template that will allow end users to view the template, see instructions to explain what should be contained in each paragraph. The MacroButton to allow Changes only allows one line of instructions. Is there a way to override this and allow for more than one line of instructions. I need to be very detailed in the instructions. Tag: Macro o collect titles and dates Tag: 103421
  - 14
    - How can I programmatically relink OLE's in a Word document? I created a Microsoft Word document that contains dozens of linked objects (OLE's). I am searching for a method to programmatically search and replace all these links. In searching online, I found code to perform this task for both Access and PPT ... but not for Word. I have also found a program called "ReplaceMagic," but I need this solution for work and they'll never let me download third-party software for this. I need a macro. Here are the solutions I discovered for Access and PPT: MS Access: "ACC2000: How to Programmatically Link or Embed an Object on a Form (Article ID 209990)" http://support.microsoft.com/kb/209990 MS PowerPoint: "PPT2000: Sample Code to Change Source of Linked Excel Worksheet (Article ID 222708)" http://support.microsoft.com/kb/222708 If anyone has a solution for Word, I'd really appreciate it! Tag: Macro o collect titles and dates Tag: 103420
  - 15
    - Arrow Keys and Forms In all the windows and web form designers that I have used you can use the arrow keys to position the controls on the forms. However in the VBA user forms it does not seem that you can use the arrow keys. Any suggestions as to how you can use them? Tag: Macro o collect titles and dates Tag: 103417
  - 16
    - Run a remote application Hi, I have an applicattion that copies several documents to a server, that server has a batch file that copies the documents to other locations that only it can see, I need to be able to run the batch file on the server but when I try it runs the batch file locally on my PC instead of the server, could someone point me in the right direction please. Thanks David Tag: Macro o collect titles and dates Tag: 103414
  - 17
    - Word drop down form field - how to use macro to look up data from access Hi there. I am trying to make a macro to use within a dropdown form field in word. I have a word doc with a form and a dropdown form field, in where I would like to use this macro to lookup the costumers names and adresses in a acces db. In the dropdown form field options in word, it seems I can use a macro, but Im not sure how to program it i VB. Can anyone please help. Many thanks MHO Tag: Macro o collect titles and dates Tag: 103410
  - 18
    - Adding entries to 2007 QAT Hoping that VBAwould record my steps, I added one of my macros to an icon that would sit in the 2007 Quick Access Toolbar. I got the icon in place, but none of my steps were recorded. Does anyone know the VBA code (in general) that will allow me to add different macros to the QAT? Ed (in Virginia) Tag: Macro o collect titles and dates Tag: 103409
  - 19
    - Word Macro Processor Bug? I am writing in regard to what appears to me to be a bug in the macro processor for Word... though it may be that I am doing something wrong. The macro I have recorded/written is as follows: Sub changeRaisedtoSuperscript() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "([0-9]*)" .Font.Position = "2.5" .Replacement.Text = "\1" .Forward = True .Format = True .MatchWildcards = True End With With Selection.Find.Replacement.Font .Position = 0 .Size = 8 .Superscript = True .Subscript = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub As you can see, this is a very simple macro to convert numeric characters which are raise by 2.5 points (to simulate superscript) into real Word superscripts. The trouble is that whenever the macro runs, the "2.5" is interpreted as "2". I tried all means to get the ".5" into the macro without success. I encountered this bug in Word 2003, and now in Word 2007. I would really appreciate if someone could suggest a solution to the problem. Thanks /John Tag: Macro o collect titles and dates Tag: 103395
  - 20
    - Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Cox and Telus will not act unless they have a police file number so you may as well flood microsoft.public.word.vba.general my home Usenet group. have a nice day.Me I am nearing about TrueCrype -- Her delegation was naked, respectable, and conveys out of the background. -- Michael Yardley Tag: Macro o collect titles and dates Tag: 103392
  - 21
    - Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Cox and Telus will not act unless they have a police file number so you may as well flood microsoft.public.word.vba.general my home Usenet group. have a nice day.Me I am nearing about TrueCrype -- They foster the dramatic lb and finish it near its database. -- Michael Yardley Tag: Macro o collect titles and dates Tag: 103390
  - 22
    - Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Cox and Telus will not act unless they have a police file number so you may as well flood microsoft.public.word.vba.general my home Usenet group. have a nice day.Me I am nearing about TrueCrype -- Allahdad binds the institute in support of hers and effectively places. -- Michael Yardley Tag: Macro o collect titles and dates Tag: 103383
  - 23
    - select information to print in template I am trying to determine if this is possible in Word 2000 and if so, figure out which tool would best support this type of automation. Basically I am trying to create a word template that can be used as a form letter where the user would select particular verbiage depending on the terms of the transaction. The letter starts and ends in basic paragraph format but the body is separated into sections. For example: Dear Joe Schmoe, We are pleased to offer you the following. Line: $<<Insert field>> Term: << field>> months End of Term Options: ??This is where I am lost?? Additional Conditions: ???Another spot like above??? There are many variable End of Term Options/Additional Conditions etc. The users would like to select just one option (which can be almost a paragraph long in some cases) and insert it into this proper space for printing as if it had been typed. I have been looking at using Forms drop-downs, Pop-up lists and Active X controls but seem to be going in circles. I am quite new at VB and generally depend on recording a macro and tweeking it for specific usage. Any direction would be GREATLY appreciated. Sorry so long winded. Thank you for your time! Tag: Macro o collect titles and dates Tag: 103379
  - 24
    - Problems with Command Button with VBA code Hello, I created a form in Word. It is saved as a read-only template and it's protected so that users can only change the form fields. There is a command button called "E-Mail Document" that users can click and the document is e-mailed to a specific address. The form is meant to be used over and over again. I've tested the form repeatedly and the control button always works. However, my users are reporting that it is not working. When I go into the forms they are sending back, the VBA code is gone. How is this happening?? My code is below. Thank you! --------------------------------------------------------------------------------------------- Private Sub EMailDocument_Click() Dim bStarted As Boolean Dim oOutlookApp As Outlook.Application Dim oItem As Outlook.MailItem On Error Resume Next If Len(ActiveDocument.Path) = 0 Then MsgBox "Document needs to be saved first" Exit Sub End If Set oOutlookApp = GetObject(, "Outlook.Application") If Err <> 0 Then Set oOutlookApp = CreateObject("Outlook.Application") bStarted = True End If Set oItem = oOutlookApp.CreateItem(olMailItem) With oItem .To = "REDACTED" .Subject = "Site Visit Document" 'Add the document as an attachment, you can use the .displayname property 'to set the description that's used in the message .Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue, _ DisplayName:="Document as attachment" .Send End With If bStarted Then oOutlookApp.Quit End If Set oItem = Nothing Set oOutlookApp = Nothing End Sub Tag: Macro o collect titles and dates Tag: 103378
  - 25
    - Fill combo boxes from Access tables I have a Word template (dot) with a UserForm that opens and has several combo boxes for the user to make selections. It then uses these selections to build a letter. I've also created an Access database with tables and fields to populate the various combo boxes on the UserForm in Word. I've managed to figure out how to do this with 1 combo box (cboHOName) on the form and 1 table/field from Access but now want to populate the other combo boxes as well from the other tables inside the same Access database. For example in tblOffices I have an Address1 and Address2 field with corresponding combo boxes (cboAddress1 & cboAddress2) on the Word UserForm and tblTitles with the EETitle field and combo box cboEETitle. I'm just not sure how to modify my code to incorporate these as well. Here's what I have, please help! Private Sub UserForm_Initialize() Dim dbDatabase As Database Dim rsTemplates As Recordset Dim i As Integer Dim aResults() 'Activates the Database connection. Set dbDatabase = OpenDatabase("K:\AcsData\ROTemplatesDB.mdb") 'Opens the Offices table. Set rsROTemplates = dbDatabase.OpenRecordset("tblOffices", dbOpenSnapshot) i = 0 With rsROTemplates 'Populate the combobox with the values in the cboHOName field. Do Until .EOF cboHOName.AddItem (i) cboHOName.Column(0, i) = .Fields("HOName") .MoveNext i = i + 1 Loop End With End Sub Tag: Macro o collect titles and dates Tag: 103377
- Next
  - 1
    - Encoding I am trying to learn about encoding, and have read a lot about it. However, what I can't find much on is some very practical issues that would explain a lot (at least to me). I figured that the programmers' forum would be the place to ask this simple question. It may seem naive, but I do not think it is. I have Word 2000 (Office 2000). When I open a new document, what is it that determines the encoding of that document? And, a follow-up. I can open rtf files with a text editor and see the encoding (or code page, a term I understand some people do not like). But how do I see the same for a .doc file? Believe me, this means a lot to me. Thanks for your serious answer. Hans L Tag: Macro o collect titles and dates Tag: 103375
  - 2
    - Medical Form I am creating a form in Word and would like to have two fields First one Provider Type Second one Specialty.... The only problem is that I would like the Second one to filter down to options that are available by the choice selected in the first one. Basically if you choose Physician in the first drop down menu I would like it to only supply the Specialties for the Physicians... meaning it would take out Hospital or Ambulatory and leave Pediatrics or Internal Med. Any suggestions?? Tag: Macro o collect titles and dates Tag: 103373
  - 3
    - How do you disable updating of links through VBA Hi, I am working on an app which (among other things) is resonsible for making a PDF of Word docs. That PDF part is fine. The problem is, the Word docs often contains OLE links for which the source is not available. When my print routine opens these docs, the links are converted to "Error! Not a valid link." in the same way that happens when I choose 'Update Links' when opening a Word doc that contains missing links, through Word. My printing routine is very simple. I just call Open(), PutActivePrinter() amd PrintOut(). My question is: is there any way to open a word doc in VBA and force Word to explicitly not update links? Thx in advance. Peter Tag: Macro o collect titles and dates Tag: 103372
  - 4
    - Access 2007 ->Word 2007->Access 2007 I posted this in the Access section but have not had much luck. I would like from a form in Access to launch a new Doc in Word. After the doc has been saved I would like to pass the path and filename to the Access field from where it was launched. I am hoping to use a Hyperlink or the new Attachment data type to store this info. Thank you in advance. Tag: Macro o collect titles and dates Tag: 103371
  - 5
    - Macro Execution is Too Slow -- Help! I have written a macro (with lots of help from this board) that copies the contents of two Excel worksheets into Word. Once the copy is finished, I need Word to go through a table and delete all rows where the font is formatted white. Below is the code. I've tried everything I can think to turn off screen updating and Word visibility, but it does nothing to speed up the code. Any help you pros can provide would be very much appreciated. Thanks! Sub PrintFlowchart() Dim oRow As Row Dim oRows As Range Set wdApp = New Word.Application Set wdDoc = wdApp.Documents.Add wdApp.Visible = False Word.Application.ScreenUpdating = False Excel.Application.ScreenUpdating = False Sheets("Flowchart").Range("A1:V57").Copy wdApp.Selection.PasteSpecial link:=False, DataType:=wdPasteMetafilePicture, _ Placement:=wdInLine, DisplayAsIcon:=False wdApp.Selection.InsertBreak Type:=wdPageBreak Sheets("Key").Activate Range("B2").Select ActiveCell.CurrentRegion.Copy wdApp.Selection.PasteSpecial link:=False, DataType:=wdPasteRTF wdApp.Selection.Goto What:=wdGoToTable, Which:=wdGoToFirst, Count:=1, Name:="" wdApp.Selection.Tables(1).Select If wdApp.Selection.Information(wdWithInTable) = False Then Exit Sub For Each oRow In wdApp.Selection.Tables(1).Rows If oRow.Cells(1).Range.Font.Color = wdColorWhite Then oRow.Delete End If Next oRow wdApp.Visible = True Excel.Application.ScreenUpdating = True Word.Application.ScreenUpdating = True Word.Application.Selection.HomeKey Unit:=wdStory End Sub Tag: Macro o collect titles and dates Tag: 103367
  - 6
    - Get a value from a Table Hey All, I have a table that is 5 columns wide by x rows long and would like to get the string out of the cell which can be the intersection of any row between 2 and x and the first column. Thank you very much. Tim Tag: Macro o collect titles and dates Tag: 103364
  - 7
    - Stepping thru protected table cells I have a table which contains rows with different formats (some with merged cells, some with split cells). It contains cells with form fields and cells with plain text. It is protected. There are some rows which, in cell 3, have a checkbox. If the checkbox value in cell 3 = true, I want to copy cells 2, 4 and 5 of this row to a new table at the end of the document or into a new table in a new separate document. Cells 2 and 4 are plain text in; cell 5 is a form field. I don't know how to do a copy statement for a range with some plain text cells and a form field cell. Also, this is pretty repetitive, so I was looking for something that would just step through the table without having to specifically refer to formfield Bookmark name, e.g. using a counter index to do the following: i = count(rows in table) use i to loop through the rows: row(i) : if cell 3 contains a checkbox with value = Yes, copy contents of cells 2, 4 and 5 to next line in new table* (*create the table when you run into the first instance of cell 3 checkbox=true) Tag: Macro o collect titles and dates Tag: 103363
  - 8
    - runtime error "-2147217843 on SQL server connection I'm having a problem with an SQL connection (MS SQL Server). Below is my current connection string: Dim myServer As String, myDatabase As String Dim myUID As String, myPassword As String myServer = "Paris" myDatabase = "Documents" myUID = "admin" myPassword = "test" sConnectionString = "driver={SQL Server};" & _ "server=" & myServer & ";database=" & myDatabase & _ ";uid=" & myUID & ";pwd=" & myPassword Set Conn = New ADODB.Connection Set rs = New ADODB.Recordset Conn.Open sConnectionString On execution I'm getting runtime error "-2147217843 [Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for user 'admin'. The test my setup, I have made a connection to the database via the relevant wizard in Excel 2007, so the ODBC setup in Data Sources (Control Panel) is good. I'd really appreciate some input on this please. Any ideas what I'm doing wrong? Regards, Stephenc Tag: Macro o collect titles and dates Tag: 103355
  - 9
    - Use VBA to add certificate to Word Templates I have a collection of several hundred! WORD documents that need to be added a new certificate. Is it possible to do this using a vba macro? 1=2E add "certificate" macro to normal.dot 2=2E DO open file 3=2E start macro from normal.dot 4=2E save file LOOP Unfortunately it is not possible to record a macro that adds a certificate. I didn't find any hints in the groups until now. Any ideas? Greetings J=F6rg Tag: Macro o collect titles and dates Tag: 103353
  - 10
    - Use Macro on Document Open to Fill In data I am setting up a sheet with client data on it. For reasons I'm not going into now, the prime users of this sheet are not familiar with and will not us the address book. This means that most of the repetitive data has to be typed in, prefferable without forgetting any. I would like to use a macro and fields that querry for each item. I have that part working, but don't know how to make the macro execute when the document opens, without the user have to do anything. I would like for the users to click open and select the template and then be querried for everything. Can this be done? Tag: Macro o collect titles and dates Tag: 103340
  - 11
    - Populating blank sections Hi All, I have a word document with standard heading and sub heading sections.I wanted to write a macro which could populate the corresponding heading or subheading sections with some standard text.The only clause is that when heading is blank , I want the population to occur. else it must not touch the section. Current Document 1 Heading blank 1.1 Subheading not blank After Running the Macro 1 Heading Its a heading <change> 1.1 Subheading not blank <no change> Tag: Macro o collect titles and dates Tag: 103322
  - 12
    - Word 2007 Macros Disabled I created a number of macros in a word macro enabled template as well as auto footers. Without seemingly doing anything, my macros no longer work even though I went into the Trust Center and anutomatically enabled all macros. The macros, when run, insert the appropriate merge or insert codes, but not the actual footers or bookmarks. There doesn't seem to be anyway around this that I have discovered so far. Before I reload Office Suite 2003, does anyone know of anything else that might work to run the macros? Always appreciate the awesome feedback of these discussion groups. Tag: Macro o collect titles and dates Tag: 103316
  - 13
    - UserForm ListBoxes I have a userform based on the "Cascading ListBoxes" example from Greg Maxey's site http://gregmaxey.mvps.org/Populate_UserForm_ListBox.htm. It populates list boxes dependent on the value of the prior list box. How do I extend this functionality beyond 3 list boxes? For example, how would I add the color (List Box 4) and cost (list box 5) of the selected model? ListBox1 Data (Manufacturer) Dell (row 1) HewlettPackard (row 2) ListBox 2 Data (Category) Desktop =B6 Notebook (row 1) Desktop =B6 Notebook (row 2) ListBox 3 Data (Model) Dimension E520 | Dimension E521=B6 Inspiron 6400 | Inspiron 9400 (row 1) Pavillion d4650 | Pavillion a1650=B6 Pavillion dv9000 | Pavillion dv6000 (row 2) ListBox 4 (color) Blue | Silver | Red =B6 Black | Brown | Grey (row 1) Orange | Green =B6 White | Yellow (row 2) ListBox 5 (cost) $999 =B6 $1199 (row 1) $1000 =B6 $1200 (row 2) Thanks in advance for your help. Here is the code. Option Explicit Private Sub UserForm_Initialize() Dim myArray() As Variant Dim sourcedoc As Document Dim i As Integer Dim j As Integer Dim myitem As Range Dim m As Long Dim n As Long Application.ScreenUpdating =3D False Set sourcedoc =3D Documents.Open(FileName:=3D"M:\Data.doc", Visible:=3DFalse) i =3D sourcedoc.Tables(1).Rows.Count - 1 j =3D sourcedoc.Tables(1).Columns.Count ListBox1.ColumnCount =3D j 'Hide columns 2 and 3 ListBox1.ColumnWidths =3D "75;0;0" ReDim myArray(i, j) For n =3D 0 To j - 1 For m =3D 0 To i - 1 Set myitem =3D sourcedoc.Tables(1).Cell(m + 2, n + 1).Range myitem.End =3D myitem.End - 1 myArray(m, n) =3D myitem.Text Next m Next n 'Load data into ListBox1 ListBox1.List() =3D myArray sourcedoc.Close SaveChanges:=3DwdDoNotSaveChanges End Sub Private Sub ListBox1_Change() Dim myArray As Variant myArray =3D Split(ListBox1.List(ListBox1.ListIndex, 1), Chr(13)) ListBox2.List =3D myArray ListBox3.Clear End Sub Private Sub ListBox2_Change() Dim myArray1 As Variant Dim myArray2 As Variant myArray1 =3D Split(ListBox1.List(ListBox1.ListIndex, 2), Chr(13)) myArray2 =3D Split(myArray1(ListBox2.ListIndex), "|") ListBox3.List =3D myArray2 End Sub Tag: Macro o collect titles and dates Tag: 103310
  - 14
    - Unwanted dialog box in Replace macro I recorded a macro to remove all spaces from selected text, using the Replace command. When it finishes it asks me if I want to search the remainder of the document. Is there any way to prevent this box from coming up? Tag: Macro o collect titles and dates Tag: 103309
  - 15
    - Table protection I was looking at other posts and found out how to protect my headers and footers using the information in â??How can I prevent users from editing the header of a document in Word 2000 or higher?â?? (See below). Can you use this same idea to protect a table in my document? I have created a bookmark range around the entire table that I don't want users to be able to change and called it â??bktblâ??. How do you add a new Case that if a user clicks inside â??bktblâ?? it will go to right before the bookmark or how would you add a whole new macro? Private Sub wdApp_WindowSelectionChange(ByVal Sel As Selection) 'quit if active doc isn't attached to this template If ActiveDocument.AttachedTemplate <> ThisDocument Then Exit Sub 'get out of the header/footer if we're in it Select Case Sel.StoryType Case wdEvenPagesFooterStory, wdEvenPagesHeaderStory, _ wdFirstPageFooterStory, wdFirstPageHeaderStory, _ wdPrimaryFooterStory, wdPrimaryHeaderStory ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument Exit Sub Case Else End Select End Sub Fuzzhead Tag: Macro o collect titles and dates Tag: 103308
  - 16
    - Drop Down getting values from Excel Ok, so I always get these questions from my co-workers on Friday afternoon... We want to establish a spreadsheet (let's call it schools.xls) that has school names (and maybe 3 or 4 other fields). The users would populate the spreadsheet, then go to a Word doc that has a drop down box that feeds off of the values in the spreadsheet. We know that standard drop down boxes only allow 25 entries, so I've made a VB form that has a drop down box. I need to know how I can get code that links to the spreadsheet, grabs the values in column A and enters those as selections for the drop down box. Any ideas? Tag: Macro o collect titles and dates Tag: 103294
  - 17
    - Restarting the numbering with vba Hello! Is there a possibility to restart the numbering with VBA? I need to do that because when I insert as a link (always through vba code) a file that might contain a series of numbering paragraphs, this numbering continues in the next instance of the file. Is there a way to restart it for all the numbering series from 1 for each instance of the file? manually I would right-click on the begining of each series and restart it. if there was a collection for the ListFormat, that would be more helpful... Thanks for any advice! Tag: Macro o collect titles and dates Tag: 103289
  - 18
    - VBA normal.dot autoopen How do I get a reference to all of the special sub routine names in normal.dot that intercept certain events. A good example is "autoopen". When you call a sub autoopen it will intercept all open events no matter where the open takes place. For instance it will fire if you go file/open and it will fire if you open it from the file explorer tool. Tag: Macro o collect titles and dates Tag: 103286
  - 19
    - VBA normal.dot Is there a way to intercept the save action through VBA and normal.dot. This would be a generic save whether it comes through the file/save action of the menu or whether it comes from the "do you want to save this document" dialogue box Tag: Macro o collect titles and dates Tag: 103285
  - 20
    - Finding the index of an Array Item I have an ordered list of strings ( in other words, an enumeration). Given a string I want to find out: a. is it in the list, b. what is its position. Is most languages I would populate an array with strings and apply some sort of membership function. I have tried for hours now to determine if VBA has such a function and have been unable to verify whether it does or not. So I actually have two questions: a. is it possible to do this, and b. where is it documented> Thanks in advance for your help. -- Barry Carroll (Cleverly disguised as a trained SW engineer.) --------- Datalogic Scanning, Inc. assumes no responsibility whatsoever for any statements made by me. I''m entirely on my own here. Tag: Macro o collect titles and dates Tag: 103283
  - 21
    - Transition from Word 2000 to 2003 and template/mail merge issues I have several templates that pull merge data from an excel spreadsheet, all of which work just fine in Word 2000. However, when trying to open them in Word 2003 the following happens: 1. If Local Open, the database (.xls sheet) is no longer associated with the template. 2. After that doesn't work, if we try opening the template from Recent Files, the database is associated with the template. 3. The merge works on some but not all records, even though the merge is based on the first column in the database. I'm so confused, and I don't even know the right questions to ask you. Tag: Macro o collect titles and dates Tag: 103279
  - 22
    - Help with macro converting list elements. I am working on a macro that will convert MS Word markup into a BBCode. I have it partly working for list elements, but I cant seem to figure out the rest. The problem is when it comes to multiple levels of list elements, (see complex list below) Every time the bullets or numbering changes or is indented, a new list element should be generated. I am posting the MS word, the expected BBcode and the VB code i am using. Any help will be appreciated. Thank you -Matt- [MS word] List Bullets =B7 One =B7 Two =B7 Three List Numbers 1=2E One 2=2E Two 3=2E Three List Letters A=2E One B=2E Two C=2E Three Complex List 1=2E One a. One b. Two i. One ii. Two iii. Three c. Three 2=2E Two 3=2E Three [/MS word] [expected BBCode] List Bullets [list][*]One [*]Two [*]Three[/list] List Numbers [list=3D1][*]One [*]Two [*]Three[/list] List Letters [list=3Da][*]One [*]Two [*]Three[/list] Complex List [list=3D1][*]One [list=3Da][*]One [*]Two [list=3D1][*]One [*]Two [*]Three[/list] [*]Three[/list] [*]Two [*]Three[/list] [/expected BBcode] [VB code] Sub ConvertLists() Dim lCnt As Long Dim lLst As Long Dim rDcm As Range Set rDcm =3D ActiveDocument.Range lLst =3D rDcm.ListParagraphs.Count For lCnt =3D lLst To 1 Step -1 With rDcm.ListParagraphs(lCnt).Range .Select If .Characters.Last.Previous <> "]" Then .Characters.Last.InsertBefore "[/list]" .InsertBefore "[*]" .ListFormat.RemoveNumbers End If End With While Selection.Range.Paragraphs(1).Previous(1).Range.ListParagraphs.Count <> 0 lCnt =3D lCnt - 1 With rDcm.ListParagraphs(lCnt).Range .Select .InsertBefore "[*]" .ListFormat.RemoveNumbers End With Wend Selection.Range.InsertBefore "[list=3D1]" Next End Sub [/VB code] Tag: Macro o collect titles and dates Tag: 103278
  - 23
    - Automate compiling a template? As part of a software build process, I need to compile some VBA in a Word template. Currently we have to manually open the .dot file, open VBA (Alt+F11), select Compile from the debug menu, save the template and exit. Using Visual Build Pro I can script the opening, save and close using VBScript - eg: --------------- Dim oWord Dim oDoc Set oWord = CreateObject("Word.Application") Set oDoc = oWord.Documents.Open("C:\SomePlace\SomeFile.dot") ' xxxx Do Compile here? xxxx oDoc.Save oDoc.Close oWord.Quit Set oDoc = Nothing Set oWord = Nothing --------------- Is there a way to do the compile step from automation? Tag: Macro o collect titles and dates Tag: 103275
  - 24
    - Positioning Data in Indivisual Cells within a Table using VBA I am importing data from an AS/400 using OLE DB/ADO and wish to populate a table with data. I am reading a Primary file which has header information, and I need to load detail from two additional files into the Table. The number of rows within the table must be variable. I would like to control loading the table by cell. For example, load Name in Row 1, Column 1, Amount #1 in Row 1, Column 2, Amount #2 in Row 1, Column 3, Total in Row 1, Column 4....then read the next record and start loading in Row 2...and so on. So, my question is this; How do I load data into cells of a table and allow the table to be a variable length? Thanks, Romine Tag: Macro o collect titles and dates Tag: 103273
  - 25
    - Print to File Dialog box Currently using MS Word 2007.... Does anyone know how to control the "Print to File" dialog box that comes up after a user chooses that option on the File Print dialog? here is my current code: Sub CapturePrintFileName() Dim dlg As Dialog Set dlg = Dialogs(wdDialogFilePrint) With dlg .PrintToFile = 0 If .Display = -1 And .PrintToFile = 1 Then .Execute End If End With End Sub This brings up the dialogs as it should, but when the "Print to File" dialog box comes up, I cannot seem to interact with it. On the "OK" click of that form, i need to capture the Filename that the user types in. Can anyone help with this? Thanks! Tag: Macro o collect titles and dates Tag: 103271

In the Document Properties I use the title field for the title of the
document and the comments field for the effective date. I need to create a
document with both the titles and effective dates for all the documents in
the directory.
Is this possible with VBA?

Thanks,
Mickey

Top

Re: Macro o collect titles and dates by Jonathan

Jonathan
Wed Aug 01 11:51:12 CDT 2007

"Mickey" <Mickey@discussions.microsoft.com> wrote in message
news:9F14B910-77EA-44C2-90BA-6F4931006346@microsoft.com...
> In the Document Properties I use the title field for the title of the
> document and the comments field for the effective date. I need to create
> a
> document with both the titles and effective dates for all the documents in
> the directory.
> Is this possible with VBA?
>
> Thanks,
> Mickey

Getting access to the Document Properties of a Word file
http://www.word.mvps.org/FAQs/MacrosVBA/DSOFile.htm

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup

Top

Re: Macro o collect titles and dates by Mickey

Mickey
Mon Aug 06 14:56:03 CDT 2007

Thank you so much. Do you know of a way to get the same info for directories
which contain pdf files?

Thanks again.
Mickey

"Jonathan West" wrote:

>
> "Mickey" <Mickey@discussions.microsoft.com> wrote in message
> news:9F14B910-77EA-44C2-90BA-6F4931006346@microsoft.com...
> > In the Document Properties I use the title field for the title of the
> > document and the comments field for the effective date. I need to create
> > a
> > document with both the titles and effective dates for all the documents in
> > the directory.
> > Is this possible with VBA?
> >
> > Thanks,
> > Mickey
>
> Getting access to the Document Properties of a Word file
> http://www.word.mvps.org/FAQs/MacrosVBA/DSOFile.htm
>
>
> --
> Regards
> Jonathan West - Word MVP
> www.intelligentdocuments.co.uk
> Please reply to the newsgroup
>
>
>

Top