Save As UserName

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Bookmarks I am running word from access - using msoffice2000, winxp I have 22 docs with bookmarks in them. I need to fill in the bookmarks from my access app. Everything works as expected on 18 of the 22 files. The other 4 files cause all kinds of problems. I have set the recordset to just access these 4 files, wondering if I was over-taxing the whole system, but even if they are the only 4 files, they cause problems. Here are the problems. If I try to do all 22 files, I get the 18 files correct, then the app stops, everything is in 'not responding' and I have to shut it all down. If I try to do just the 4 rogue files, the routine that sets the bookmarks gets the 4 files in a recordset, opens them, skips over the portion of the routine that sets the bookmarks.text and closes them back up, this time without any 'not responding' system problems. I have checked the docs, and all bookmarks are actually present. Using debug.print, I see the routine set all 18 files but then it fails on the first of these 4 files. The debug.print suggests that the app is working on the files in an ascending alpha sort, and it does the good 18, and then crashes on the first of the 4 bad files, which is located in the middle of the alpha sort. I am dumbfounded at this action, but am wondering if I perhaps have four corrupted files. I thought I would beg some information before just jumping in and recreating these files. Is there something I can do about this short of recreating the files? Thanks for your expertise. I appreciate it a great deal. Tag: Save As UserName Tag: 56797
  - 2
    - Ready to give up... I have created 2 Word documents. Both have radio buttons and text boxes. In one I used VBA controls and the other I used Web Controls. Both are protected. I sent both to another computer as attachments. The operator at the other computer opened both attachments but cannot click on any of the radio buttons and have it register. He is uable to enter any text in the text box. In clicking on the text boxes and radio buttons the properties dialog box opens. What is going on? How difficult is it to create a user form and actually have it work? BTW I do not know if it makes a difference but my OS is XP and the other is W98. Mike C. Tag: Save As UserName Tag: 56796
  - 3
    - Printing to paper trays I have posted this problem to the PAge Layout forum but I first encountered it with VBA. I am having a problem with paper trays, re the following: - in a new document type some text, put in a next page section break and type some text on page 2 (section 2) - In File, Page Setup choose Tray One for first page and Tray Two for the other pages, making sure you've got apply to Whole Document seleceted - if you then print the document, both pages come from tray 1!!. If you look in File Page, Setup again it has first page from tray 1 and other pages from tray 2 for This Section, but if you change it to Whole Document no trays are selected. If seems to print the first page of each section from tray 1 and the rest of the pages from each each section from tray 2. As each section only has 1 page they all print from tray 1. Is this true and how do I get around it? This VBA code seems to do the same thing as manually changing the trays in Word: ActiveDocument.PageSetup.FirstPageTray =somecode working out tray ActiveDocument.PageSetup.OtherPagesTray = somecode working out tray Tag: Save As UserName Tag: 56794
  - 4
    - Help debugging code Using Word 2002 and 2003. Have a routine that loops through an array, builds up a string and then puts the string in the document. Occasionally this doesn't work properly and only part of the array appears in the document. The problem is that I can't just see any reason why this would be happening. I have dumped the array to a textfile to have a look at it, but it all looks normal or in any case no different from other arrays that appear in the document fine. The array is an 0-based 2D array with 4 or 5 columns and up to about 100 rows. It contains dates, numbers and strings. As I have no idea still what the problem is here I just post the full Sub in the hope that somebody has some suggestion as to where the problem could be. Leaving out the Exit Sub bits doesn't make a difference. Any assistance greatly appreciated. Sub ArrayToWordText(ByRef arr As Variant, _ ByVal lStartCol As Long, _ ByVal lEndCol As Long) 'converts a 2-dimensional array to a Word as plain text 'note that the start and end column are always 1-based 'even when the arrray is 0-based '----------------------------------------------------- Dim rng As Range Dim tbl As Table Dim LB1 As Byte Dim LB2 As Byte Dim UB1 As Long Dim UB2 As Long Dim lRows As Long Dim lCols As Long Dim i As Long Dim c As Long Dim LB1corr As Byte Dim LB2corr As Byte Dim colCorr As Integer Dim strTemp As String LB1 = LBound(arr) UB1 = UBound(arr) LB2 = LBound(arr, 2) UB2 = UBound(arr, 2) LB1corr = 1 - LB1 '0-based array >> LB2corr will be 1 '1-based array >> LB2corr will be 0 LB2corr = 1 - LB2 colCorr = lStartCol - (LB2corr + 1) lRows = (UB1 - LB1) + 1 lCols = (lEndCol - lStartCol) + 1 Application.ScreenUpdating = False Set rng = Selection.Range rng.Collapse Direction:=wdCollapseEnd On Error GoTo ERRORADDINGTABLE 'for debugging '------------- If bArray2Text = True Then SaveArrayToText2 "C:\NotesDump.txt", arr End If For i = 1 To lRows If BPArray(i - LB1corr) = 1 Then 'dealing with BP entry '--------------------- For c = 1 To lCols If strNoteSubject <> "Q" Then If arr(1 - LB1corr, 1 + colCorr) = Empty Then Exit For End If End If Select Case c Case 1 strTemp = strTemp & arr(i - LB1corr, c + colCorr) Case lCols If lCols = 4 Then If Not arr(i - LB1corr, c + colCorr) = Empty Then strTemp = strTemp & "/" & arr(i - LB1corr, c + colCorr) & Chr(13) End If Else If arr(i - LB1corr, c + colCorr) = Empty Then strTemp = strTemp & Chr(13) Else strTemp = strTemp & ", " & _ arr(i - LB1corr, c + colCorr) & Chr(13) End If End If Case Else If c = 4 Then If Not arr(i - LB1corr, c + colCorr) = Empty Then strTemp = strTemp & "/" & arr(i - LB1corr, c + colCorr) End If Else If Not arr(i - LB1corr, c + colCorr) = Empty Then strTemp = strTemp & ", " & arr(i - LB1corr, c + colCorr) End If End If End Select Next Else 'not dealing with BP entry '------------------------- For c = 1 To lCols If strNoteSubject <> "Q" Then If arr(1 - LB1corr, 1 + colCorr) = Empty Then Exit For End If End If Select Case c Case 1 strTemp = strTemp & arr(i - LB1corr, c + colCorr) Case lCols If TestArray(i - 1) = 1 And c + colCorr = 3 Then 'dealing with test value and unit, so no comma '--------------------------------------------- strTemp = strTemp & " " & _ arr(i - LB1corr, c + colCorr) & Chr(13) Else If arr(i - LB1corr, c + colCorr) = Empty Or _ arr(i - LB1corr, c + colCorr) = Chr(32) Or _ arr(i - LB1corr, c + colCorr) = vbNull Or _ Trim(arr(i - LB1corr, c + colCorr)) = "" Then strTemp = strTemp & Chr(13) Else strTemp = strTemp & ", " & _ arr(i - LB1corr, c + colCorr) & Chr(13) End If End If Case Else If TestArray(i - 1) = 1 And c + colCorr = 3 Then 'dealing with test value and unit, so no comma '--------------------------------------------- strTemp = strTemp & " " & arr(i - LB1corr, c + colCorr) Else If Not arr(i - LB1corr, c + colCorr) = Empty And _ Not arr(i - LB1corr, c + colCorr) = Chr(32) And _ Not arr(i - LB1corr, c + colCorr) = vbNull And _ Not Trim(arr(i - LB1corr, c + colCorr)) = "" Then strTemp = strTemp & ", " & arr(i - LB1corr, c + colCorr) End If End If End Select Next End If Next 'not sure why this is still needed, should have been filtered out above '---------------------------------------------------------------------- strTemp = Replace(strTemp, ", " & Chr(13), Chr(13), 1, -1, vbTextCompare) strTemp = Replace(strTemp, " <-| ", Chr(13) & Chr(9), 1, -1, vbTextCompare) strTemp = Replace(strTemp, " <-|", "", 1, -1, vbTextCompare) 'to indent after linebreak '------------------------- With Selection.ParagraphFormat .LeftIndent = CentimetersToPoints(2.1) .FirstLineIndent = CentimetersToPoints(-2.1) End With With Selection .TypeText Text:=strTemp .MoveDown Unit:=wdLine, count:=2 End With 'back to normal linebreak '------------------------ With Selection.ParagraphFormat .LeftIndent = CentimetersToPoints(0) .FirstLineIndent = CentimetersToPoints(0) End With Application.ScreenUpdating = True Exit Sub ERRORADDINGTABLE: Application.ScreenUpdating = True MsgBox "COULDN'T PUT THE ARRAY HERE!", vbInformation, "" On Error GoTo 0 End Sub RBS Tag: Save As UserName Tag: 56793
  - 5
    - picture question I have a picture in a Word document. Is there a way to save only the picture as a TIF file? Thanks Tag: Save As UserName Tag: 56792
  - 6
    - How to find the new document created by a mail-merge? Hi, I am splitting my document into several new documents (by section) and then performing a mail merge with each section (usually with different data sets). How do I find the document object that was created as a result of the mail merge? I can't find it in the original documents merge object anywhere. I can't assume it is the last document in the application documents collection, as the user may be doing other things with another word document while the merge is proceeding. Any hints about this? Thanks robin Tag: Save As UserName Tag: 56789
  - 7
    - How to create the range between two field codes? Consider the following field codes: «SECTION_START» .... Some text .... Maybe an image .... «SECTION_END» How is it possible for me to create a range starting from the end of the section_start mergefield and end at the section_end merge field start? At present, I'm writing the following: Dim theRange As Word.Range theRange.Start = theFirstField.Result.End + 1 theRange.End = theSecondField.Result.Start - 1 However, it always seems that the range contains the second field code. All I want is the stuff inbetween, NOT including the field codes. Thanks for any tips you can give me on this, Robin Tag: Save As UserName Tag: 56783
  - 8
    - macro to add line I am trying to design a macro that will create a new row in a table. Is this possible? I actually want it to create a row, and then have form fields in the row? Is either one possible? p.s. THIS IS A WORD PROGRAMMING QUESTION, CORRECT????? Tag: Save As UserName Tag: 56770
  - 9
    - Get text strings from closed docs? I have a folder with over 14,000 Word docs. I would like to extract a few text strings from each doc to build a table in a "master list" doc (for instance: for each doc, find "Title" and get the following 24 characters; find "Date" and get the following 8 characters, etc). Can this be done without opening and closing each doc? Ed Tag: Save As UserName Tag: 56767
  - 10
    - How do I remove a section break from a document? Hi, I'm trying to split my document up into new documents, one for each section in the original master document. To do this, I am more or less executing the following code: ' Create a new document. Dim theNewDocument As Word.Document = m_WordApplication.Documents.Add(Visible:=True) ' Add the new document to the list of documents we should keep track of. m_Sections.Add(theNewDocument) ' Get the current section. theSection = m_LoadedDocument.Sections.Item(Index + 1) ' Now copy the section into the new document. theRange = theSection.Range.FormattedText ' Copy across. theNewDocument.Range.FormattedText = theRange This is all well and good. Consider a master document with 2 sections. In this case, the second (last) section is cut and copied correctly into the new document, however, the first section when copied into the new document still contains the section break at the end of it. So I am having to write: ' Got more than one section? If theNewDocument.Sections.Count > 1 Then ' Somehow remove all section breaks from the document End If Any ideas on how to remove this section break? Thanks, Robin Tag: Save As UserName Tag: 56765
  - 11
    - macro/form to prompt user for input (in WORD) Simple request: Want to create macro/form to prompt user to imput a "word". This word will then be placed on a formated page that allows fifteen different words/phrases arranged in three columns, five rows. These can be printed out to create flash cards for language study. By having an input box, it eliminates all of the tabbing & entering to put these words in the correct place on the page. KNOW it's possible & simple. Can't remember enough about creating a macro to do it and the macro directions in Word just don't apply at all. Thanks! Tag: Save As UserName Tag: 56763
  - 12
    - Remembering Values Hi I have created a user form for memos and faxes. I would like to be able to remember the last 4 recipient details entered. Initially I thought of creating 4 documents, each with a name and job title bookmark, when i click button number 1 on my user form it would look in document1 read the bookmark values and pop them into the text boxes in the user form. If the user overtypes the text in the text boxes it rewrites the text in the bookmarks in the relevant document. I can't seem to find any mention of how to read bookmark values - do I need to use something else?? would autotext or a table or even excel be any easier for storing data. I would really appreciate some advice. Thank you very much for your time. Kerry. Tag: Save As UserName Tag: 56762
  - 13
    - Need Help in VBA --Word Basic.. -- Desperate Hi All, I have an application, which is written using WORD BASIC> I want to edit the footer and want to user EDITREPLACE function to replace the string inside the footer also. Could any one let me know the command how to edit footer in WORD BASIC. Please let me know if anyone has any idea. I am desperate for solution. I have tried many ways but it does not do it. Thanks Kiran Tag: Save As UserName Tag: 56753
  - 14
    - MS Word objects list Word allows us to access to it's objects like tables (ole_object.application.activedocument.tables), paragraphs, sentences and other. But is there an object that keeps all the Word objects ((or) references to them) as they appear in the document. For example: Having the collection of tables (ole_object.application.activedocument.tables) I don't know where exactly that tables are in the document. If the Range or Selection object selects the whole table, how to get to know that it is the table? What is more interesting: How to get to know (when the cursor is in the beginning of the document) what kind of object will be the next: table, sentence or sth else? How can I read my document from top to toe? Thanks in advance... Tag: Save As UserName Tag: 56737
  - 15
    - Code for WordXP and Word2003 Hi everyone, we have an app written in C# to automate WordXP, pretty complex. On one of the machines, someone has been trying to make the app work against Word2003, but it doesn´t work. I haven´t had access to the error yet, so I don´t know exactly what the message says, but muy questions are... 1. Are there significant differences between WordXP and Word2003? 2. Is the oject model different substantially, or the functions called differently? 3. Is there a web site where this (possible) differences are documented? Thanks, from Spain Tag: Save As UserName Tag: 56736
  - 16
    - Closing MSWord Read-Only file I have created a merge template ("Document.dot") that contains a macro to perform the merge and other subsequent actions. The last macro step is to close the original merge document without changes: ' Close the original merge form Documents("Document.dot").Close SaveChanges:=wdDoNotSaveChanges This works fine. Now I want to make the template Read-Only to protect it from inadvertent user changes. When I do that, I get an error message saying the document doesn't exist. I've tried including "(Read-Only)" in the document name, which is how the document name appears in Word, but that doesn't work. Is there a way to do this using the simple code above? If not, what do I need to do? Tag: Save As UserName Tag: 56735
  - 17
    - horizontal ruler How do I make the horizontal ruler fit the window Tag: Save As UserName Tag: 56734
  - 18
    - opening email attachments from yahoo I can't open attachments in my mic word/ofc 2000. when i scan and dwnld doc/attchmnts i receive this error msg: This file could not be found. Try one or more of the following: *check the spelling of the name of the document. *try a different file name. I can access my yahoo on a different computer and open my messages just fine. Has anyone else experienced this and come up w/a solution? Tag: Save As UserName Tag: 56733
  - 19
    - Replace Stirng of Length > 256 Hi , I need to replace some text in a word document with a string of length greater than 256.It cannot be done with Find.Execute methods ... coz it truncates the replacing string upto 256 characters. so how can i do it ? Thanx ,Regards Tag: Save As UserName Tag: 56732
  - 20
    - Page numbering what i want to do is more than just inserting the number of pages in a document. I want to use the format "Page 1 of XX" where XX is the number of pages in the document MINUS the title page(s). Is there a way of doing this automatically? Tag: Save As UserName Tag: 56730
  - 21
    - Page numbering what i want to do is more than just inserting the number of pages in a document. I want to use the format "Page 1 of XX" where XX is the number of pages in the document MINUS the title page(s). Is there a way of doing this automatically? Tag: Save As UserName Tag: 56729
  - 22
    - How to restrict certain fields on a form? I am being asked to create a form that encompasses several different forms. The forms are for different types of contracts. Most of the fields are the same for all of the forms, but there are some fields that are not needed depending on the type of contract. I am being asked to create one form for all of the contracts and depending on what type of contract is selected from a drop down menu, fields that are not pertinent to that type of contract will then be 'grayed out' or unavailable. I know that this will involve some programming, but i don't know where to start. PLEASE HELP. Tag: Save As UserName Tag: 56728
  - 23
    - e mail template how do I create an e mail template? Tag: Save As UserName Tag: 56727
  - 24
    - Function to give text in extense, of a number WORD 2002 Is there any function to give us back the result of a convertion of a number to a extense text? Example: We have EUR 1.000,50. Is there any possibility to write after the number (A Thousand euros and fiffty cents) automatically in Portuguese, on Word 2002? Tag: Save As UserName Tag: 56725
  - 25
    - Word should include a dictionary in it It would be nice if word includes a dictionary option too along with spell check and thesauraus. The user if wants to look up a word's meaning can simply click on the dictionary option and gets the meaning Tag: Save As UserName Tag: 56724
