Posting from word to exchange ?

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Problem getting exit code returned by DOS command Hi folks, When I try to invoke MS-DOS programm from VB, the exit code return is aways 0. My code is: Option Explicit Private Type STARTUPINFO cb As Long lpReserved As String lpDesktop As String lpTitle As String dwX As Long dwY As Long dwXSize As Long dwYSize As Long dwXCountChars As Long dwYCountChars As Long dwFillAttribute As Long dwFlags As Long wShowWindow As Integer cbReserved2 As Integer lpReserved2 As Long hStdInput As Long hStdOutput As Long hStdError As Long End Type Private Type PROCESS_INFORMATION hProcess As Long hThread As Long dwProcessId As Long dwThreadID As Long End Type Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal _ hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _ ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function GetExitCodeProcess Lib "kernel32" _ (ByVal hProcess As Long, lpExitCode As Long) As Long Public Function ExecCmd(cmdline$) Dim proc As PROCESS_INFORMATION Dim start As STARTUPINFO Dim procId As Long start.cb = Len(start) procId = Shell(cmdline$, vbNormalFocus) proc.hProcess = OpenProcess(ACCESS_TYPE, False, procId) Call WaitForSingleObject(proc.hProcess, INFINITE) Call GetExitCodeProcess(proc.hProcess, procId) ExecCmd = procId End Function Private Sub CommandButton1_Click() Dim retval As Long retval = ExecCmd("java -jar Test.jar abc") MsgBox "Process Finished, Exit Code " & retval End Sub When I run this command (java -jar Test.jar abc) the exit codes are between 3 and -6. Any help and/or ideas? Plamen. Tag: Posting from word to exchange ? Tag: 93203
  - 2
    - Excel Chart after paste to MS Word 2000 (URGENT) Hi, I wrote the following code to paste a resized Excel chart into an MS Word table. In Office 2003, it pastes in Word with the size that I made it in Excel. In Office 2000 however, it does not. It seems to revert to the orginal size. In Excel 2000 it is respecting my resize of the charts. Here is the paste code.....any suggestions please to make it look the same in Office 2000 Word.Application.ActiveWindow.ActivePane.Document.Tables.Item(1).Cell(1, jjj + 1).Range.PasteSpecial(Link:=False, DataType:=3, _ Placement:=0, DisplayAsIcon:=False) Tag: Posting from word to exchange ? Tag: 93201
  - 3
    - Using VBA to SUM 3 columns in a Word Table I have a Word Table in my Active Document that I'd like to SUM using a cmdCalculateTotal button on a form. Can somone please tell me how to approach this -- for example -- how would I write the VBA code to calculate Cells C3:C16 of the table? The Range of the calculated area is subject to change (depending on the choices the user makes (selecting checkboxes and radio buttons), so it seems that I would need to calculate the range of the column (after all selections have been made, and ADD a Summary Row to the table to calculate the values. I'm just not sure the easiest way to approach this NOTE: I'm trying to approach this project in blocks -- I'm still working on the issue of getting the table values (selected by the user) to populate in the Active Document -- I'm close, but not there yet -- Summing the values would be the next step. Any help will be greatly appreciated. Thanks in advance Shane Tag: Posting from word to exchange ? Tag: 93190
  - 4
    - autofill a variable How do I autofill multiple places? Eg. I type over "name1" and "name2" at the begining of a doc with Jack and Jill and it autofills every "name1" with Jack and "name2" with Jill in all other places in the doc. Tag: Posting from word to exchange ? Tag: 93189
  - 5
    - Print table without color automatically I've got a word forms with a nubmer of tables on different pages, the tables was color in different colors to highlight fields which have to be filled in by client, but i don't want the tables to have any color when it was printed - how can i set it so that the all table colors will be reset to white automatically when user print the form? sin Tag: Posting from word to exchange ? Tag: 93179
  - 6
    - Identify and mark numbers at the beginning of paragraphs - but not headings Hi group, my problem (Word 2003): I have to identify all numbers that are at the beginning of a paragraph in a word document but are *not* headings and put a marker (like "xyzxyz") in front of the number (to prevent that any numeric character that does not belong to a heading will ever stand at the beginning of a paragraph; this is important for further scripting/conversion in this case). Headings (which shall *not* get a marker) are numbered 1., 1.1, 1.2, 2., 3., 3.1, 3.2, 3.2.1, 3.2.2, 3.3, 4. etc. There are probably no numbers >99 in Headings (so no three-digit numbers between periods in heading numbering), but at the beginning of paragraphs there may be numbers that have (a) periods as thousands separators, as these are German documents and (b) dates, which are written "xx.xx.xxxx" here, with or without spaces. both kinds of numbers should be treated like all other non-heading numbers (put a marker before the first digit at the beginning of the paragraph). I can't use paragraph styles for identification, because they're not reliably there. All this should be done by a macro. Actually, I don't have a clue about VBA, but I can copy/paste, and I have to solve this - fast! Can someone help? TIA Alex Tag: Posting from word to exchange ? Tag: 93172
  - 7
    - Problem with msgbox and chr(10) I get an error: The project or library could not be found; Note that I have about 10 library references loaded inc.: office 11 objects, forms 2, cdo, dao, activex, outlook, vbscript, vba extensibility. Even odder, this template worked in the past, did it break as a result of an office update? TIA Tag: Posting from word to exchange ? Tag: 93168
  - 8
    - Exit "Here" From Print Preview One thing I really miss like crazy from my last job was what we called an "Exit Here" Macro If you were in Print Preview viewing page x and you closed Print Preview you wound up on page x This was extremely helpful when working on very long docs If anyone wants to share with me I would really appreciate it Thanks Tag: Posting from word to exchange ? Tag: 93167
  - 9
    - how do i export macros from one computer to another computer? Tag: Posting from word to exchange ? Tag: 93163
  - 10
    - Find and Replace missing font (font substitution problem) I am trying to programmatically convert all references in a document of one fontname to another, in order to replace a missing font. This code works fine ... but only if the 'missing' font ("SuperHebrew") is in fact installed. For Each rngStory In ActiveDocument.StoryRanges With rngStory.Find .ClearFormatting .Font.Name = "SuperHebrew" Do While .Execute(FindText:="", Forward:=True) = True With .Parent HebrewString = .Text HebrewString = ConvertSupHebToCCAT(HebrewString) HebrewString = ConvertCCATToUnicode(HebrewString, "Vowels") If HebrewString <> "" Then .Text = HebrewString .Font.Name = "Ezra SIL" .Move Unit:=wdWord, Count:=1 End With Loop End With Next rngStory However, if SuperHebrew is NOT installed (which is the situation I am trying to handle <grin>) , then MSWord Font Substitution kicks in, and remaps the font to a different font (in this case "Default"). The side effect of this is that I can no longer reference the missing font by its orginal name, and I cannot work out what name I should use the code does not find anything to change. I have tried changing to ... font.name = "Arial" 'Ariel is my Default font font.name = "(Default)" font.name = "(Default) SuperHebrew" ' this is how is displays in manual Search & Replace None of these work. Any ideas? Cheers revstead Tag: Posting from word to exchange ? Tag: 93153
  - 11
    - Bold selected text generated in a userform I have a userform with 6 text boxes. I use a single bookmark to insert the information into the active document. I'd like to be able to format (bold) one of the entries as it is inserted in the document. I've tried tbNAME.font.bold=true and it accepts the statement but it has no effect on the output. I just don't have the familiarity with OOP and with Word's internals to know how to proceed. Any light you could shed would be appreciated. Thanks in advance! --Ken Davis VB code is as follows: Private Sub CommandButton1_Click() With ActiveDocument For varCounter1 = 1 To 12 ' varCounter1 increments the inserted text to cycle through each cell ' Set increment for the number of fields (bookmarks) in the main document 'VarCellNumber passes a string to append to "bkCELL" which is the base mnemonic for the cell bookmarks 'this assumes fewer than 20 cells If varCounter1 < 10 Then varCellNumber = Chr(48 + varCounter1) If varCounter1 > 9 Then varCellNumber = "1" + Chr(48 + (varCounter1 - 10)) 'Actually inserts UserForm2 text into fields. Note that fields are inserted in reverse order (like pushing onto a stack) 'If statements ignore and/or properly format lines with blank entries If (tbFACEBOOK) <> "" Then .Bookmarks("bkCELL" + varCellNumber).Range.InsertBefore Chr(10) + (tbFACEBOOK) If (tbMYSPACE) <> "" Then .Bookmarks("bkCELL" + varCellNumber).Range.InsertBefore Chr(10) + (tbMYSPACE) If (tbIM <> "") Then .Bookmarks("bkCELL" + varCellNumber).Range.InsertBefore Chr(10) + (tbIM) If (tbPHONE <> "") And (tbEMAIL <> "") Then .Bookmarks("bkCELL" + varCellNumber).Range.InsertBefore (tbEMAIL) .Bookmarks("bkCELL" + varCellNumber).Range.InsertBefore Chr(10) + (tbPHONE) + Chr(9) ElseIf (tbPHONE <> "") And (tbEMAIL = "") Then .Bookmarks("bkCELL" + varCellNumber).Range.InsertBefore Chr(10) + (tbPHONE) ElseIf (tbEMAIL <> "") And (tbPHONE = "") Then .Bookmarks("bkCELL" + varCellNumber).Range.InsertBefore Chr(10) + (tbEMAIL) End If If (tbNAME <> "") Then tbNAME.Font.Bold = True .Bookmarks("bkCELL" + varCellNumber).Range.InsertBefore (tbNAME) 'Chr(10) + (tbNAME) End If Next varCounter1 End With UserForm2.Hide End Sub Tag: Posting from word to exchange ? Tag: 93148
  - 12
    - reciept for credit card use I need to issue a reciept for people who give me there credit card numbers over the internet. Tag: Posting from word to exchange ? Tag: 93139
  - 13
    - picture in the footer hi how can i determain if there is a picture in the first page footer and in the primary page footer with VBA code in word document ? how can i delete the picture ? what is the best way to insert a picture to the footer ? (with VBA) thanks in advanced Tag: Posting from word to exchange ? Tag: 93134
  - 14
    - problem with showing shortcut in tooltip on custom toolbar Hi! I have a custom toolbar with buttons for different styles like heading 1, normal, and a number of custom styles. The name for the button is set to the stylename + the shortcut, like "heading 1, Alt+1". I want the tooltiptext to be like the name for the button and so it is for some off the buttons but for some others it shows the button name and the shortcut aligned to the right. The tooltip for the heading 1 is for example "heading 1, Alt+1 (Alt+1)" Even if I via VBA changes the tooltiptext the extra shortcut shows. It would be ok if it was the same for all buttons but it is not. If I customize the toolbars to not show shortcust for buttons the extra added shortcut does not show. But I can not have this setting for many other reasons. And yes, the name of the button must include the shortcut.... What am I missing here? I thought that it had something to do with the built in styles but IÂ´m not shure it seams to be different on differnt computers. Tag: Posting from word to exchange ? Tag: 93133
  - 15
    - Intellisense This is a multi-part message in MIME format. ------=_NextPart_000_001E_01C6FA6C.BFEC8A80 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Does Intellisense work for: ActiveDocument.BuiltInDocumentProperties ActiveDocument.CustomBuiltInDocumentProperties It doesn't for me. I get the intellisense prompt after typing ActiveDocument. and can = choose one of the two properties above, but intellisense does not work = for either. --=20 Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. ------=_NextPart_000_001E_01C6FA6C.BFEC8A80 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.2900.2963" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#f8f2d6> <DIV><SPAN class=3Dq0>Does Intellisense work=20 for:<BR>ActiveDocument.BuiltInDocumentProperties<BR>ActiveDocument.Custom= BuiltInDocumentProperties<BR><BR>It=20 doesn't for me.<BR><BR>I get the intellisense prompt after typing=20 ActiveDocument. and can choose one of the two properties above, but = intellisense=20 does not work for either.<BR><BR></SPAN></DIV> <DIV><BR>-- <BR>Greg Maxey/Word MVP<BR>See:<BR><A=20 href=3D"http://gregmaxey.mvps.org/word_tips.htm">http://gregmaxey.mvps.or= g/word_tips.htm</A><BR>For=20 some helpful tips using Word.<BR></DIV></BODY></HTML> ------=_NextPart_000_001E_01C6FA6C.BFEC8A80-- Tag: Posting from word to exchange ? Tag: 93123
  - 16
    - Catalog Merge Document? We have written a small program to perform merges between a database and Microsoft Word merge documents that our customers create. Recently, one of our customers was trying to perform a merge, but it kept failing. I traced the problem to the type of Word document. Apparently, you cannot merge a catalog merge document directly to a printer. It must be merged to a new document. My question is, what exactly is a catalog merge document? I could discern no difference between it and a regular merge document. Is there a way to make a catalog merge document not be a catalog merge document? Thanks for your help. -Vincent Tag: Posting from word to exchange ? Tag: 93112
  - 17
    - VBA Word: How to customize a right click menu bar(shortcut menu)? I am new in VBA word. In MS word, I want to customize right click menu bar(shortcut menu bar) on a Hyperlink. I want to change the menu bar(adding new menu item or delete menu item) dynamically based on different text of a hyperlink. How do I do it? For example, the right click menu bar on a hyperlink with text "a" is different than the right click menu bar on a hyperlink with text "b". I already know how to add or delete menu item from the right click menu bar on a hyperlink. What about displaying it diffrently based on different text? Can anyone help? Thanks. Tag: Posting from word to exchange ? Tag: 93105
  - 18
    - Create Mailmerge Envelope with VBA I am baffled as to how to create a envelope mailmerge document automatically (without user interaction) using VBA. I have recorded how word does it and the recorded macro apparently takes a "behind the scenes" step in the creation of an autotext entry that it subsequently uses when creating the mergedocument. Each time I record the process, Word creates a new autotext entry and then uses that entry as the parameter for the .Envelope.Insert AutoText:= command: Activedocument.Envelope.Insert ExtractAddress:=False, OmitReturnAddress:= _ False, PrintBarCode:=False, PrintFIMA:=False, Height:=InchesToPoints(4.13 _ ), Width:=InchesToPoints(9.5), Address:="", AutoText:= "ToolsCreateEnvelope2" In this example, an unrecorded command created the autotext entry ToolsCreateEnvelope2. When I examine the autotext entry ToolsCreateEnvelope2, I find that it contains the mergefields that I added via the set up envelope command when I recorded the above command in Word. Because I am calling this VBA routine from Access and want the system to automatically create the merge envelope document without user intervention, I have to somehow figure out how to do this automatically. As I see it my options are: - Somehow programmatically create an autotext entries containing my mergefields. or - Somehow enter a string for the Autotext entry that includes the mergefields I want to show in the address box or - Programmatically select the address text box and then insert mergefield using the standard ActiveDocument.Mergefield.Add command. I don't have any idea how to do any of these. Any one have any experience with this problem? Tag: Posting from word to exchange ? Tag: 93103
  - 19
    - check if specific picture exist in footer i need to check if specific picture by pic name or something else is exist in the first page footer or in the primary footer. i need to check it with VBA code from macro in word thanks Tag: Posting from word to exchange ? Tag: 93102
  - 20
    - I no longer have the cd for xp and word won't do certain function I have windows xp but, I no longer have the cd and I am not able to use certain functions on microsoft word and other programs ( such as in microsoft word I can't use the dictionary or look up a word. Please help. ~Thanks~ Tag: Posting from word to exchange ? Tag: 93098
  - 21
    - Error 462: Server not available Hi, I execute a program from Excel that copy excel table into Word and format the table thereafter. Sometimes (about 1 time on 3), the program stop at the following line: .LeftIndent = CentimetersToPoints(0) (see program below) The error message is: "Error 462": Server not available After having an error, I can restart the macro and all works. I really don't know what is the problem. It seems to come with: With appWord.Selection.ParagraphFormat The Word reference is open inside Excel (10.0) and there's no missing error. Thanks a lot! Alex Dim appWord As Word.Application Dim docWord2 As Word.Document Dim oExcel As Object 'Excel.Application Dim owb As Object 'Excel.Workbook Dim oXlRng As Object 'Excel.Range Dim tbl As Word.table On Error Resume Next Set appWord = GetObject(, "Word.Application") If appWord Is Nothing Then Set appWord = CreateObject("Word.Application") End If On Error GoTo 0 Set owb = oExcel.ActiveWorkBook Set docWord2 = appWord.Documents.Add Set oXlRng = owb.Sheets("abc").Range("TableOutput") oXlRng.Copy appWord.Selection.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=False Set tbl = docWord2.Tables(1) docWord2.Bookmarks(1).Delete tbl.Select appWord.Activate With appWord.Selection.ParagraphFormat .LeftIndent = CentimetersToPoints(0) 'Error here .RightIndent = CentimetersToPoints(0) .SpaceBefore = 2 .SpaceBeforeAuto = False .SpaceAfter = 2 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle End With -- Alex St-Pierre Tag: Posting from word to exchange ? Tag: 93097
  - 22
    - Bookmarks and references to bookmark in a table HI, I have the following requirement. Would it be possible to do in a macro code? 1. I have 2 tables. Each has 3 rows and 2 columns. 2. From table2-row1, I would like to reference table1-row3. This includes creation of bookmark in table1-row3 and reference the same from table-2-row1 3. By executing above step - In table-2-row-1 (reference) I would like to have a proper text that mentions "At row - 3 of table-1....."(bookmark location) 4. If I insert an additional row in table-1 before the bookmark row(row-3), I would like the reference in table-2-row1 to mention "At row - 4 of table-1....." automatically. Need your assitance in getting the macro code for step-2, 3 and 4. Thanks in advance, Seekar. Tag: Posting from word to exchange ? Tag: 93096
  - 23
    - error 5941 debugging help needed. I have set up a macro to insert filename and path in the footer of a document as follows. For some reason this code stops at the line of code midway down where it is actually putting the info in the footer. All you see in the document is "IF 1 = 1" on some workstation but not others. All workstations are using the same image of Office installed some time ago. Does anyone have any ideas what would cause this to happen?????? ' RefTag Macro ' Macro recorded 10/7/2005 by ' If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader If Selection.HeaderFooter.IsHeader = True Then ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Else ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader End If Selection.Font.Size = "10" Selection.TypeText Text:="IF " Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage Selection.TypeText Text:=" = " Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldNumPages Selection.TypeText Text:=" " ActiveDocument.AttachedTemplate.AutoTextEntries("Filename and path"). _ Insert Where:=Selection.Range, RichText:=True Selection.HomeKey Unit:=wdLine, Extend:=wdExtend Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.EndKey Unit:=wdLine Selection.Fields.Update Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.Fields.Update ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub Tag: Posting from word to exchange ? Tag: 93095
  - 24
    - insufficient memory - ActiveDocument.Fields.Update We have a macro that updates all the fields in a document using the following: ActiveDocument.Fields.Update On larger documents we are getting the insufficient memory error. Is there anyway around this? Tag: Posting from word to exchange ? Tag: 93090
  - 25
    - Macro's in MS Word leading into Outlook I have a table set up in MS Word. I have a column that the answer is either Y or N. What im looking to do is, when a user enters a Y, this automatically opens an email from outlook. Depending on how complicated it is to do, the email can either be blank, and just be used as a prompt containing the title 'New CBP SITE ISSUE', or open containing the email adresses of Project leads on the team and including the title above. I am currently working on MS Word 2000 9.0.3821 SR-1 and MS Outlook 2000 SR-1 9.0.03821 Is this something anybody can help me with. TIA Dani Tag: Posting from word to exchange ? Tag: 93087
