API GetCommandLine in Word XP returns empty string

Tutorials Win: Microsoft Windows Forum

- Previous
 - 1
 - Option Explicit Before my hard drive crashed, whenever I opened a new document and then went to the VBE, Option Explicit was listed as the first entry on a New Project. That is the case on my PC at work as well. After reinstalling Word on my new PC, I can't seem to get Option Explicit to appear as the default first line. I have checked Tools>Options>Editor>Require Variable Declarations, but I still have to manually type in Option Explicit at the start of each new project. Any ideas how to make Option Explicit appear as default? Thanks Tag: API GetCommandLine in Word XP returns empty string Tag: 79463
 - 2
 - How do I remove ..."with Plain Text format." message in word ? Hi, We installed Office 2003. We have an application that uses Word as an editor. However since the installation of Office 2003 we repeatedly get this annoying message: "<filename.doc> may contain features that are not compatible with Plain Text format. Do you want to save the document in this format ?" followed by instructions. This message is not wanted, how do we disable it ? remove or nuke it - our users are very annoyed with it. Tag: API GetCommandLine in Word XP returns empty string Tag: 79461
 - 3
 - Finding and Replacing using macro Hi, I have had a working macro that search a text for a string, then selects the other part of the same sentence and change its font and size. The code is as follows: Sub mac2() For Each myStoryRange In ActiveDocument.StoryRanges myStoryRange.Find.Execute FindText:="%%%", Forward:=True myStoryRange.MoveEnd Unit:=wdParagraph, Count:=1 While myStoryRange.Find.Found myStoryRange.Font.Name = "David" myStoryRange.Font.Size = 12 myStoryRange.Find.Execute FindText:="%%%", _ Forward:=True, Format:=True myStoryRange.Font.Name = "Times New Roman" myStoryRange.Font.Size = 1 myStoryRange.Find.Execute FindText:="%%%", Forward:=True myStoryRange.MoveEnd Unit:=wdParagraph, Count:=1 Wend Next myStoryRange End Sub ------------------------------ The enclosed macro worked on Windows98SE / Word97. But it doesn't on XP/Word2003. Please help me adjust the macro so it will work on the new program. Tag: API GetCommandLine in Word XP returns empty string Tag: 79456
 - 4
 - Using VB to place pictures behind text Hi all I give up! How do I set a picture to go behind text using VB? It doesnâ??t seem to be one of the WrapFormat.Type constants. Z-Order doesnâ??t seem to work either. Many thanks David Tag: API GetCommandLine in Word XP returns empty string Tag: 79449
 - 5
 - error checking I have created a macro which uses a userform to retrieve data to create a folder on the network. That works fine. I have added error check to see if the folder already exists and this works fine. The problem is getting the macro to go back to the userform for them to amend the folder name for it to be created. The code follows, if anyone can help me out that would be great. I am quite new to VBA Private Sub cmdOK_Click() Dim MyFilePath As String Dim TestFolder Dim TestAlphaFolder If cboDept.Value = "Stourport" Then MyFilePath = "w:\data\_Clients\" If cboDept.Value = "Worcester" Then MyFilePath = "w:\data\_Clients\" If cboDept.Value = "Kidderminster - Business" Then _ MyFilePath = "w:\data\Business\_Clients\" If cboDept.Value = "Kidderminster - Civil" Then _ MyFilePath = "w:\data\Business\_Clients\" If cboDept.Value = "Kidderminster - Crime" Then _ MyFilePath = "w:\data\Business\_Clients\" If cboDept.Value = "Kidderminster - Family" Then _ MyFilePath = "w:\data\Business\_Clients\" If cboDept.Value = "Kidderminster - Probate" Then _ MyFilePath = "w:\data\Business\_Clients\" If cboDept.Value = "Kidderminster - Property" Then _ MyFilePath = "w:\data\Business\_Clients\" TestFolder = Dir(MyFilePath & txtMyFolderName) & "\" If Len(TestFolder) = 0 Then Handler: MkDir MyFilePath & Left(txtMyFolderName, 1) & "\" ClientFolders: MkDir MyFilePath & Left(txtMyFolderName, 1) & "\" & txtMyFolderName MkDir MyFilePath & Left(txtMyFolderName, 1) & "\" & txtMyFolderName & "\Bills" MkDir MyFilePath & Left(txtMyFolderName, 1) & "\" & txtMyFolderName & "\Documents" MkDir MyFilePath & Left(txtMyFolderName, 1) & "\" & txtMyFolderName & "\Correspondence" MsgBox (MyFilePath & txtMyFolderName & " created!") Else txtMyFolderName = InputBox("File " & txtMyFolderName & _ " already exists" & Chr(10) & Chr(10) & "Please type another folder name:", "File Exists", txtMyFolderName) End If frmFolderCreation.Hide End Sub Tag: API GetCommandLine in Word XP returns empty string Tag: 79446
 - 6
 - Check if macro is present? Is there some way i can check if a macro is present. We are on the way to deploying a global template, which contains some macro code. Next step is then to integrate some code in our templates that calls code in this global template. But.... If someone for some reason hasn't received this global template, Word will fail, complaining about the missing resource since it doesnt have access to the function it calls. Are there any way I (in the code) can test if the global template is present, and then execute if present, and just cancel if it is not present. My goal is to letting people be aware of the missing global template, but not get any errors that opens the debug editor and so forth... /Anders Tag: API GetCommandLine in Word XP returns empty string Tag: 79442
 - 7
 - How to split one document into two separate documents? I am working with very large Word 2003 Documents and am hoping that there is a method (maybe macro) of splitting the final document in two (e.g. From one â??LogReportâ?? document I will be left with one â??Logâ?? document and one â??Reportâ?? document). The pages I require for the â??Logâ?? document are intertwined with those for the â??Reportâ?? document. Unfortunately I can not have these documents split at the start due to the way each section compliments each other whilst engineers are conducting the required testing. I am not looking to view two sections of one document (split screen editing). Many Thanks, Damon Tag: API GetCommandLine in Word XP returns empty string Tag: 79441
 - 8
 - In WORD: How do I set up topic LINKS? In WORD, I will create a menu of link topics. Once clicking on one of the links, I want to be routed to a paragraph (located further down in the WORD document) about that topic. Please advise. Please send the response to my work email address: Brentmunnings@spherion.com Tag: API GetCommandLine in Word XP returns empty string Tag: 79432
 - 9
 - determine table cell value I have done vba in access and excel but in word I can't seem to get this right probably because it is right in front of my face. How do I use the value from a word table cell in a macro? The value of cell (1,1) will determine an action on cell(1,2) of table(1) and the value of Cell (1,1) needs to be displayed in a msgbox. -- JerryB Tag: API GetCommandLine in Word XP returns empty string Tag: 79431
 - 10
 - create an email from a word form I have an Invoice Form which is filled in and printed from Word, I would like to add some code so this can also be emailed via outlook. Any Help Appreciated!!! Tag: API GetCommandLine in Word XP returns empty string Tag: 79418
 - 11
 - How to secure Word VBA / macro? I need to create a word macro / VBA code that will open a separate Word document, print it and then delete the file printed. I need to make this reasonably secure. I have some experience with Excel VBA but not in Word. 1. Can / how do I create a macro / VBA that can only be executed by the user but not viewed or edited? 2. Can a user interrupt a macro / VBA (for example Ctrl-Break) while it is running? Is there any way to prevent that? If not, is there anyway to at least run some cleanup code if they do? 3. How secure are password protected Word documents? Does the password automatically encrypt the contents? 4. Do Word macros created from a Windows computer work when opened from a Mac? Thanks in advance. Tag: API GetCommandLine in Word XP returns empty string Tag: 79415
 - 12
 - "Find this, insert page break": what approach? A report generated by an old database program dumps everything out in one long continuous file. That can not be changed. The resulting text file is opened in Word, and the users run a macro I wrote that finds the first line of each new record in the report and inserts a page break, so each new record begins on a new page. All runs well - until someone changes that first line! It's hard-coded into the macro as the string for "Find.Text = strFind". Then, of course, it's my macro that's broke! The header for each new record in the report has four lines. Each line is a separate paragraph. Each line will report the same item of information, such as: ITEM NO: SER NO: COLOR: BIN NO: The information at each label may or may not change, but these labels will remain fixed at their character positions in each line at each report header. (For instance, whether COLOR: is "blue" or "chartreuse", the BIN NO: label will always be at the same character position.) Is there an easy way to tell the macro to "find three or four paragraphs with these labels at these character positions", while disregarding whatever information may be presented at the label? Ed Tag: API GetCommandLine in Word XP returns empty string Tag: 79410
 - 13
 - Creating Folders help I have written the below code. The code creates a folder dependent on the information from a form. That bit works fine but I can't get it to check whether the folder already exists and if so prompt the user to change the name. I have tried it with an inputbox, message box and with another form. Any help would be greatly appreciated. Private Sub cmdOK_Click() Dim MyFilePath As String Dim TestFolder Dim TestAlphaFolder If cboDept.Value = "Stourport" Then MyFilePath = "w:\data\_Clients\" If cboDept.Value = "Worcester" Then MyFilePath = "w:\data\_Clients\" If cboDept.Value = "Kidderminster - Business" Then _ MyFilePath = "w:\data\Business\_Clients\" If cboDept.Value = "Kidderminster - Civil" Then _ MyFilePath = "w:\data\Business\_Clients\" If cboDept.Value = "Kidderminster - Crime" Then _ MyFilePath = "w:\data\Business\_Clients\" If cboDept.Value = "Kidderminster - Family" Then _ MyFilePath = "w:\data\Business\_Clients\" If cboDept.Value = "Kidderminster - Probate" Then _ MyFilePath = "w:\data\Business\_Clients\" If cboDept.Value = "Kidderminster - Property" Then _ MyFilePath = "w:\data\Business\_Clients\" TestFolder = Dir(MyFilePath & txtMyFolderName) & "\" 'If TestAlphaFolder = Dir(MyFilePath & Left(txtMyFolderName, 1) & "\") Then GoTo ClientFolders If Len(TestFolder) = 0 Then Handler: MkDir MyFilePath & Left(txtMyFolderName, 1) & "\" 'ClientFolders: MkDir MyFilePath & Left(txtMyFolderName, 1) & "\" & txtMyFolderName MkDir MyFilePath & Left(txtMyFolderName, 1) & "\" & txtMyFolderName & "\Bills" MkDir MyFilePath & Left(txtMyFolderName, 1) & "\" & txtMyFolderName & "\Documents" MkDir MyFilePath & Left(txtMyFolderName, 1) & "\" & txtMyFolderName & "\Correspondence" Else txtMyFolderName = MsgBox("File " & txtMyFolderName & " already exists" _ & Chr(10) & Chr(10) & "Please type another folder name", vbOKOnly, "File Exists") End If frmFolderCreation.Hide End Sub Tag: API GetCommandLine in Word XP returns empty string Tag: 79407
 - 14
 - Formfield data cleared when unprotect/re-protect doc When I unprotect (Activedocument.unprotect) and then reprotect (ActiveDocument.Protect wdAllowOnlyFormFields) a document with formfields, existing data in the formfields is cleared. Is there any way of stopping this from happening? Thanks, Seamus Tag: API GetCommandLine in Word XP returns empty string Tag: 79403
 - 15
 - Free mp3's <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft DHTML Editing Control"> <TITLE></TITLE> </HEAD> <BODY> And much more that that! <A href="http://forum.saait.net/">http://forum.saait.net/</A> This site offers free and legal mp3's, software, movies, games. They also have a listing of free item that are given away on the internet. It's the best forum on earth if you ask me. Their homepage is here http://www.saait.net </BODY> </HTML> Tag: API GetCommandLine in Word XP returns empty string Tag: 79402
 - 16
 - how to calculate string width Hi All I need to calculate string width(NOT length) to determine if it takes one or more lines.The linked topic below does not meet my requirement.Anyone please help! http://groups.google.com/group/microsoft.public.word.vba.general/browse_frm/thread/ed8c125812b59a04/7993922c5d111b10?q=word+vba+calculate+string+width&rnum=2#7993922c5d111b10 Tag: API GetCommandLine in Word XP returns empty string Tag: 79399
 - 17
 - Remove "Paste" symbol In your next updates to Word, you should strongly consider removing the paste symbol (icon) after a paste action has been performed. I don't see where its value compensates for its annoyance. ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=f0b71c20-20c6-4736-ad4e-5a45cf9f6677&dg=microsoft.public.word.vba.general Tag: API GetCommandLine in Word XP returns empty string Tag: 79396
 - 18
 - north west passage hey yo man get my keys here now i need them for my new range rover. Tag: API GetCommandLine in Word XP returns empty string Tag: 79395
 - 19
 - How to add an IF statement to Macro I have a Word 2002 document produced from an external application with many Equation editor objects. However, the equations do not properly line up with the other text on the line. If I select an equation and open the Equation editor then close it without making any changes, the misalignment gets corrected. I need a macro to go through the document and for each Equation Editor object, open Equation Editor and close it. I recorded a macro to do this with Find ^g. (I did get help with the SendKeys to close the application). It works OK until it finds a graphic which is not Equation Editor then halts. I think I need to add something like this: If .Type = msoLinkedOLEObject Then If .OLEFormat.ClassType = "Microsoft Equation 3.0" Then But I cannot figure out where and how to do this. Your help is greatly appreciated. Sub OpenCloseEqEd() ' ' Macro recorded 2/4/2004 Application.DisplayAlerts = wdAlertsNone Selection.Find.ClearFormatting With Selection.Find .Text = "^g" .Replacement.Text = "^&" .Forward = True .Wrap = wdFindContinue Do While .Execute Selection.InlineShapes(1).OLEFormat.DoVerb VerbIndex:=1 With Selection.Application SendKeys "%fx", True End With Loop End With End Sub Tag: API GetCommandLine in Word XP returns empty string Tag: 79394
 - 20
 - Rights Managment issue Hi, pardon my ignorance, but in updating to office 2003, I now get a pop-up message regarding Rights Managment. I am unable to even print preview the document. Can this managment be turn off ? Thank you Tag: API GetCommandLine in Word XP returns empty string Tag: 79391
 - 21
 - Parsing Fields in VBA code I have a document that will have fields inserted by the user. Somehow I need to allow the user to insert text in these fields that is freeform, the only way I guess this can be done is via the fields add method. Assuming I can do this in code, and set the user text as the QUOTE section of the field, is there some means that I can later parse the document for a given field code, and then strip out the QUOTE text in code? Tag: API GetCommandLine in Word XP returns empty string Tag: 79389
 - 22
 - Convert WP .frm with Perfectscript to Word file I have several WP .frm files with Perfect script code and I need to re-create them as Word files that will do the same thing. I don't really know where to start in Word. Any suggestions/recomendations on how to go about this? Tag: API GetCommandLine in Word XP returns empty string Tag: 79388
 - 23
 - Automation Error Small Business Edition I have a client running Office 2003 Small Business Editon. I loaded Payne Metadat Assistant. Got automation error. Their tech support says Small Business edition does not support automation. Is this true? How am I supposed to know this - is there a document somewhere that says which versions support automation? Is there any way to install automation? Thanks! Jeffrey M. Gagen Tag: API GetCommandLine in Word XP returns empty string Tag: 79385
 - 24
 - Modify Filename Field I'm trying to pull only a portion of the document filename field, but I would like it to remain in Feild format so that it remains dynamic. Basically we have a document managment system that assigns numbers automatically. I would like to capture just the document number and version which is placed into the wdFieldFileName information, not the entire filename. This way if the User copies to a new document number, the number doc number will be displayed dynamically. ~Lori Tag: API GetCommandLine in Word XP returns empty string Tag: 79378
 - 25
 - Sum calculation Hello, I am using Word 2000, and I have a protected document that I use as a cheque requisition form. I would like the total box at the bottom to auto sum the amounts being entered in the boxes above without having to right click on it, and click on 'Update Field'. It always used to work like this, but when I unprotected it once to change the year, it has never worked since. Can this be done and if so, how? Many thanks, Chris Tag: API GetCommandLine in Word XP returns empty string Tag: 79377
- Next
 - 1
 - Can't see my macro in toolbar on some machines Hi. I have a .doc file (word 2002) that basically creates a copy of itself with a module I have created. Some fields have been merged with a database. I'll refer to the copy as B. BUT ... in doc B, I get the macros to show up on a toolbar from the original copy on some workstations. They also do not exist if I try to add the macro by customizing the toolbar. Though if I go into the code on B document - the macros are there. I have set the security to low and it doesn't help. How do I get these macros to show up on the 2nd document? Any suggestions appreciated....need these sent out today. Thanks in advance. Lesley Tag: API GetCommandLine in Word XP returns empty string Tag: 79374
 - 2
 - Best Control for list of records in Access I want to do a query on a table based on the last name selected from a combo box. So the after update on the combo box should use the value as a part of a query. I dont know what control I should use to list the results of a the query. Ive read that you cant bind a listview to data (query). I want to be able to click on the record in the result set I want and have the id of that record populate a control on the form. So what control can I use that will allow me to click on a record in a list and grab the value of a column in that list? Any examples of creating a query and using that query to bind to a control? Im on Access 2003 on Win2k3 server. Thank you for your time. Tag: API GetCommandLine in Word XP returns empty string Tag: 79370
 - 3
 - Deletion of Empty Page in the Word Document through VBA Hi all, This is to request for your help in this MS Word issue. In the VB application we are required to copy and paste temporary documents (containing text, pictures, etc) into a single, final word document. The main document contains tables and the issue is related w.r.to tables. In the current application, the .rtf file is formed from the html file. While copying, the blank pages get inserted in the document if the control is in the â??last but oneâ?? row of a table and sometimes if the control is in the last row during document generation process. This causes the extra page in the document and page numbers are counted for this. We are working on Windows 2000 Server as our OS. In the existing code, section breaks (Next Page) are used. I am trying to scan each and every page and finding if any empty page is there. If so, I have planned to pass the delete key to delete the empty page. Could you provide any pointers as how to go about this? I need to scan each and every page of word doc and need to find if any blank page is there. If so I need to delete the page programmatically. Any help in this issue would be greatly appreciated. Regards, Kiruthiga.S Tag: API GetCommandLine in Word XP returns empty string Tag: 79366
 - 4
 - Document Properties - vbscript Looking for a way to read document properties for a Word Document. In particular I want to be able to read the "revision number" -- . Tag: API GetCommandLine in Word XP returns empty string Tag: 79361
 - 5
 - Finding version of word used to create document Where is the version of Word used to create a document stored in the Word object model? It's not Application.Version - this is the version used to read it. Simon Kravis Tag: API GetCommandLine in Word XP returns empty string Tag: 79357
 - 6
 - Not able to recording macro for mail-merge Hallo, I need some help for a macro code ... we've a lot of Word2000 mail-merge templates originally connected to a .dbf file where in a textbox is possible put the number we're looking for , now we've to move to Word2003 and the new source will be a SQL file with the same structure At the moment we use a code like this: ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord Set myMMData = ActiveDocument.MailMerge.DataSource If myMMData.FindRecord(FindText:=TextBox1, _ Field:="COLLAB") = True Then myMMData.QueryString = _ "SELECT * FROM `COLLABORATORI` WHERE ((`COLLAB` = '" & TextBox1.Text & "'))" With ActiveDocument.MailMerge .Destination = wdSendToNewDocument .MailAsAttachment = False .MailAddressFieldName = "" .MailSubject = "" .SuppressBlankLines = True With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute Pause:=True End With Unload Me Application.ScreenUpdating = True Else MsgBox ("Codice non trovato !!!") -- I tried to record the piece of code to be replaced in the existing macro but I wasn't able to ... Thanks in advance for your help Regards, Alberto Simone Tag: API GetCommandLine in Word XP returns empty string Tag: 79356
 - 7
 - Mac Preferences folder location - finding from VBA I'm porting a large VBA project to the Mac, and most things seem to be working just fine. In my Windows project, i use a .INI file to store settings. My installer creates that file in the Windows folder, calling a system function to retrieve the location of the Windows folder. On the Mac, I want to store the same file as a settings file in the System Preferences folder. How do I call into the Mac OS to find the path to use for the preferences folder? Thanks in advance g Tag: API GetCommandLine in Word XP returns empty string Tag: 79342
 - 8
 - Fields in header and update using VBA Hello all, I'm trying to automate some fields in the header and footer by making a VBA userform and having it plug into document. While I can use document vars to plug in values in the regular bodytext and use activedocument.fields.update to show the new values, this won't work for header and footer fields. I would need to view the header and footer and refresh manually with F9. Any suggestions? Thanks Tag: API GetCommandLine in Word XP returns empty string Tag: 79340
 - 9
 - template keeps locked very strange? Hello, I have a macro in a dot file that runs when I open a document with that network template (g:\wmv\r6.dot) attached. The dot file is on a network and I want to copy it local so the network template isn't locked when a user has a doc open with that template attached, so it can be changed. It works fine and the local template is attached. But the network template keeps locked with a tilde (~) before it so the doc keeps two templates locked, the local (as expected) and the network template. Is there a way to release the " ghost" attached network template? Below a example of the code: Sub AutoOpen() WordBasic.CopyFileA FileName:="G:\WMV\r6.dot",Directory:="c:\temp\r6.dot" ActiveDocument.AttachedTemplate = "c:\temp\r6.dot" End Sub Thanks a lot Tag: API GetCommandLine in Word XP returns empty string Tag: 79336
 - 10
 - Form Automation I am tring to create a form that will check or uncheck a box next to a signature line to indicate if the signature is required or not. I have several fields that are calculated. The best I can do is using another field with a formula in it like "=OR(OR(euro_total>0,swan_total>0),genus_total>0)" this results in a 1 or a zero. I would rather have this as a checked or unchecked box. Any ideas? Right now I am assuming I need to use VBA for this hence my previous post. Tag: API GetCommandLine in Word XP returns empty string Tag: 79334
 - 11
 - Need to learn VBA for Word Looking for a book or resource that would "really" help users learn how to program VBA for word. I have been to Barnes and Noble and came away frustrated. The books I found talked about various vba subjects but did not explain it in simple terms and supply a list of vba commands that could be used. For the benefit of all of us can a suggestion be made for the Beginner, Novice, Intermediate, and the expert. Suggestions please. Tag: API GetCommandLine in Word XP returns empty string Tag: 79332
 - 12
 - Finding which cell in a table I am using WORD upwards, please can someone help me with some code which sets as an integers the table number, row number and cellnumber is the activecell? Mark Tag: API GetCommandLine in Word XP returns empty string Tag: 79330
 - 13
 - Copying data from one table to another Hi there, I have been tasked with setting up an Access database to track 4 similar (but different) entities. Under certain circumstances entities B & C could metamorphose into entity A. Is it possible in Access 2002 to have a button on an input form that will replicate most (but not all) fields from entity B (or C) over to the table containing entity A? Entity A will be indexed via an auto-number â?? will this add extra complexity when trying to copy other entities over to it? Iâ??m familiar with database theory & basic Access but havenâ??t previously designed & implemented a dbms in Access. Any responses gratefully received Regards Phil Tag: API GetCommandLine in Word XP returns empty string Tag: 79318
 - 14
 - Is the bullet of a list considered to be a range? Is the bullet of a list considered to be a range? And how do I check if a certain range is actually the bullet of a list? Tag: API GetCommandLine in Word XP returns empty string Tag: 79314
 - 15
 - word 2003 bookmark/data extraction - new functionality In prior versions of Word (pre-2003), users have created word templates with bookmarks. They enter value into the bookmark range. Then we have a program that extracts the bookmark range value and we use that data for other things. Does Word 2003 offer any other functionality that would replace this? Tag: API GetCommandLine in Word XP returns empty string Tag: 79313
 - 16
 - inheritence Hey guys.. I have been working on this for about 4 hours and got nowhere.. How can I stop word tables from inheriting previous styles set... Fopr Example I set a proeprty SpaceBefore from a range object for a cell to 6... Then all the other cells in that column inherit that value.... Could someone tell me why and how to fix this... thanks nathan Tag: API GetCommandLine in Word XP returns empty string Tag: 79312
 - 17
 - border Hey list, I am trying to set a border for a couple of rows in my table My table has 4 columns and x rows.... the code below will only yield a a border on the bottom row of the table.... how can is et particular border for particular rows.... so far I have tried this WordRow.Cells.Item(1).Range.Borders.Item(Word.WdBorderType.wdBorderBottom).LineStyle = Word.WdLineStyle.wdLineStyleSingle WordRow.Cells.Item(1).Borders.Item(Word.WdBorderType.wdBorderBottom).LineStyle = Word.WdLineStyle.wdLineStyleSingle WordRow.Borders.Item(Word.WdBorderType.wdBorderBottom).LineStyle = Word.WdLineStyle.wdLineStyleSingle WordRow.Range.Borders.Item(Word.WdBorderType.wdBorderBottom).LineStyle = Word.WdLineStyle.wdLineStyleSingle I have also set the BorderWidth Property and visible property and color property... When I open up my document there is only a border on the bottom table row.. any help would be appreciated thanks... nath Tag: API GetCommandLine in Word XP returns empty string Tag: 79309
 - 18
 - MS-Project VBA Question Hi NG , I am new in the field of VBA and have a question / problem. In one project file I defined a field ( customized field Number 13 ) and renamed it as "StatDur" and entered a formula there in. With VBA I want to read out the contents of this field and display it via MsgBox. Ihave entered following code num = Application.CustomFieldValueListGetItem(pjCustomTaskNumber13, pjValueListValue, 3) Syntax is : Ausdruck .CustomFieldValueListGetItem(FieldID, Item, Index) Thats my code entered in VBA ( as above ): num = Application.CustomFieldValueListGetItem(pjCustomTaskNumber13, pjValueListValue, 3) I want to store the contents of this field from row 3 in num and want to display it via MsgBox. It wont work since the VBA-Editor brings a failure where I am entering the row number 3 as Index and I dont know why and how to solve this problem. Can onyone give a helping hand. Thanks in advance Gruß -- Cevikel Tel. : 0911-433-6329 mailto:halidun.cevikel@siemens.com Tag: API GetCommandLine in Word XP returns empty string Tag: 79308
 - 19
 - I would like to add hebrew lanquage to my translation list I would like to add hebrew lanquage to my translation list Tag: API GetCommandLine in Word XP returns empty string Tag: 79303
 - 20
 - Protecting and unprotecting form fields I have a form that I saved as a template, so that I can insert it into various documents. I have written code that inserts this form using a macro that does that and also opens a userform. The form has bookmarks and form fields with options and drop downs that only work when the form is protected. I need the form unprotected so that I can insert information from the userform into specific bookmarks, but then need it protected after that, so the form field options and drop downs will work. Is there code I can run in the userform when the form is inserted that will unprotect it until the infomation is sent to the bookmarks, and then code I can run to protect the form so the form field options and drop down will work when I exit the userform, or do I have to manually open the toolbars from the [View] [Toolbars] [Forms] menu? Thanks! -- Bill Tag: API GetCommandLine in Word XP returns empty string Tag: 79301
 - 21
 - Finding Out What the Current Section Is For the life of me, I can find a way to determine what section of the document the current selection is in. It seems like a simple task, but somehow, I just can't seem to get the syntax right. I'm using a macro to build a document, and I want it to do one thing if the current selection is in Section 2 of the document and something else if it isn't, as in: If Current Section = 2 then Do one thing Else Do something else End If I need this macro to work in Word 2000, XP, and 2003. (We can't seem to get everyone on the same version.) Any help that you can give will be most appreciated. Larry Tag: API GetCommandLine in Word XP returns empty string Tag: 79300
 - 22
 - call to a DOS command from VBA I am new to VBA I need help with calling a DOS command from within a VBA 6 code. Here is an example: Suppose I need a list of files in a folder. One can do it using DOS dir command like Prompt:> dir drive:\path\foldername > drive:\path\list.txt The file list.txt output file created contains all file names in foldername, plus some other info. I have written a vba code for Word to *clean* the list.txt file, such that it now only contains the names of files in the foldername folder. The question I have is: can one write a stand alone *application* or a Word addin, such that it starts with a user form in which one can browse to a foldername as a source and say cleanlist.doc as the output, and on closing the form, the dir command is executed, the list.txt file cleaned with my code, and the cleaned output file placed into a path\cleanedfile.doc file? I know how to open, create and close files from a vba code. I do not know how to call a dos command from vba and how to make a form with controls that allow to browse for a source and destination folders. Any reading suggestions? Thanks, -- JanAdam Tag: API GetCommandLine in Word XP returns empty string Tag: 79299
 - 23
 - inserting tables Hello List, I have been trying to work this for a while now, i can;t seem to get it working... I am using word automation to insert tables into my document from a bookmark range. The problem is when I loop to isnert a table each table will insert into the first row and column of the previous table. Here is my code below For I = 1 to 20 InteriorRange = Doc.Bookmarks.Item("InteriorBuilding").Range ' range obj InteriorRange.InsertParagraphAfter() RoomTable = Doc.Tables.Add(InteriorRange, 3, 2) ' doc a reference to the current document RoomTable.Cell(1, 1).Range.InsertAfter("tst item") RoomTable.Cell(1, 2).Range.InsertAfter("test") RoomTable.Cell(2, 1).Range.InsertAfter("test") RoomTable.Cell(2,2).Range.InsertAfter("test") RoomTable.Cell(3, 1).Range.InsertAfter("test") RoomTable.Cell(3, 2).Range.InsertAfter("test") RoomTable.Cell(1, 1).Merge(RoomTable.Cell(1, 2)) Next Any help would be greatly appreciated thanks very much nathan Tag: API GetCommandLine in Word XP returns empty string Tag: 79298
 - 24
 - Arrangement of carries Hi There is a document with the table of several rows. How for some rows of the table to resolve a hyphenation and for the some rows to not resolve? Tag: API GetCommandLine in Word XP returns empty string Tag: 79290
 - 25
 - Missing keystrokes on custom document I have a custom Word document, from a template, that catches WindowSelectionChange to modify data that is input by the user into table cells. All works well except when more than one Word document are open. The problem exists whether the other file is based on the template or not. When switching between docs, the first keystroke is lost. This behavior is also repeated when changing cells as long as two or more documents are open. Below is the relevant code: Option Explicit Public WithEvents App As Word.Application Dim thisTable As Integer Dim thisRow As Integer Dim thisCol As Integer Dim lastTable As Integer Dim lastRow As Integer Dim lastCol As Integer Private Sub Document_New() If App Is Nothing Then Set App = ThisDocument.Application End If keepAlive End Sub Private Sub Document_Open() If App Is Nothing Then Set App = ThisDocument.Application End If keepAlive End Sub Private Sub App_WindowSelectionChange(ByVal Sel As Selection) Dim myRange As Range Dim mySel As Selection Dim myText As String If Not ActiveDocument.AttachedTemplate = ThisDocument Then Exit Sub thisTable = Macros.getCellLoc.tableNum thisRow = Macros.getCellLoc.rowNum thisCol = Macros.getCellLoc.colNum If (Not Selection.Information(wdSelectionMode) = 0) _ Or (thisTable = lastTable And thisRow = lastRow And thisCol = lastCol) _ Or (thisTable < 4) Then Exit Sub End If If lastTable = 0 Then lastTable = thisTable lastRow = thisRow lastCol = thisCol Exit Sub End If If lastRow > 2 _ And lastCol <= ActiveDocument.Tables(lastTable).Columns.Count Then Set myRange = ActiveDocument.Tables(lastTable).Cell(lastRow, lastCol).Range myRange.End = myRange.End - 1 Select Case lastTable ' Removed End Select End If Select Case thisTable ' Removed End Select lastTable = thisTable lastRow = thisRow lastCol = thisCol End Sub Function isEditable(row As Integer) As Boolean If row < 3 Then Selection.Collapse Selection.MoveDown Unit:=wdLine, Count:=3 - row Selection.SelectRow Selection.Collapse isEditable = False Else isEditable = True End If End Function Sub keepAlive() If App Is Nothing Then Set App = ThisDocument.Application End If Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="keepAlive", Tolerance:=0 End Sub Tag: API GetCommandLine in Word XP returns empty string Tag: 79285

Hi,

We developed a macro in which we read out the commandline. We use the API
call "GetComandLine" for this. It works great when we use Windows 2000 with
Office 2000, but when we run the macro under Windows 2000 with Office XP, the
API call returns an empty string.
Is there a difference between Office 2000 and Office XP?

Thanks,
Hendrik Jan

Top