- Next
  - 1
    - Word should include a dictionary in it It would be nice if word includes a dictionary option too along with spell check and thesauraus. The user if wants to look up a word's meaning can simply click on the dictionary option and gets the meaning Tag: Save As UserName Tag: 56723
  - 2
    - Repeating a Macro I've got a macro that does this; Look for a text object Mark the Line it's on and then delete the line. I'd like this to repeat to the end of the file. Any suggestions? TIA Robert Tag: Save As UserName Tag: 56722
  - 3
    - How do I avoid blank pages in setting up a leaflet? I'm trying to set up a leaflet in Word - 4 page A5 (A4 Landscape with 2 pages per sheet). In doing so I can't make the pages run on from each other - there are always blanks in between the print, although print preview tells me I'll get what I want. The result is a three sheet document rather than a leaflet over 2 sheets. What am I doing wrong? Tag: Save As UserName Tag: 56721
  - 4
    - macro security warning using print button in one template I am getting the macro security warning when using the print button on the standard toolbar in one of my templates. This template does not have any other toolbar customizations and the macro security is set to low in the template. Tag: Save As UserName Tag: 56719
  - 5
    - Capitalization I think that WORD should have an option to highlight already typed phrases and capitalize them as you can italize/highlight/underline. As a student, this would be a helpfu in studying my notes. Tag: Save As UserName Tag: 56718
  - 6
    - ActivePrinter The Word VBA command ActivePrinter reveals the name of the current printer in use by Word. Is there a way of returning the name of the Windows default printer? I need the name of the Windows default printer to check against the ActivePrinter and if they are not the same, let the user know he/she needs to change printers before continuing. Thank you Sergio Tag: Save As UserName Tag: 56715
  - 7
    - How do I add a control to a tab control in Word 2003 I have tried to add a combo box to a tab strip in a user form in Word 2003. The problem I find is that the combo box is visible in all tabs, like it is floating above the tab control all together & not tied to a particular tab page. I would appreciate any assistance to overcome this. Kind regards duBedat Tag: Save As UserName Tag: 56713
  - 8
    - Followup re Excel/Word OLE error I posted a query regarding an error described below. It was suggested by another to check the Excel & Word VBA references for any that were missing. The blank instances of each were fine but trying to check for my Excel/Word app is difficult as the client is long distance and I don't want to give them the password to unlock it. So I sent an unlocked copy of the app with code removed. My Office version is 2003 and theirs XP or 2002. When the client installed my app in the right directory it showed all the proper references, correctly showing MS Excel 10.0 Object Library and MS Office 10.0 Office Object Library. But it shows MS Word 11.0 Object Library (what was in the app send from my Office 2003 system) as Missing. Any ideas if that is clue to the problem or what it could be? Would the steps I took above be adequate to check the references or do I need to do it another way? Again, any help appreciated. Thanks and God bless Van "VanS" wrote: > Hello, > I have an Excel VBA application that links to a Word template using > automation and the Find-Replace method to populate the latter. I have run it > without problem in all MS operating systems and Microsoft Office versions. > However trying to run it on a customers Dell Latitude laptop it produced the > following error populating and printing the Word template: "Microsoft Excel > is waiting for another application to complete and OLE application". The > error message pops up after successfully printing the 2nd page regardless of > the total number of pages to be printed.The application referred to is > apparently the winword.exe but no such process seems to be running. Clicking > on "ok" closes the message display then re-displays it and nothing else can > be done until ctrl-alt-del is hit to shut it down. > The Latitude is Pentium RM processor 1600 Mhz with 512 RAM with Windows XP > Pro SP 1 and Office 2002/XP SP2. > What I don't understand is why it is giving an OLE error message for this > version of Office as I thought OLE referred to automation for earlier > versions of Office which KB articles on that message also seem to indicate. > For now I don't have access to debug the code as the client is long distance. > Any ideas what is going on? Any and all help greatly appreciated. > Thanks and God bless > Van > Tag: Save As UserName Tag: 56707
  - 9
    - Losing Bookmarks Hi, IÂ´m Roby E Martins. VC, VB e Web developer. I have a big problem with Bookmarks in Word 2000. IÂ´m Adding bookmarks in some words all over the document. But when a user replace the word with a bookmark, the bookmark simply disappear. I thougth that the bookmark should still in the document where the new word replaced is. Is there any option or another way to keep the bookmark in the document? Thank you, Roby E Martins Tag: Save As UserName Tag: 56704
  - 10
    - Find Replace with Section Breaks Hey, I have a somewhat complicated merge request. The user needs a section break after two words (Recommendations and Discussion - both bolded in TNR, 11 pt) in a document. These words may appear once or several times, but there needs to be a section break after each one. I was trying to create a macro, but I'm not sure what the code or character is for section break. I know the find character is ^b, but that doesn't work for replace. So, in a nutshell I need a way to find the two words and add a section break after each one. I thought about a bookmark after each one, and then finding the bookmark, but that sounds a tad too complicatd for something that seems so minor. TIA, Jason Tag: Save As UserName Tag: 56698
  - 11
    - Word should allow access to view and work with codes like WordPer. Being able to access the codes makes working with WordPerfect... perfect. If Word had that option it would be Perfect, too. Tag: Save As UserName Tag: 56697
  - 12
    - Formatting a form I have a form that I'm designing. It is a lesson plan for teaching. I have a table laid out and have each form field set (i.e. Date, Grade, etc). I am trying to make my table as "static" as possible, so that when entries the table is not resized. I've been doing this by simply setting the cell height to "exactly" X pt. First question is, is there a better way to fix the size of a cell, so that when a user is typing in the form it doesn't let them expand the table size? The next, more important question is somewhat related. I have a section with 3 columns: Time | Activity | Assessmen ------------------------------------------------------------------------------ (LINE A) 1:30 | Reading | Discussed topic in class | | .. -------------------------------------------------------------------------------(LINE B) the above is an example of a possible row entry in this section of my form. I have 10 rows of form entries for the Time, Activity and Assessment, each getting there own height of 14 pt, and predetermined width. The thing is, the entry for "Activity" could be more characters then the width of the column, causing a line break, but it wouldn't show up on the form because the cell height is fixed. And at the same time, I might not use all 10 rows of the entry, but the form field description still remains (i.e. "Enter Activity here"). My question is: The distance between LINE A and LINE B above needs to remain the same, and the width needs to remain the same, but I want the "interior" rows to be expandable. The number of entries can also change. So, is it possible to have a button or macro that creates the row entries one at a time as the user needs them, that way they could write a few lines if needed, and not impede on the next field. If that's not possible, is it possible to have the form field "description"'s that have not been entered on be removed, either by a macro, or some other setting. Well, thank you in advance, and if you got this far, thanks for actually reading the whole thing :-) Tag: Save As UserName Tag: 56696
  - 13
    - Word vba return background shading value of cell In VBA, how do I return the value of the background shading of a cell in a Word XP table and change it if it is wrong? Tag: Save As UserName Tag: 56695
  - 14
    - Macro Needs to Close dialog box I recorded a macro to open a document, connect with the external database, merge to printer and then close the document. Two times during the running of the macro a dialog box pops up and requires my manual response by clicking the Yes or No button. Is there a command I can add to the VBA to have the code complete this task? One of the last lines of code is: ActiveWindow.Close which causes a dialog box to open asking if I want to save the changes to the document Yes/No. Tag: Save As UserName Tag: 56682
  - 15
    - new label sizes I want to print on labels which aren't in the list of labels sizes provided by Microsoft. I know how to insert a new size but I need to do this on multiple computers and do not want to have to do it manually on each computer. Does anyone know how I could do this? Maybe via a macro? Tag: Save As UserName Tag: 56681
  - 16
    - Missing Custom toolbars; path to custom template I have some custom toolbars and code routines that are in a custom.dot. I create the doc in code via objWord.Documents.Add Template:="c:\app path\templates\mytemplate.dot" I have users that need the toolbars etc elsewhere that store the dot file in c:\documents and settings\myprofile\application data\microsoft\templates right next to normal.dot. Most users see the toolbars when the doc is opened, but some users don't. I just can't figure out what drives it, why some users get to the proper dot and some don't. Any clues? Tag: Save As UserName Tag: 56676
  - 17
    - Word file to update Access DB when printing I have a word file (.doc) and a Access DB. What I want is that whenever the word file is printed, it will automatically update the database accordingly (the DB has a field that says LastPrintTime). Could this be done through VBA code in the word file? How? Thank you. Tag: Save As UserName Tag: 56675
  - 18
    - Edit Word Document Comments using VBA I would like to be able to open a userform to edit the comments at the cursor positon (Selection) of my document. I know I can run through all of the Item(x) in the ActiveDocument.Item(x).Range.Text to get All the documents from my document one by one. But I would like to be able the find out which (Item number) is directly at my Selection point. I would like to use VBA code to edit comments in a user form instead of the usual comment window. I would like to run some VBA code to retreive the text portion of the comment, then edit it in a user form, then copy the edited comment back to the original comment. In case you wonder why I want to do this it is because when I am working with split windowpanes and open a comment to edit it, after closing the comment edit window my split pane will also disappear. Thanks for your help. John Tag: Save As UserName Tag: 56670
  - 19
    - Fieldcodes/Bookmarks/Macros I am trying to create a document in word whereas when the document opens, prompt boxes will appear, asking the user a series of questions (such as, "Enter your address." Once the user answers the questions, the document will be filled in with their response. I once created a document in a word template like this and I can't remember how to do it. I know that I used a bookmark, then the ref field code to create my question (I am not sure if the bookmark or the fieldcode goes first) but once that is done, how do I use macros to automate the document. By automate, I mean, the questions will be asked as soon as the document open. The only thing I remember is that the document had an AutoNew button or something like that...help I was trying to use microsoft support but I can't figure it out. Thanks for your help. Tag: Save As UserName Tag: 56669
  - 20
    - Downloading Office Object library files Hello, I am a developer with an Excel/Word VBA application that in VBA uses the Microsoft Office Object Library, Word Object Library and the Excel Object Library. I am currently using Office 2003 but for purposes of of early-binding I want to be backward compatible with Office 2000 and Office XP. Does anyone know how or where I could download the needed object library files for those earlier versions of Office? I looked on the Office website under downloads but didn't see anything like that. Thanks, God bless Van Tag: Save As UserName Tag: 56665
  - 21
    - Adding To Trusted Publishers Through Certificate Authority and Sharepoint Hi All: This has elements of Office, Small Business Server and Sharepoint, so I'm going to post to all three groups in the hope of finding an answer. Our office runs Small Business Server 2003, and uses the included Sharepoint Companyweb as its intranet. As part of that, we have put our Word 2003 templates onto companyweb. Works slick....except that some of our templates have a VBA program, running as a macro, that is blocked whenever Word is in High Security for macro's. We could go to Medium security, but it's a pain for users to click on enabling all the time, or we could go to low security (which I won't do for obvious reasons). My question is how, if at all, I can certify the macro or the Sharepoint site so that individual users can leave settings on High security, and still run this particular macro. Can it be done with our SBS box as a Certification Authority, or am I going to have to go third party? Is third party the only way to add someone to Trusted Publishers for Word? Yes, I know that selfcert can solve this, but as I understand, it has to be run on each individual workstation, and I'd rather not have to go through all of it. Perhaps Group Policy has a setting that will allow this? Any and all suggested solutions would be welcome. Craig Zawada Tag: Save As UserName Tag: 56658
  - 22
    - Cannot "mail merge" images? Hi there, I'm wanting to "mail merge" images from a directory into my document. I am currently able to merge all fields *except* the images. Here is a simplified version (a little test I've been doing). I have created a document with a merge field called "thePath" and an "IncludePicture" field, which has a mergefield as its location (once again "thePath" ). Like so: { MERGEFIELD thePath } { INCLUDEPICTURE "{ MERGEFIELD thePath }" \* MERGEFORMAT } My data source is a very simple flat file, which looks like this: "thePath" "C:\\1.jpg" "C:\\2.jpg" , and is saved as "merge.txt". Of course, I know 1.jpg and 2.jpg exist. Now, when I select the data source and merge to a new document from the merge document, I end up with the correct values for { MERGEFIELD thePath }, but "empty" images for the INCLUDEPICTURE field. What am I doing wrong here? Also, a related question: Is it possible to EMBED "{ MERGEFIELD myOLEObjectFile }"? This would be extremely useful as I am mail merging not just images and text, but also a specific kind of OLE object. It would save me having to iterate through the document, replacing them manually via. Automation (which would be amazingly slow). Thankyou for any tips you can give me on this, Robin Tag: Save As UserName Tag: 56655
  - 23
    - Execute Literal VBA-code on a variable or as text string. This is a multi-part message in MIME format. ------=_NextPart_000_000A_01C4A0EA.90AF8570 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi, Is there a command in VBA that executes literal vba code supplied on a = variable or as text string? I'm recieving a textstring from a word document like ' = Options.DefaultFilePath(Path:=3DwdUserTemplatesPath) =3D "" ' and want = to execute this as it was code in a macro. I know this from another language where I can write eval("varA + varB") = becomes 3. Regards, Marcel ------=_NextPart_000_000A_01C4A0EA.90AF8570 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2800.1458" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV><SPAN style=3D"COLOR: #0000ff"><FONT face=3DArial=20 size=3D2>Hi,</FONT></SPAN></DIV> <DIV><SPAN style=3D"COLOR: #0000ff"><FONT face=3DArial=20 size=3D2></FONT></SPAN> </DIV> <DIV><SPAN style=3D"COLOR: #0000ff"><FONT face=3DArial size=3D2>Is there = a command in=20 VBA that executes literal vba code supplied on a variable or as text=20 string?</FONT></SPAN></DIV> <DIV><SPAN style=3D"COLOR: #0000ff"><FONT face=3DArial=20 size=3D2></FONT></SPAN> </DIV> <DIV><FONT face=3DArial><FONT size=3D2><SPAN style=3D"COLOR: = #0000ff">I'm=20 recieving a textstring from a word document like ' </SPAN><SPAN=20 style=3D"COLOR: = #0000ff">Options.DefaultFilePath(Path:=3DwdUserTemplatesPath) =3D ""=20 '</SPAN><SPAN style=3D"COLOR: #000000"> and want to execute this = as it=20 was code in a macro.</SPAN></FONT></FONT></DIV> <DIV><SPAN style=3D"COLOR: #000000"><FONT face=3DArial=20 size=3D2></FONT></SPAN> </DIV> <DIV><SPAN style=3D"COLOR: #000000"><FONT face=3DArial size=3D2>I know = this from=20 another language where I can write <FONT face=3DCourier>eval("varA +=20 varB")</FONT> becomes 3.</FONT></SPAN></DIV> <DIV><SPAN style=3D"COLOR: #000000"><FONT face=3DArial=20 size=3D2></FONT></SPAN> </DIV> <DIV><SPAN style=3D"COLOR: #000000"><FONT face=3DArial=20 size=3D2>Regards,</FONT></SPAN></DIV> <DIV><SPAN style=3D"COLOR: #000000"><FONT face=3DArial=20 size=3D2></FONT></SPAN> </DIV> <DIV><SPAN style=3D"COLOR: #000000"><FONT face=3DArial=20 size=3D2>Marcel</FONT></SPAN></DIV></BODY></HTML> ------=_NextPart_000_000A_01C4A0EA.90AF8570-- Tag: Save As UserName Tag: 56648
  - 24
    - Error msg. I may have the wrong post. I just want to know what to do if I want to change my office assistant and I keep getting the following error Error 1706. No valid source could be found for product Microsoft Office 2000 Professional. Windows installer cannot continue. Windows installer error 1603 fatal error exist. How do you fix this? Tag: Save As UserName Tag: 56647
  - 25
    - Word VBA obfuscation? I have a Word VBA project that (by necessity) will be deployed in a single file. As a result of my user's need for one-file deployment/distribution, I think that throws out add-in's, DLLs, and most other methods of securing my code. While I will use the simple password protection, I was wondering if there are any cheap (or free, I'm doing this project for a non-profit organization for free) tools that support obfuscation on Word VBA. I figure that way, even if someone decides to poke into the VBA using a password cracker, the code will still be much harder to interpret. I appreciate any advice or suggestions! Thanks, Keith -- The enclosed questions or comments are entirely mine and don't represent the thoughts, views, or policy of my employer. Any errors or omissions are my own. Tag: Save As UserName Tag: 56646

Hi. Thanks for your reply, however, I'm not sure exactly
what you are saying. I understand that the username on
your example is "administrator" but how would I get that
by using code? I'm new to this VBA stuff...

The normal template is saved in each staff members
personal drive (P:\). The personal drives are named
\\alchemy\private\(username) but I am unsure how to get
that username...

I appreciate your help.. Thanks

>-----Original Message-----
>There are some very involved ways to derive the
username.
>However, the easiest way is to parse it from where the
>normal template is stored. The following will give you
>the bona fide username, not something that was a shortcut
>in Word itself (unless the normal template was re-
directed
>to a non-default folder).
>
>strPath = Application.NormalTemplate.Path
>
>So, on my computer, this is what it provides:
>
>C:\Documents and Settings\Administrator\Application
>Data\Microsoft\Templates
>
>So, you can parse what's between documents and settings\
>and \applcation data.
>
>Hope this helps.
>
>dz
>
>>-----Original Message-----
>>I have a template add-in which I need to save with a
>>username. The template automatically counts what
>templates
>>users access.
>>
>>The code I have is:
>>'<----------------------Start of Module Code-------------
-
>-
>>------------->
>>Option Explicit
>>
>>Public gccTemplateUsageCounter As clsCounter
>>
>>Public Sub AutoExec()
>>Const cCounterFileFullPath As String
>>= "M:\TECHNOLOGY\TemplateUsage\CountUsage\count_usage.cnt
"
>>
>>' Instantiate class to perform template usage counting
>> Set gccTemplateUsageCounter = New clsCounter
>>
>>' Hook up event handler to that we can catch application
>>level events
>> Set gccTemplateUsageCounter.appWord =
Word.Application
>>
>>' Log the existing counter file (if any)
>> gccTemplateUsageCounter.Initialise
>cCounterFileFullPath
>>End Sub
>>
>>(There is a lot of class modules code with this as well -

>>let me know if you need to view that).
>>
>>The Line:
>>Const cCounterFileFullPath As String
>>= "M:\TECHNOLOGY\TemplateUsage\CountUsage\count_usage.cnt
"
>>is where I need to put the username, e.g.
>>\CountUsage\username_count_usage.cnt
>>
>>Any ideas? Do you need to see the full code? I am
>>running Word 2002. Thanks in advance.
>>.
>>
>.
>
.

Re: Save As UserName by Helmut

Helmut
Fri Sep 24 04:07:15 CDT 2004

Hi,
I don't know exactly, what the problem is,
but can't see a simpler way then this one:
Msgbox Environ$("Username")
---
Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000