Getting AutoIncrement Number

Tutorials Win: Microsoft Windows Forum

- Previous
 - 1
 - how to programmatically select a certificate to sign a word Docume Dear all, I would like to find the way to select programmatically the right certificate in my store before issuing the digital signature. It looks like it is quite challendging because the set signature=activedocument.signatures.add command does pop up a listbox to manually choose a certificate from . I would like to bypass this and be able to select programmatically the certificate to issue a digital signature from with some conditions on issuer and signer and has private key properties (for example). Must I use Capicom objects instead ? Is it the same if I make a signature from capicom versus from Word internally ? any code snippet to solve my issue or to show me the way is more than welcome Best regards Herve Cadieu Paris Tag: Getting AutoIncrement Number Tag: 74096
 - 2
 - Paste a bitmap from VB.NET2005 to Word2000 I am trying to paste an image in a pictureBox in vb.NET to a Word document. When using the paste method, the image quality in Word is bad. If using pasteSpecial method, all the dataType, like wdPasteBitmap or wdPasteEnhancedMetafile, etc. are not available. The code is as follows: wdApp = CreateObject("Word.Application") wordD = wdApp.Documents.Add My.Computer.Clipboard.Clear() My.Computer.Clipboard.SetImage(bm) wordD.Sections.Item(1).Range.PasteSpecial(Link:=False, DataType:=Word.WdPasteDataType.wdPasteShape) Does Anyone know how? I also find that when using pasteSpecial to paste a picture to Word, the foramt of JPeg, Png, etc are not available until you cut the pasted picture and do the pastSpecial again. Thanks. -- I like Vb. Tag: Getting AutoIncrement Number Tag: 74094
 - 3
 - What is the difference between the two different Save methods? When I save the modified document, I find the Save button on the General Toolbar is different from the Save command in VBA code. The document size is smaller when using the Save button to save. I wonder what is the difference? Any reply is appreciated. -- Tag: Getting AutoIncrement Number Tag: 74093
 - 4
 - Calling MS Word Mail Merge with Database Password How do I call an MS Word Mail Merge document from VB.NET so it does not ask the user for the MS Access Database Password? (not user password) I am performing Word XP automation from a VB.NET program. The Word document is set up to mail merge against an Access XP database. The Database has a Database Password on it. Without the database password, the document comes up just fine and without any user interface intervention from MS Word. I have tried a couple of commands that still popup the enter password dialog: 1.) mWordDoc.MailMerge.OpenDataSource( Name:="C:\Develop\TestMSWord\TestMSWord\bin\Docs\mydb.mdb", LinkToSource:=True, PasswordDocument:="mypassword", SQLStatement:="TABLE SellerInfo") 2) mWordDoc.MailMerge.OpenDataSource( _ Name:="C:\Develop\TestMSWord\TestMSWord\bin\Docs\mydb.mdb", _ PasswordDocument:="mypassword", _ Connection:="Provider=Microsoft.Jet.OLEDB.4.0;Data Source & _ "C:\Develop\TestMSWord\TestMSWord\bin\Docs\mydb.mdb;" & _ "User Id=admin;Password=;Jet OLEDB:Database Password=mypassword;", _ SQLStatement:="Select * from `SellerInfo`") Thank you. Tag: Getting AutoIncrement Number Tag: 74091
 - 5
 - Does the free Microsoft Word Viewer have an open API? I would like to use the viewer, but want to hide the menu and toolbars so factory personnel do not have acces to navigate on the network. The Word documents will be opened from a customized program, so all opening operations are dictated outside of the viewer itself. Tag: Getting AutoIncrement Number Tag: 74079
 - 6
 - load form into word upon opening I have a form that I have created in word using VBA, how do I call it up automatically when MS Word opens? What is the code and where do I put it? Thank you, Tag: Getting AutoIncrement Number Tag: 74078
 - 7
 - HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Trying to convert same english text to forgein language - chinese, ukrainian, and spanish Tag: Getting AutoIncrement Number Tag: 74077
 - 8
 - how do I create a database using the word 2003 toolbar I am using Word 2003. I want to create a database using the database toolbar that is in Word 2003. Once the database is made I cannot save it unless I close the dbase screen. The screen that is left open shows my dbase setup i.e name, address etc. How do I save the dbase so that when I call it up to use it all I have to do is fill in the Blanks? Tag: Getting AutoIncrement Number Tag: 74070
 - 9
 - How to select programmatically the digital certificate for signing Hi all, I would like to know how to select programmatically (VBA) one specific certificate to issue a word doc signature , the certificate could be either in mystore or smartcard or LDAP I would like to parse the available certificates properties like issuer , common name, etc.. to select the precise certificate I would like to use for signing purposes. When using the (addsign macro) set sig=activedocument.signatures.add instruction it displays a listbox but I would like to avoid this listbox and select programmatically the certificate instead. Any suggestion with code snippet is very welcome Best regards Herve Cadieu Tag: Getting AutoIncrement Number Tag: 74068
 - 10
 - Is it possible to call and use MSWORD in command line mode? Hello all, Actually I would like to use the "Compare and modify" function in Word and Excel, but instead of opening the word application to complete the task, is there anyone know how to do it in command line mode? like c:\..\MSWORD c:\test1.doc c:\test2.doc "Compare and modify" or I need to write a VB program to call the function in MS office? Any comment, suggestion? or any related document for reference? Thanx so mush for your help MK Tag: Getting AutoIncrement Number Tag: 74064
 - 11
 - Apply formatting to XML Tag Hi, Could anyone help me with these please I have the following situation: The user has a blank word document with a schema attached and has to add text to that document and tag the text accordingly. Now, i want to show each tag he adds with a different style. For eg, if he tags text with the <title> tag, i would like these texts to be displayed in bold with green highlight. he tags text with the <subtitle> tag, i would like these texts to be displayed in italic. Is there a way to achieve this? Thanks Alicia Tag: Getting AutoIncrement Number Tag: 74061
 - 12
 - Error whilst fields are updating I have designed a report template using ASK fields (the report cannot be protected and tables are not practical). A macro placed in the ThisDocument module prompts the ASK fields and it all works beautifully except that whilst the prompts for the ASK fields are on screen you can see the document behind and where the bookmark for the ASK fields are it displays "Error Bookmark not Defined" - however when they are all filled in the error disappears and the data that was typed in the boxes appears in the correct fields, but I can't have users seeing the error messages it would confuse them. I have tried all sorts of ways but cannot find how to hide the window whilst the fields are updating. I've tried Application.ScreenUpdating = False, but it didn't work. Anyone have an idea? The code is: Sub AutoNew() Dim oStory As Range For Each oStory In ActiveDocument.StoryRanges oStory.Fields.Update If oStory.StoryType <> wdMainTextStory Then While Not (oStory.NextStoryRange Is Nothing) Set oStory = oStory.NextStoryRange oStory.Fields.Update Wend End If Next oStory Set oStory = Nothing Selection.GoTo What:=wdGoToBookmark, Name:="StartDoc" End Sub Thanks for looking at this. Jeanmac Tag: Getting AutoIncrement Number Tag: 74060
 - 13
 - refreshing image in ms word using vba I am dynamically changing the image property of a picture box in word with something along the lines of... LoadPictureToDocument ActiveDocument, "imgMenu", strImage This is working, however it won't 'refresh' the page so to speak. When you minimize word then restore it the image has changed, or if you scroll to the bottom of the page then back up it refreshes. Is there some sort of form.refresh type function using vba in word? Thanks Dan. Tag: Getting AutoIncrement Number Tag: 74056
 - 14
 - My Normal template not working in a different computer Last week I copied my normal template from my computer (with Word 97 and Windows 98) to another computer at a friend's house where I was staying (with Word 97 and Windows XP). Many of my macros didn't work. When I ran them I got this error message: "Compile error. Can't find project or library" When this happens to a macro, the highlighted text in the macro always involves the character code symbol, like this: Chr(30), for example, Selection.MoveEndWhile cset:=",.!? """ & Chr(13) So I guess I needed some special reference to be checked which would allow this computer to handle the character code symbol. Also, with many macros, I got this error message: "Compile error, can't find project or library" With other macros, I get message "Can't open macro storage." Even though the templaste containing the macro I was trying to run would open to that macro. I'm no longer working at the XP computer, but to avoid this problem in the future, does anyone know what I was doing wrong? Thanks, Larry Tag: Getting AutoIncrement Number Tag: 74054
 - 15
 - refreshing image in ms word using vba I am dynamically changing the image property of a picture box in word with something along the lines of... LoadPictureToDocument ActiveDocument, "imgMenu", strImage This is working, however it won't 'refresh' the page so to speak. When you minimize word then restore it the image has changed, or if you scroll to the bottom of the page then back up it refreshes. Is there some sort of form.refresh type function using vba in word? Thanks Dan. Tag: Getting AutoIncrement Number Tag: 74053
 - 16
 - Load Fields on a Form with Button Click? I have fields in a word document template that I would like to allow the user to fill in. Then with a button click, I would like to copy the data from those fields that the user filled in to other areas (fields) on the same form to be used as prompts for additional input. I can read the user inputs from the initial bookmarked fields with the dim x as string ActiveDocument.Bookmarks("fred").select x=Selection.text I cannot see how to load another field with the x text Something like : ActiveDocument.Bookmarks("fred1").select Selection.text=x This removes the fred1 bookmark and the associated field. Tag: Getting AutoIncrement Number Tag: 74051
 - 17
 - water marks on word document On a word document there are sample water marks available on the system. How do I make my on water mark (e.g. my name) and put it diagonally on the document? If I want to put my hand writing there how do I do that? Tag: Getting AutoIncrement Number Tag: 74049
 - 18
 - Variables and scope ? !!!! I wonder if some one can clarify if it is possible I want to set a global or constant in word at the start of a document / module in vba is this possible I understand to set a variable i use the "public" and if i require a set value that i would use the "const" But how do set a variable to the whole document which refers to a table something like const tblEmployees As Tables = ActiveDocument.Tables(1) or this is poor coding or bad practice... ? if ppl have any tutorials or links which might help it all become clear many thanks Tag: Getting AutoIncrement Number Tag: 74048
 - 19
 - msword 2003 chgs ' when text is programmably inserted into msword I am programmably populating a MSWORD html template which has tags inserted in the html. All is well and good except for apostrophe and perhaps a few other characters. Instead of converting to ' word changes the ' to Ã¢â?¬â?¢ . In the browser this is what you get. Anyone have explanation and fix? -- Thanks, StanD Tag: Getting AutoIncrement Number Tag: 74045
 - 20
 - RTF images conversion Hi, I'm working with an application which automatically generates an RTF document using the JFOR library. The problem is with Word 2003: an image file (our company logo) appears at the top of the page, as designed, but is resized to 2% of it's original design. This means that the conversion ignores the width and height dimensions set in the RTF. Previous versions of Word work fine and the imaged are rendered correctly. Can anyone tell mw how to correct this? Or why this happens? Our users were very confused and thought that the image didn't get placed in the document at all. Of course, I didn't even know our image was there until I viewed the document at 500%. Please help. Tag: Getting AutoIncrement Number Tag: 74042
 - 21
 - Built in Word dialog problem I'm trying to use on of Word's built in dialogs, namely the table auto-format dialog. Reading up on MSDN, this should work: Word.Dialog dlg = Application.Dialogs[Word.WdWordDialog.wdDialogTableAutoFormat]; However, doing this I get the following error: "Microsoft Word: This method or property is not available because some or all of the current selection is not in a table." What am I doing wrong? Tag: Getting AutoIncrement Number Tag: 74035
 - 22
 - Accessing numbering from a macro Hello Is it possible to access the numbering of a heading from a VBA macro? I've already tried but the "Selection" object ignores the numbering. Cheers Jorge Tag: Getting AutoIncrement Number Tag: 74026
 - 23
 - reading line from table cell into array Hi, I want to read a line from a table cell into an array. Just can not figure out how to read the lines into arrays. This is what I´ve got so far from http://mypage.bluewin.ch/reprobst/WordFAQ/Tabellen.htm#Tabellen05 Sub WordTabelleNachEindimensionalenArray1() Dim x() As String Dim oTable As Table, Zelle As Cell If ActiveDocument.Tables.Count = 0 Then MsgBox "Das Dokument enthält keine Tabelle.", vbInformation Exit Sub End If Set oTable = ActiveDocument.Tables(1) ReDim x(1 To oTable.Range.Cells.Count) i = 0 'Oder auch -1, wenn der Array bei "0" beginnen soll For Each Zelle In oTable.Range.Cells i = i + 1 strText = Zelle.Range.Text x(i) = Left(strText, Len(strText) - 2) Next Zelle End Sub I can save the whole cell into the array, but not just one line. How should this be changed? Thanks in advance for every help Rob Tag: Getting AutoIncrement Number Tag: 74021
 - 24
 - Fonts could not be registered? Hi everybody, not a real problem, it's just that I am curious about it. When using Word XP after having used Word 97, a message box pops up, saying that "Some of the fonts could not be registered", or so. Which fonts? What registration? Not a VBA question for sure, forgive me. -- Greetings from Bavaria, Germany Helmut Weber, MVP WordVBA Win XP, Office 2003 "red.sys" & Chr$(64) & "t-online.de" Tag: Getting AutoIncrement Number Tag: 74019
 - 25
 - Microsoft Word suggestion Microsoft Word should have an option similar to T9 and other cell phone predictive text software; one that showed possibilities to finish a word as it's being typed, so that if someone is typing "onomatopoeia", they can type "onom" and see a display suggesting several ways the word could be finished; it could be like the phones, where a highlighted possible end of the word appears after every unfinished word and one can simply press ctrl or something. Or it could be more like Microsoft, and have a little separate window open with the possible words appearing as one types. Either way, I think it would be a good tool for Word. ---------------- 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=c7450302-262e-4dea-8f1e-b0f4694e59a5&dg=microsoft.public.word.vba.general Tag: Getting AutoIncrement Number Tag: 74017
- Next
 - 1
 - Continuous section break interfering with odd/even page header I have created a tempate that has a different first page header/footer and odd/even headers/footers for the rest of the document. I want to start the second page of the document as two even columns (the first page is not in columns). Users are not regular Word users, therefore I have a macro that does that for them (see below). However, when you run the macro the odd/even page header that has been set up changes and instead the header for the first page is inserted. The code finds the first character on the current page, inserts a continuous section break and sets up 2 even spaced columns. Does anyone know why it plays havoc withthe header? I'd be really interested to know and grateful for a solution. The code is: Sub ConvertToColumns() 'converts the contents of the current page to two equal columns ' moves to te left of the first character at the top of the current page Selection.Bookmarks("\Page").Select Selection.Collapse wdCollapseStart 'creates a continuous section break and two even columns With Selection.PageSetup.TextColumns .SetCount NumColumns:=2 .EvenlySpaced = True .LineBetween = False .Width = CentimetersToPoints(6.69) .Spacing = CentimetersToPoints(1.27) End With 'moves to the right of the last character on the page window (not to footer) Selection.Bookmarks("\Page").Select Selection.Collapse wdCollapseEnd End Sub Thanks for any help Aehan Tag: Getting AutoIncrement Number Tag: 74012
 - 2
 - word and access data link Help!!! I am new with programming. Need to link access table on a template to be updated bidirectional each time the template is opened. Any detail help is greatly appreciated. Thanks Tag: Getting AutoIncrement Number Tag: 74011
 - 3
 - Word & IE Quits unexpectedly My Microsoft Word 2005 & IE 6.0 unexpectedly quits while working...Even I am writing a letter in Word or Browsing on the Internet, both windows unexpectedly quits after sometime...Please help me....Thanks Tag: Getting AutoIncrement Number Tag: 74010
 - 4
 - Mail merge I am creating a mail merge Word orientation handbook that is to be unit specific. The data to make it unit specific is in an Access database. The section layout is designed to go inline with the checklist used for orientation. I have gotten the basics working as I want it to. I have also created an IF statement to display material if the department is ICU it would display specific text that isn't otherwise displayed. Here are my issues: I have more skills than most users at the facility. If I was to leave the facility I want something that isn't going to be difficult for them to maintained and improve on with time. I am concerned that if I hide material in IF statements someone else will not know how to deal with them. I am planning to create a manual to go with the handbook so I am thinking IF statements may work. I will have sections that only apply to one or two units. I will not be able to just tack on the material to the end of the main document because it would mess up the flow. For example the ER has a sub section on Radios that needs to be included in the General Operation section of the handbook not at the end. My question is how to best bring in information like this. Is there a way to insert a file or show hidden text. For example { IF Department = Emergency Room, Bookmark unhidden, Bookmark hidden } Any ideas would be appreciated to keep this project usable for basic users and slightly above basic users (me)? Thank you Fay Tag: Getting AutoIncrement Number Tag: 74006
 - 5
 - Finding Chrw Codes..... Hi, I am newbie to VBA programming. I want to find Greek Symbols through VBA. But i don't know Chrw codes..i.e., Chr(13).... Where i can find the list of chr codes. Or anyone can give me the list. Thanks in Advance. Tag: Getting AutoIncrement Number Tag: 73993
 - 6
 - List all Bookmarks in a Protected Form Hello everyone. I have a protected form that is filled out by various users. I would like to be able to go to the end of each completed document where there is an unprotected continuous section and click a MACROBUTTON which will run a macro that will display the "text only" of each bookmark in the document. Each bookmark text would be listed in a separate paragraph in the order that they appear on the protected form. Thanks. Tag: Getting AutoIncrement Number Tag: 73983
 - 7
 - Search Macro Hey, I'm trying to create a macro in word that finds the word Engineer and when it does copy the first 7 charators of that line and paste it either to another word document or and excel spreadsheet. I have done VB for excel macro's but this is confusing me. Any help would be appreciated. Thanks Andrew T Smith Tag: Getting AutoIncrement Number Tag: 73978
 - 8
 - DefaultFilePath with Read Only files Word 2003; WinXP Personal I have several simple macros (with toolbar buttons) to change the default Save As directory. For example: ********************************** Sub HouseholdAsDefault Options.DefaultFilePath(Path:=wdDocumentsPath) = ("C:\Documents and Settings\<my name>\My Documents\Household") End Sub ********************************** This works fine with a newly created file. When I first save it, the Save As dialogue is in the "Household" folder. It doesn't work for boilerplate files that have been set as Read Only in the desktop. When I open such a file, I immediately get prompted to Save As in the folder in which the boilerplate is located. I press Esc and run the above macro, then attempt to Save As. The Save As dialogue still defaults to the boilerplate file's folder, not to Household. Is there any way to force a change in the default Save As folder in this situation? (Note: ChangeFileOpenDirectory doesn't work either.) Thanks. Tag: Getting AutoIncrement Number Tag: 73977
 - 9
 - change my office word from arabic to the english version how can i change my office word from only arabic version to english version with out losing the arabic language in the program? Tag: Getting AutoIncrement Number Tag: 73971
 - 10
 - AutoNum field in 2003 I have two tables that are separated by a blank line. I need to use AutoNum fields in each table; each starting with the number 1. I have read the help and other questions here, but everything I have tried is to no avail. I have tried formatting the first blank line before the Table Heading as Heading 2 (style was modified but name remains Heading 2). The first blank line before the second Table Heading was formatted as Heading 3 (style was also modified but name remains Heading 3). According to Help this was suppposed to work. I also tried the SEQ field but numbers do not auto advance. And ListNum doesn't do it either. Is there an undocumented switch I could add to the field to make it restart the numbering in the second table? Is there a VB solution I could use instead of using fields? Thanks Jack Tag: Getting AutoIncrement Number Tag: 73960
 - 11
 - open & close file with vba This subroutine works fine the first time it is called. After that, the following message pops up, "There is not enough memory or disk space to complete the operation". I have to exit Word and restart to run the macro again. If I don't save the file it works OK. If I take out the file save in the routine but close the document manually I will still get the error message. I'm baffled!!! Thanks for looking at this, Bill Sub PrintNewCheck() 'string fields have been set by previous sub Const CHECK_DOC = "C:\Users\Overhead\QB\qb_blank.doc" Dim iResponse As Integer Dim oDoc As Document Set oDoc = Application.Documents.Open(CHECK_DOC, AddToRecentFiles:=False) With ActiveDocument .FormFields("Date").Result = sDateField .FormFields("PayTo").Result = sPayToField .FormFields("Money").Result = sMoneyField .FormFields("DollarLine").Result = sDollarLineField .FormFields("Memo").Result = sMemoField iResponse = MsgBox("OK to print?", vbYesNo) If iResponse = vbYes Then .PrintOut End If End With oDoc.Close wdDoNotSaveChanges Set oDoc = Nothing End Sub Tag: Getting AutoIncrement Number Tag: 73955
 - 12
 - Formatting caption to match the previous paragraph Hi I would appreciate some help in coding a macro that finds each instance of a caption style in a document and sets the caption to the same left indent value as its preceding paragraph. My Caption style is called ARTableCaption My 3 possible paragraph styles which preceed each caption are: ARBodyText Level1 Left Indent 1 cm ARBodyText Level2 Left Indent 2 cm ARBodyText Level3 Left Indent 3.25 cm This is my code so far, but it is not working. With ActiveDocument.Content.Find .Style = "ARTableCaption" Do While .Execute(FindText:="", Forward:=True, _ Format:=True) = True Selection.MoveUp Unit:=wdLine, Count:=1 If Selection.Style = ActiveDocument.Styles("ARBodyText Level1") Then Selection.MoveDown Unit:=wdLine, Count:=1 Selection.HomeKey Unit:=wdLine Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend With Selection.ParagraphFormat .LeftIndent = CentimetersToPoints(1) .RightIndent = CentimetersToPoints(0) End With End If End With ... Loop Thanks Heather Tag: Getting AutoIncrement Number Tag: 73945
 - 13
 - Hot to put whjole text into a string? If I select the whole document and I write: a$ = selection.text I will NOT have the whole document into the variable, but just the FIRST PARAGRAPH!!! How can I store the whole document into one variable? Or, how can I parse all paragrpahs one by one? -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.aspx/word-programming/200509/1 Tag: Getting AutoIncrement Number Tag: 73943
 - 14
 - id for buttons in word 2000 Hi, I Need the ID's for some mailmerge buttons in Word 2000: the button for mailmerge with destination new document, destination printer and destination e-mail if they already exist in 2000 (they do in word 2002). Otherwise the general button for executing a mailmerge. Easy to retrieve for someone with Word 2000 and BuiltInControlsScanner. http://www.add-in-express.com/files/BuiltInControlsScanner.exe Thanks in advance Tom Tag: Getting AutoIncrement Number Tag: 73942
 - 15
 - Help me with a simple MS macro Hi, I want amend my macro that finds all instances of bold text in a document and puts the text between and . This macro, however, formats the tags themselves in bold. I want them in a non-bold (normal) and blue typeface. Thanks! Here is the macro: Sub BoldToTagged() ' ' BoldToTagged Macro ' Macro created 16.9.2005 by Ivaylo T Ivanov ' Finds all instances of bold text and puts the text between and tags ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "" .Replacement.Text = "^&" .Forward = True .Wrap = wdFindContinue .Format = True .Font.Bold = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub Tag: Getting AutoIncrement Number Tag: 73939
 - 16
 - Insert Text From Opened Access Form As .body is a property in Outlook, is there a similar one for a standard Word document? Can an already-opened Word document's main body be referenced? I have successfully migrated an already-opened Access form field into an Outlook email message body by using a .body = Forms![Main]![List] type of code and would like to do the same in word without having to perform merge-related coding, if possible. Thanks Tag: Getting AutoIncrement Number Tag: 73936
 - 17
 - Word X "unexpectedly quits" while running a macro I'm having a problem withina Word macro while trying to open an Excel workbook. Oh yeah, and this is running on OS X 10.4 with Word X and Excel X. Here is the code, which I "borrowed": Public Sub GetExcelData() Dim oXlApp As Excel.Application Dim oXlBook As Excel.Workbook Dim oXlSheet As Excel.Worksheet Dim oXLRange As Excel.Range Dim bXlStarted As Boolean Dim sExcelText As String Dim sFileName As String On Error Resume Next 'Grab running Excel instance Set oXlApp =3D GetObject(, "Excel.Application") If Err <> 0 Then 'Excel wasn't running 'start it from code Set oXlApp =3D CreateObject("Excel.Application") bXlStarted =3D True End If On Error GoTo 0 sFileName =3D _ "/Users/Admin/Desktop/Comment Sheet Work Vol2/Comment-7th-sem3-2005.xls" MsgBox "File name is " & sFileName 'Get the workbook Set oXlBook =3D oXlApp.Workbooks.Open(FileName:=3DsFileName) As I step through the code, after the last "Set" statement above to open the Workbook, Word dies with the message "The application Word quit unexpectedly." There is a report option, which when I click the button displays lots of dump info such as: Date/Time: 2005-09-14 20:59:13.273 -0400 OS Version: 10.4.2 (Build 8C46) Report Version: 3 Command: Microsoft Word Path: /Applications/Microsoft Office X/Microsoft Word Parent: WindowServer [63] Version: 10.1.6 (10.1.6 (040913), =A9 1983-2001 Microsoft Corporation. All rights reserved.) PID: 7329 Thread: 0 Exception: EXC_BAD_ACCESS (0x0001) Codes: KERN_PROTECTION_FAILURE (0x0002) at 0x00000000 Thread 0 Crashed: 0 oaremZ 0x07312c88 0x72ffb00 + 78216 1 oaremZ 0x07314584 0x72ffb00 + 84612 2 <<00000000>> 0x07da77f4 0 + 131758068 3 <<00000000>> 0x07da77f4 0 + 131758068 4 VBE 0x075567a8 0x73b5000 + 1709992 5 VBE 0x07543724 0x73b5000 + 1632036 6 <<00000000>> 0x05c88c94 0 + 97029268 7 <<00000000>> 0x07da5d60 0 + 131751264 8 VBE 0x075567a8 0x73b5000 + 1709992 9 VBE 0x07543724 0x73b5000 + 1632036 10 VBE 0x07543574 0x73b5000 + 1631604 11 VBE 0x075ddff0 0x73b5000 + 2265072 12 VBE 0x075ddeb4 0x73b5000 + 2264756 13 VBE 0x074f41f8 0x73b5000 + 1307128 14 VBE 0x074d48f0 0x73b5000 + 1177840 15 VBE 0x074b56d8 0x73b5000 + 1050328 16 VBE 0x07414f00 0x73b5000 + 392960 17 VBE 0x074763d4 0x73b5000 + 791508 18 Microsoft_Office_2001Z 0x0105364c 0x1008000 + 308812 19 Microsoft_Office_2001Z 0x01053438 0x1008000 + 308280 20 Microsoft_Office_2001Z 0x0105334c 0x1008000 + 308044 21 Microsoft_Office_2001Z 0x01051d9c 0x1008000 + 302492 22 MCPZ.stb 0x005d84a8 0x5c59d0 + 76504 23 MCPZ.stb 0x005d83ac 0x5c59d0 + 76252 24 com.apple.HIToolbox 0x931288d4 DispatchEventToHandlers(EventTargetRec*, OpaqueEventRef*, HandlerCallRec*) + 692 25 com.apple.HIToolbox 0x9312802c SendEventToEventTargetInternal(OpaqueEventRef*, OpaqueEventTargetRef*, HandlerCallRec*) + 372 26 com.apple.HIToolbox 0x93127ea8 SendEventToEventTargetWithOptions + 40 27 com.apple.HIToolbox 0x9312f1ec ToolboxEventDispatcherHandler(OpaqueEventHandlerCallRef*, OpaqueEventRef*, void*) + 704 28 com.apple.HIToolbox 0x93128b24 DispatchEventToHandlers(EventTargetRec*, OpaqueEventRef*, HandlerCallRec*) + 1284 29 com.apple.HIToolbox 0x9312802c SendEventToEventTargetInternal(OpaqueEventRef*, OpaqueEventTargetRef*, HandlerCallRec*) + 372 30 com.apple.HIToolbox 0x9312edb0 SendEventToEventTarget + 40 31 MCPZ.stb 0x005fb530 0x5c59d0 + 220000 32 Microsoft Word 0x020da0d0 0x2008000 + 860368 33 Microsoft Word 0x0201d1e0 0x2008000 + 86496 34 Microsoft_Office_2001Z 0x01021964 0x1008000 + 104804 35 Microsoft Word 0x0201cc28 0x2008000 + 85032 and much more.... So what next? I'm not sure what would be the best approach. It seems like a defect, code trying to go someplace it should not, but what code? Word? Excel? VBA? and how do I report it to Microsoft? Could it be somthing else? Any suggestions about this problem would be appreciated. Thanks, Tom Tag: Getting AutoIncrement Number Tag: 73935
 - 18
 - Scaling Pictures with VBA Hello I contacted Discussion Groups a few weeks ago because I wanted to scale imported pictures to 50%, 25%, 75% etc of their size using code, and Jean-Guy Marcil gave me some code that I really appreciated. However, I have hit a snag. The pictures are logos, and are pictures and text, when Word imports them it fits them across the margins, changing the size of the logo which will now appear as, eg 55% of the original. When I wrote the routine for scaling the macro I took this into account, eg 50% was half of 55% and so on. However, to my horror I now see that Word uses the existing margins and orientation of the current document, so what was 55% in portrait changes when you import it as landscape. Help!!! Does anyone have an idea of how I can write the code to look at the proprotions of the graphic as displayed in the height and width boxes of the Size properties in the Format dialogue box? Hope I am explaining this correctly. The code as provided by Jean-Guy at present is: With Selection Select Case .Type Case 7 'Inline shape .InlineShapes(1).ScaleHeight = 50 .InlineShapes(1).ScaleWidth = 50 Case 8 'Floating picture .ShapeRange(1).ScaleHeight 0.5, True .ShapeRange(1).ScaleWidth 0.5, True Case Else MsgBox "The current selection is not a picture." _ & vbCrLf & "Make sure you select only the picture itself.", _ vbExclamation, "Error" End Select End With Thanks for any help you can give. Aehan Tag: Getting AutoIncrement Number Tag: 73933
 - 19
 - Word Programming - issue with Word versions and automation I have a program (DOT) running behind Msword via an application. One of the automation is to save the active document using MS DOS With Layout format to retain formatting etcetera. This works fine in Word 97/2000/XP. However, in Word 2003, use of this converter requires InsertLineBreaks:=True so that line breaks are inserted (without this a paragraph ends up as a single line in ASC file). Does anybody know a workaround method where the same program can work for all versions without major changes? -- AminC Tag: Getting AutoIncrement Number Tag: 73927
 - 20
 - How to find a bookmark's parent bookmarks? Given an instance of Microsoft.Office.Tools.Word.Bookmark, is there a way to determine any surrounding bookmarks? I want to know all the bookmarks that contain the range of a given bookmark. Thoughts? Tag: Getting AutoIncrement Number Tag: 73926
 - 21
 - Find and Replace in 2000 I have a macro that finds certain values and replaces them with bold versions of the values. The macro works fine in Word 2003, but fails in Word 2000 even though the macro was made in Word 2000. Is there a problem with the find and replace functionality in Word 2000? How do I do a find and replace in Word 2000, if it is even possible? Here is the error I get when I try to run the macro in Word 2000..... "Invalid procedure call or argument" Here is some of the code..... Dim oRng as Range Set oRng = Doc.Range With oRng.Find .Text = "Test Value" !!!!!!ERROR OCCURS HERE!!!!!!! .Replacement.Text = "Test Value" .Replacement.Font.Bold = True End With Thanks, ACFalcon Tag: Getting AutoIncrement Number Tag: 73920
 - 22
 - Macro "Remembers" Breaks and Comment Marks from Prev Run I am running a macro, and inserting breaks and commenting out some lines, in order to debug it. Later, when I re-run the macro, it breaks at the locations where I previously inserted breaks, and does not execute the lines where at one time I put comment marks. It seems to "remember" what I previously inserted, though these things are not in the code. I have tried recreating the button in the Word template, but that didn't work. I am running Windows 5.1 SP1 on an XP, and Word 2003 SP1. -- Nancy Tag: Getting AutoIncrement Number Tag: 73918
 - 23
 - Call a macro from a hyperlink in word Is there a way to create a hyperlink in a word document (using VBA) that will call a macro? Thanks, Heidi Tag: Getting AutoIncrement Number Tag: 73917
 - 24
 - How do I create a print macro in a form? I have a form that I wish to apply a print icon and when it's double clicked, it will print out a copy.-- Pam Eggleston Tag: Getting AutoIncrement Number Tag: 73914
 - 25
 - Problem with object "CheckBox" Hi all, Does anyone know how can I get the value of the object "CheckBox" for programming in VBA of Word. My situation is I create a WordTemplate with a list of CheckBox(es). I add a event "DocumentBeforePrint" for this template, what i want is before I print a document take a check of the value of all the "Checkbox(es)", if true then display the "Checkbox", else not. Problem is I don't know how to collect all the checkbox(es) object. Does anyone can tell me how? Thanks! Regards, Pat Tag: Getting AutoIncrement Number Tag: 73912

I want an auto increment number on my document exactly where the cursor
stays. For example while typing a text I need a autoincrement number (using
as a reference number of a document) sometime on the 1st line, sometime on
6th line of the text or some time in next paragraph.

Therefore I am looking for a solution to get auto increment number exactly
where my cursor stays (any where in the document).

Please advise.

Regards.

Irshad.

Top

Re: Getting AutoIncrement Number by Graham

Graham
Wed Sep 21 06:35:39 CDT 2005

Save a SEQ field as an autotext entry and insert it at the cursor.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

Irshad Alam wrote:
> I want an auto increment number on my document exactly where the
> cursor stays. For example while typing a text I need a autoincrement
> number (using as a reference number of a document) sometime on the
> 1st line, sometime on 6th line of the text or some time in next
> paragraph.
>
> Therefore I am looking for a solution to get auto increment number
> exactly where my cursor stays (any where in the document).
>
> Please advise.
>
> Regards.
>
>
> Irshad.

Top