- Next
  - 1
    - Action on New Page Is it possible to automatically invoke a macro when a New Page is created in a Word Document, either by reaching the end of a page, or by inserting a page break? I'm thinking in a similar way to AutoNew or AutoOpen... Word 2000 solution needed if there is one Tag: Posting from word to exchange ? Tag: 93086
  - 2
    - Dutch Math I need to write program code for 'international' applications. I have set my Region settings to Dutch(Netherlands). In Dutch (and other major languages), commas represent the decimal point and periods represent the thousands separators. I wrote this simple formula: Dim mynumber As Single Dim mynumber2 As Single Dim mynumber3 As Single Dim mynumber4 As Single mynumber = 1,50 mynumber2= 5 mynumber3=mynumber + mynumber2 mynumber4=mynumber3 + 1.5 I get a 'Compile Error, Expected End of Statment' message with the row "mynumber = 1,5" highlighted. What am I doing wrong? How can I overcome this? Unfortunately, it seems not to be simple matter of putting a period in place of the comma, for when I actually try to run a calculation using decimals as, the results come out in commas. Chaining calculations becomes more than very confusing (at least to me), because of the fact that the answer returned after the first calculation is expressed in Dutch (e.g., 1,5), but the next entry must be entered in 'American'. And if the initial values are picked up as string variables from an input box, it becomes even more confusing. Are there resources to help explain this? Tag: Posting from word to exchange ? Tag: 93075
  - 3
    - AutoNew and Private I am trying to get my head around Private declarations and AutoNew/AutoOpen options. I have the following code that works: Option Explicit Dim cb As CommandBarComboBox Sub AutoNew() SetComboBox End Sub Private Sub SetComboBox Set cb = CommandBars("Test").Controls.Add(msoControlComboBox) with cb .OnAction = "SetColour" .AddItem "Green" ' Other setup stuff that works.... End With End Sub Private Sub SetColour Select Case cb.Text Case "Green" 'Run another Macro that doesn't matter here EndSub If however I declare AutoNew as Private so that it is hidden from the Macro list then the above breaks at the Select Case Statement. Where am I going wrong? Tag: Posting from word to exchange ? Tag: 93072
  - 4
    - Error when trying to copy Excel Chart into Word Doc -Method 'Activ Office2003 SP2 I am getting this error when I use the code below. -2147417851 Method 'Activate' of object 'ChartObject' failed The code is intended to copy a chart from sheet1 of the XL workbook to a bookmark in the current Word doc. You will see that I have tried some diagnostic code and I get the correct answers to those commands. Can anyone suggest any way of resolving this? Pete Sub InsertXLChart() Dim xlapp As Excel.Workbook Dim chrt As Excel.ChartObject On Error GoTo errhandle Set xlapp = GetObject("c:\testbk.xls") ' debug code (shows correct info) ' MsgBox xlapp.ActiveSheet.Name 'For Each chrt In xlapp.ActiveSheet.ChartObjects ' Debug.Print chrt.Name ' Next chrt ' Activate the first chart in the workbook. (tried Both methods) xlapp.ActiveSheet.ChartObjects("Chart 1").Activate '************error here********* ' xlapp.ActiveSheet.ChartObjects(1).Activate ' Select the chart. xlapp.ActiveChart.ChartArea.Select ' Copy the chart. xlapp.ActiveChart.ChartArea.Copy ' go to the position in Word doc Selection.GoTo What:=wdGoToBookmark, Name:="Rng2" ' The wdPasteOLEObject constant will insert the chart as an ' embedded object, and the wdInLine constant will insert the ' chart on the text layer and not the drawing layer. Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, Placement:=wdInLine exitsub: ' Close the instance of Excel. xlapp.Close Set xlapp = Nothing Exit Sub errhandle: Debug.Print Err.Number Debug.Print Err.Description Resume exitsub End Sub -- Tag: Posting from word to exchange ? Tag: 93067
  - 5
    - Mail Merge problem with Headers I have a odd problem using Word 2002 VBA I have a mailmerge document set up as a Directory with merge fields in both the header and main body of the document When I automate the mailmerge process the merge works fine with the exception of the Header records which still have the merge field names displayed However when I use the mailmerge wizzard and manually do the merge the Header has the correct data merged I duly recorded a macro to see if I was missing a parameter and when I re - run the recorded macro the Headers do not merge Can anybody shed any light on this behaviour Any info very very gratefully recieved Tag: Posting from word to exchange ? Tag: 93065
  - 6
    - Userforms - working with decimal places I would like to be able to enter an amount into a textbox within a userform and have the amount fill from the right hand side. (This much I can do using the Align Property). However, as the numbers are typed I would like to see the decimal point to be placed 2 decimal places within the number, ie if I enter 123456 I would like to see: As soon as the 12 is typed â?? see .12 As soon as the next digit is typed, the 3 â?? see 1.23 As soon as the next digit is typed, the 4 â?? see 12.34 If I then deletes the last number, the 4 â?? see 1.23 So if I type 123456 â?? see 1234.56 So a value of $2000.00 would be typed as 200000 and the decimal point is not typed but appears correctly. Is this possible? Many Thanks, Angie. Tag: Posting from word to exchange ? Tag: 93063
  - 7
    - Another Word <-> IE problem Hi everyone I use the following code to create new document On Error Resume Next Set oWord = GetObject(, "Word.Application") If Err.Number <> 0 Then '*** It's not loaded - create a new instance. Set oWord = CreateObject("Word.Application") End If oWord.Visible=true If oWord.PrintPreview = True Then oWord.ActiveDocument.ClosePrintPreview End If oWord.Documents.Add It works but when any word document is embedded into IE the last Add method fails. What can I do? Thanks in advance. Tag: Posting from word to exchange ? Tag: 93058
  - 8
    - Identifying and calling Application Data folder Withe a Word macro, how do I identify and call the C:\Documents and Settings\UserName\Local Settings\Application Data folder? I want to write a macro in Word that merges form file: C:\Documents and Settings\USERNAME\Local Settings\Application Data\mergeform.doc with it's data source: C:\Documents and Settings\USERNAME\Local Settings\Application Data\data.txt. Thank you in advance, KW Tag: Posting from word to exchange ? Tag: 93054
  - 9
    - prompt for "saveAs" I need to create a macro which prompts for "SaveAs" example: open a letterhead go to the address line and the prompt for "SaveAs'" because I want to save the letterhead with another name. Karin Tag: Posting from word to exchange ? Tag: 93037
  - 10
    - There is not enough memory or disk space to run Word There is not enough memory or disk space to run Word Tag: Posting from word to exchange ? Tag: 93036
  - 11
    - Removing unwanted macro code by savinng as .RTF affects the document styles? Based on some good advice in a different thread, I saved a Word document as .RTF in order to remove unwanted macro code. While this worked, when the document was opened, it had a different set of styles defined for it than the original document. I am quite keen to stick with the original set of styles as I use them heavily, but my current customers are disconcerted by the Macro security message that is being activated due to the presence of the macro code. I should add that the document is based on a template where all the styles are defined and uses a macro in the creation stages to display a form for the user to set some document properties. Thanks in advance. Tag: Posting from word to exchange ? Tag: 93030
  - 12
    - Set up a function in a MS word letter to add days to system date? I am trying to set up a function in a MS Word mail merge letter that adds 14 days to the system date (e.g to tell the addressee when to respond by). I have tried the "DateAdd" function and it doesn't seem to work as well as taking the system date and trying to add 14 to it. Help! Tag: Posting from word to exchange ? Tag: 93026
  - 13
    - Problem formfields in table Hello, I'm working with a form that is made up of several tables. The table has several formfields. The user goes thru them and is prompted to add another item. The macro adds a new row and creates new formfields. See code below: The problem that I'm having is when I go to type in the first newly created formfield. Word is not accepting the first character. What am I doing wrong? I've played around with different ways of selecting the cell and am at a loss. Thanks. jbc Sub AddNew1() Dim ff As FormField Dim intResponse As Integer intResponse = MsgBox("Add Another Option?", vbYesNo, "Please Make a Selection") If intResponse = vbYes Then ActiveDocument.Unprotect 'Remove Exit Macro From Last Cell in Row Selection.GoTo what:=wdGoToBookmark, Name:="LastFormField1" With Selection.FormFields(1) .ExitMacro = "" End With Selection.Tables(1).Rows.Add Selection.MoveRight Unit:=wdCell, Count:=4 'Document Number Set ff = ActiveDocument.FormFields.Add _ (Range:=Selection.Range, Type:=wdFieldFormTextInput) With ff .Name = "TypeHere1" .OwnStatus = True .StatusText = "Type Document Number" End With Selection.MoveRight Unit:=wdCell Set ff = ActiveDocument.FormFields.Add _ (Range:=Selection.Range, Type:=wdFieldFormTextInput) With ff .OwnStatus = True .StatusText = "Type Code" End With Selection.MoveRight Unit:=wdCell Set ff = ActiveDocument.FormFields.Add _ (Range:=Selection.Range, Type:=wdFieldFormTextInput) With ff .OwnStatus = True .StatusText = "Type Name" End With Selection.MoveRight Unit:=wdCell Set ff = ActiveDocument.FormFields.Add _ (Range:=Selection.Range, Type:=wdFieldFormTextInput) With ff .OwnStatus = True .StatusText = _ "Type Date, If No Date, Type 'Issued' Date, xx/xx/xx" .TextInput.EditType Type:=wdDateText, Format:="MM-dd-YYYY" End With Selection.MoveRight Unit:=wdCell Set ff = ActiveDocument.FormFields.Add _ (Range:=Selection.Range, Type:=wdFieldFormTextInput) With ff .Name = "LastFormField1" .ExitMacro = "AddNew1" .OwnStatus = True .StatusText = "Type Requested Information" End With ActiveDocument.Bookmarks("TypeHere1").Range.Fields(1).Result.Select ActiveDocument.Protect wdAllowOnlyFormFields, noReset:=True End If Tag: Posting from word to exchange ? Tag: 93024
  - 14
    - VB 2005 question - BindingSource object VB Gerus, I am new to VB 2005 and am receiving the "Update requires a valid UpdateCommand when passed DataRow collection with modified rows." message tied to the TableAdapter line when trying to save data modified in a DataGridView. MyEray is the table name. What obvious thing am I missing? Thanks. Charlie from Texas Private Sub SaveToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripButton.Click ' Save data routine Me.Validate() Me.MyErayBindingSource.EndEdit() Me.MyErayTableAdapter.Update(Me.EAdataDataSet1.MyEray) End Sub Tag: Posting from word to exchange ? Tag: 93022
  - 15
    - Hyperlinks on userforms??? Hello, I want to add an internet address to a userform that the user can simply click on and it will launch the site. Normally I would do this with a hyperlink but I haven't figured out how to do it in VBA. Is there a hyperlink control or a special way of formatting a text string in a label to create an active link? FYI, my client is using Word 2000. Much appreciated if someone can point me in the right direction. Tag: Posting from word to exchange ? Tag: 93020
  - 16
    - How to change the size of a text box on a page I am writing a macro to change the size of a textbox that already exists on a page to match the top and bottom margins on that page. I could not find a specific example from the posts. Any help would be appreciated. Regards, Bob Tag: Posting from word to exchange ? Tag: 93014
  - 17
    - Help Needed Speeding Up Code Hi, Everyone. I've got the following code: Sub Datamerge() Dim rDcm As Range Dim r As Long ' row Dim c As Long ' column Dim pipe Dim oMainDoc As Object ========== Set oMainDoc = CreateObject("Word.Document") fd = Dialogs(wdDialogFileOpen).Show Word.Application.ScreenUpdating = False Selection.Homekey Unit:=wdStory Selection.Tables(1).Select Selection.Tables(1).Delete Selection.SelectColumn Selection.Cut Selection.Find.Text = "Drug" 'Selection.Find.Font.Bold = True Selection.Find.Execute If Selection.Find.Found = False Then MsgBox ("Database Column Not Found! Aborting...") End Quit End If Selection.Homekey Selection.Paste DisplayAlerts = wdAlertsNone r = 1 Set rDcm = ActiveDocument.Tables(1).Range With rDcm.Find .Text = "Database" ' must be found in a table ' otherwise things will get out of control .Execute ' now rDcm isn't the active document any more ' but the result of find.execute c = rDcm.Cells(1).ColumnIndex End With rDcm.InsertAfter "/" ' beware, this will add a slash in every test run With rDcm.Tables(1) .Cell(r, c).Merge mergeto:=.Cell(r, c + 2) For r = 2 To .Rows.count ActiveDocument.UndoClear '.Cell(r, c).Range.Font.Bold = True .Cell(r, c).Merge mergeto:=.Cell(r, c + 2) '.Cell(r, c).Select ActiveDocument.Range.ParagraphFormat.Alignment = wdAlignParagraphLeft Next End With Selection.Homekey Unit:=wdStory Set rDcm = ActiveDocument.Tables(1).Range With rDcm.Find For numb = 0 To rDcm.Rows.count .Text = numb .Font.Bold = True .Replacement.Text = "" .Execute Replace:=wdReplaceAll .Text = " ^l" .Replacement.Text = "" .Execute Replace:=wdReplaceAll Next End With Selection.Homekey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Font.Bold = True With Selection.Find .Text = "Database" .Forward = True End With Selection.Find.Execute Selection.SelectColumn Selection.Cut Selection.Find.ClearFormatting Selection.Find.Font.Bold = True With Selection.Find .Text = "Indications" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Selection.MoveRight Unit:=wdCharacter, count:=2 Selection.Paste MsgBox ("All Done!!") Selection.Homekey Unit:=wdStory End Sub ============ Basically what it does is merge 3 columns together, move another column around, and delete some superflous numbering of the rows. My problem is that on tables > 800 rows, it runs very slowly and takes up 100% of the CPU resources, according to Task Manager. This occurs even if I set the window to invisible. Can anyone give me some tips for speeding this puppy up? Thanks!! Brian Tag: Posting from word to exchange ? Tag: 93007
  - 18
    - Toolbar Combobox initialization I have a template which contains a number of Macros Simply speaking I have one Macro that creates and populates a Combobox on a CommandBar. Selecting an item from the Combobox in turn runs other Macros. This all works apart from one thing. At the moment I have to Manually run the initial "SetComboList" macro in order to create the Combobox. I cannot figure out how to get the combobox to generate when the template is opened (I only want the drop list to appear for this one template) Any pointers? Tag: Posting from word to exchange ? Tag: 93006
  - 19
    - Save a Word doc with SaveFileDialog Hello I have a word document formed from tables that do not have to be subdivided in 2 pages: in fact during their creation I have inserted a command which if the table is subdivided is moved in the successive page. Now I would save my document and I use a SaveFileDialog. But I have three problems 1) When I press Save the dialog is reopened and the document isnâ??t saved until I have not pressed Save the second time 2) I have set up as filter the extension .doc but the document is saved as â??Model of documentâ?? and I instead would that it was saved like document 3) serious ; when I open the saved document I find a table that it is divided in two pages!!! It seems that it has reorganized the document! why I cannot save it as I have created it? This is the code that I have used: â??Save_test is the SaveFileDialog â??Wordoc is my document Wordoc.Protect(WdProtectionType.wdAllowOnlyReading, , "psycodec") Wordapp.Visible = True Save_test.FileName = List_test1.Text Save_test.DefaultExt = "|*.doc" Save_test.ShowHelp = False Save_test.InitialDirectory = "Risorse del computer" Save_test.RestoreDirectory = True Save_test.Filter = "Documento Word(*.doc)|*.doc" Save_test.ShowDialog() If Save_test.FileName <> "" And Save_test.ShowDialog() = System.Windows.Forms.DialogResult.OK Then Wordoc.SaveAs(Save_test.FileName, Save_test.FilterIndex) Wordoc.Close() Wordapp.Quit() End If I hope that you have understand my problem Thank you Tag: Posting from word to exchange ? Tag: 93002
  - 20
    - Find.Text found but Replacement not exectuted. I type the word "One" in a document, select it and bookmark it as "BM" I run this code: Sub Scratchmacro() Dim oRng As Word.Range Set oRng = ActiveDocument.Bookmarks("BM").Range With oRng.Find .Text = "One" .Replacement.Text = "Two" .Execute Replace:=wdReplaceOne If .Found Then oRng.Select MsgBox "Item found" End If End With End Sub The oRng is selected, the message displays, but the replacement does not occur. If I add a space before or after the word "One" and include it in the bookmarked range then the replacement does occur. Can anyone explain why the replacement does not occur if the found text includes the entire bookmarked range? Thanks Tag: Posting from word to exchange ? Tag: 93001
  - 21
    - Stripping Hard Returns I have tried to do this with Pattern Matching to no avail I am working on a job which entails reformatting some horribly formatted docs I spent lots of time stripping out the hard returns manually Everyone who worked on this mess didn't know about Paragraph formatting and just kept pressing "return" which drives me crazy Any suggestions would be appreciated BTW, this is Word 2003 and I still cannot write code (I have tried!) Tag: Posting from word to exchange ? Tag: 92994
  - 22
    - Calculating the height (in mm) of a text line in Microsoft Word I'm making a program, in VB.NET, that creates and fills a table in a Microsoft Word document. Therefore I need a method to calculate the exact height, in millimeters, of a text line written with a certain font, at a certain size. Searching the Internet I've found this: Private Function GetFontHeight(ByVal FontName As String, _ ByVal FontSize As Single) As Single Dim myGraphics As Graphics = Me.CreateGraphics() Dim myFont As Font = New Font(FontName, FontSize) myGraphics.PageUnit = GraphicsUnit.Millimeter Return myGraphics.MeasureString("Ag", myFont).Height * 0.9 ' <<< STRANGE!!! End Function The result was so imprecise that I had to add that 0.9 coefficient (I calculated it with several attempts by approximation). But the result is imprecise. There seems to be a discrepancy between the height of a line in the Graphics object, and the height of that same line in Microsoft Word. That discrepancy is about 10%. Strange, isn't it? Tag: Posting from word to exchange ? Tag: 92990
  - 23
    - FORMAT INFORMATION IN LINE WITH AN ORGANISED HOUSE STYLE i've been asked to organise doc. in house style, what do they meen Tag: Posting from word to exchange ? Tag: 92984
  - 24
    - including image in excel Welcome. I have a excel document with 5 sheets. In first sheet i chose number in 1 to 8 and when i chose 1 i would like in 4 sheet insert image 1.jpg in cell A4, when chose 2 insert 2.jpg in cell A4 etc. Sorry, my english is not good. Please help me. Tag: Posting from word to exchange ? Tag: 92983
  - 25
    - Add Macro to Normal.dot when user log in Hi All, I made a .doc file that can add a costumize toolbar when user opens the file. And those toolbar, forms, modules will also be saved in user's Normal.dot. I am now trying to add this tool bar and Macro to all users in a domain. Insert of replacing users' normal.dot, is there any better idea? Thanks! gnowcwc Tag: Posting from word to exchange ? Tag: 92974

Is it possible to post automaticly a word document to a exchange public
folder with VBA. ?
NB : with Activedocument.post I've a prompt dialog box to specify the folder.
Thanks ( code please )

Top