Saving to an FTP site?

Tutorials Win: Microsoft Windows Forum

- Previous
 - 1
 - INCLUDETEXT, updating fields within the included text Here is what I have: 1. document(1) has an INCLUDETEXT that drags in document(2) 2. document(2) has a bookmark 3. the bookmark of document(2) is filled with a number from an Excel spreadsheet. When you directly open document (2), Document_Open event goes out and gets the latest number from the spreadsheet and puts it in the bookmark But here's the problem: The bookmark field is NOT updated when document(2) is "opened" by being dragged into the INCLUDETEXT of document(1). I conclude from this that double-click opening a document is not quite the same as "opening" it with an INCLUDETEXT. Is there a VBA way to "tell" document(2) it is supposed to update itself when it is an INCLUDETEXT? Thank you for any assistance. Tag: Saving to an FTP site? Tag: 42260
 - 2
 - "This is not allowed in this context" - xml markup in 03 I have attached well-formed and valid schema to my document and am able to tag most of my text successfully. Why does some of the text that I tag result in an error "This is not allowed in this context". What do I need to do to fix this? Tag: Saving to an FTP site? Tag: 42258
 - 3
 - Deleting the Last Section I'm trying to provide writers with a macro for deleting the last (portrait) section of a document (in situations where they decide that they want to end the document with a landscape section). My users are not very good with page formatting, so I'm trying to make it as easy as possible. I've started with a recorded macro that goes into the header/footer of the last section, makes them same as previous, reformats the page to landscape layout, and then deletes the final section and the previous section break. The recorded macro is not toggling properly between the header and footer, and is not working too well... I'm wondering if anyone has recommendations for reworking the code. Here's what I've got so far. I've manually modified the code in the section marked (*), which is completely incorrect: ======================================================== Sub DeleteLast() ' ' DeleteLast Macro ' Macro recorded 18.11.2003 by scott.adams ' 'Go to last page and set view Selection.EndKey Unit:=wdStory 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 '(*)Reset headers and footers to same as previous With Section.Headers HeaderFooter.LinkToPrevious = True End With With Section.Footer HeaderFooter.LinkToPrevious = True 'Return to main document and set last section to landscape ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument Application.Browser.Target = wdBrowseSection Application.Browser.Next With Selection.PageSetup .Orientation = wdOrientLandscape End With 'Delete the last section With ActiveDocument.Sections.Last.Range .Delete End With 'Remove the previous section break Selection.TypeBackspace Selection.Delete Unit:=wdCharacter, Count:=1 'Reset browse by object and return to top Application.Browser.Target = wdBrowsePage Selection.HomeKey Unit:=wdStory End Sub ======================================================== Tag: Saving to an FTP site? Tag: 42256
 - 4
 - edit existing autotext entries Using Word XP VBA or VB, how can I programmatically edit an existing autotext entry in Normal.dot? i.e we have an entry called Dublin which has our Dublin office details. Our office details have now changed, so we want to change the autotext entry in normal.dot to reflect the new details. The only results I keep on finding all deal with Selection.Range which we won't have in this case. Additionally, is there any way to manipulate/set the range.text value? Much appreciated, Allan Tag: Saving to an FTP site? Tag: 42255
 - 5
 - How to copy formfield without onexit macro Is there a way to copy a formfield without copying the onexit macro. Currently when I copy the formfield and paste it somewhere else using VBA it copies the text, which is what I want, but it also copies the onexit macro, which I don't want. Anybody know how to do this? Thx. Tag: Saving to an FTP site? Tag: 42254
 - 6
 - VBA References Hi Group I've just tried to install a set of custom VBA-driven Word document templates onto another users machine and came across a problem. I have Word 97, and my user forms and modules reference Microsoft DAO 3.51 Object Library and Microsoft ActiveX Data Objects 2.5 Library. On the previously untested PC these were not available, and attempting to run my templates came up with a user-form error in hidden module. So obviously Word doesn't auto-reference these for me. Is there a way of making my VBA script do this in an AutoExec so that the error will not occur? Is there another way around this problem? Any help would be much appreciated. Best wishes Peter Kessler Kessler Associates E: ka@kessler-web.co.uk W: www.kessler-web.co.uk Tag: Saving to an FTP site? Tag: 42251
 - 7
 - Select a page Hello again. FYI - I am automating Word from Excel. I have the following function that is supposed to select a specific page in a document, it works well, unless the target page is the LAST page in the document: Dim wrdApp As Word.Application Set wrdApp = GetObject(, "Word.Application") wrdApp.Documents(argFileName).Activate With wrdApp.Selection .ExtendMode = False .GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=argPageNumber .ExtendMode = True .GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1 ', Name:="" .ExtendMode = False End With Can someone tell me what is wrong or how I can always concisely select an entire page no matter where it is in the document? Your example code is most appreciated. Thanks much in advance. Tag: Saving to an FTP site? Tag: 42245
 - 8
 - Reference to Word Hello. I hope someone can help me. I am actually working on a project to automate Word from Excel. I can start a new instance of Word, open files, etc., but: 1. After the Word App is instantiated, my code does some processing. Then it switches to Excel. Later, in a new procedure, how do I re-establish a reference to Word again (i.e. if the App is already running)? 2. If there is more than one instance running, how can I determine in VBA which instance is the one my program started and which is an instance the user started/already had open? Please note that my program will always start a new instance of Word and work with that instance. Your example code is what I need the most. Thank you very much for your assistance. Tag: Saving to an FTP site? Tag: 42239
 - 9
 - Code to Insert GIF files into a word document... I have written some code to insert two gif files into a word document. The code seems to work fine during the first execution, but as soon as it runs again for the second time i get error 462: remote server does not exist or can't be found. It happens on the first AddPicture statement...anyone have any ideas...thanks in advance. here is the code: ' create the file path for the first GIF file lsGIFImage = mid(psSourceFilePath, 1, Len (psSourceFilePath) - 4) & ".gif" Set lrWord = New Word.Application lrWord.DisplayAlerts = wdAlertsNone ' create a new document from a template Set lrDoc = lrWord.Documents.Add("ROMSWordTemplate1") If lrDoc Is Nothing Then lrWord.Quit wdDoNotSaveChanges Set lrWord = Nothing CreateOutputReport = False Exit Function End If ' insert the GIF's (this is where i get the error the second time to code runs. it works the first time thru! Set lrShape = lrDoc.Shapes.AddPicture(lsGIFImage, False, True, InchesToPoints(1.5), 1, InchesToPoints(6), InchesToPoints(3.5)) lrDoc.Shapes.AddPicture mid(lsGIFImage, 1, Len (lsGIFImage) - 4) & "-b.gif", False, True, 1, lrShape.Height + 10 Set lrShape = Nothing ' save the new document with this file name... lrDoc.SaveAs mid(psSourceFilePath, 1, Len (psSourceFilePath) - 4) & ".doc" ' exit and clean up Set lrDoc = Nothing lrWord.Quit wdDoNotSaveChanges Set lrWord = Nothing Tag: Saving to an FTP site? Tag: 42237
 - 10
 - Word macro and Amipro At work I use Word macros to tidy up specific documents, however my staff only have access to Amipro3.1. How can I convert my Word Macro into an Amipro macro so my staff get the same benefits I do. I have a Word to Amipro converter, but I don't think this will convert the Macro script Cheers In advanc Jo Tag: Saving to an FTP site? Tag: 42229
 - 11
 - Comparing Documents Hi, I have written code to run through every story range and pull out the revisions. This, unfortunately does not catch changes to section headers within a storyrange (e.g. the main story). The compare documents function provided by word can find them but if i search through every revision for every story range i can't. Any ideas? Cheers, Steven Tag: Saving to an FTP site? Tag: 42227
 - 12
 - UserForm is not visible Hi there. I have a template with the userform frmMain. On this frmMain I have several buttons that creates and opens new documents based on different templates. When I have created a new document, filled it with the desired text and saved it, I close it. But when this document is closed, my frmMain is NOT visible. Only the template containing my frmMain is showing, but the frmMain is not visible. The reason is probably that I have the code frmMain.Hide in the code that fills out my new document with text. But this was neccesary, or else the frmMain was placed in front of my newly created document. I had to close the frmMain to get to my newly created document so I could edit it some and then save/close it. I don't want to close my frmMain until I'm all finished with all my new documents. The frmMain contains a lot of textboxes the the user fills out and all this text goes into some bookmarks on the different documents. So I have to have access to my frmMain after closing my newly created documents. I have figured out that VBA doesn't support the use of modal and modeless on the forms. Is there any other way to switch focus between documents/userforms?? Hope this makes any sense. Gunnar Tag: Saving to an FTP site? Tag: 42223
 - 13
 - More than 3 dimensions in an array? Hi Folks I've heard this can be done but it's quite difficult. Can anyone give an example as to how this works? I'm looking to understand 4 or 5 dimensions (not necesarily to use in code) mainly to get the concept. Any pointers appreciated John Tag: Saving to an FTP site? Tag: 42216
 - 14
 - Finding loop conditiion Im trying to make condition for macro that is searching for special word through the document. Im not able to make macro stop searching procedure (it loops as many times as word is found) and when it reaches the end, it start from the begining. I want to make stop find procedure when it reaches the end of document. Help is appreciated. Thanks. Sasa Tag: Saving to an FTP site? Tag: 42215
 - 15
 - Java API for MS Word Is there Java API for MS Word. If not, is there any dll specification that I can build JNI for. Tag: Saving to an FTP site? Tag: 42211
 - 16
 - autoclose/autosave?? I have some code set for closing out of a word doc. The code itself works fine, but I would like to use it on either the save/save as or close events. Currently I have it set up under an "autoclose" module. It works fine if the user is closing the doc (obviously)... however, most users will likely try using the "save" menu option. Here is what I currently have: Sub autoclose() 'defines variable for filename Dim strFileNM As String strFileNM = ActiveDocument.Variables("SOPName").Value 'changes directory default to SOP folder ChangeFileOpenDirectory _ "C:\Documents and Settings\Owner\My Documents\SOPs\" 'sets filename to value in "SOPName" bookmark & saves as word doc 'ActiveDocument.SaveAs FileName:=strFileNM, fileformat:=wdWordDocument With Dialogs(wdDialogFileSummaryInfo) .Title = strFileNM .Execute End With End Sub Thanks! Tag: Saving to an FTP site? Tag: 42206
 - 17
 - RichTextbox dead in Word2003 I have a UserForm in Word VBA that is using a RichTextBox. When we try to deploy this in Word2003, we find that the control is missing. If we try to insert one, we get the message "The subject is not trusted for the specified action." OK - what has Microsoft wrought now, and how do we get a RichtextBox to show up in Word2003? Tag: Saving to an FTP site? Tag: 42204
 - 18
 - Section number Please help if possible. Can someone supply me with VBA code that will tell me what document section my blinking cursor is currently in? Thanks in advance. Tag: Saving to an FTP site? Tag: 42194
 - 19
 - Printing on smaller paper I have been trying to print some party invitations on paper that is 5 1/2" x 8 1/2". I load the paper tray as instructed with the paper to the right side of the tray. Then I change the print preferences to 5 x 8 which is the closest size of my paper. But it still prints as though I'm printing on 8 1/2 x 11. I spent 30 minutes on the phone to the printer manufacturer, and we tried everything there was to try. They say its not the printer. Any ideas? Tag: Saving to an FTP site? Tag: 42190
 - 20
 - Programmatically create PostScript files Hello, please help me if you can. Does anyone have example code on how to convert Word files to Acrobat Post Script files using Word XP with Windows 2000 and Adobe Acrobat 6.0? Your example code would be most appreciated. Thanks in advance. Tag: Saving to an FTP site? Tag: 42186
 - 21
 - using templates I am stuck on how to get my template to "run." I have fill in fields, etc in a 1 p template and I don't know how to make the system ask the user for input. In Word Perfect, I used merge to a form document and I imagine it is similar here, but I can't figure it out.... help, please. Tag: Saving to an FTP site? Tag: 42164
 - 22
 - Word 2000: Call a subroutine dynamically with VBA I would like to call a subroutine dynamically based on a string that I am building. I cannot seem to get the syntax to work. I have a listbox with over 100 items in it, and each item within the listbox calls it's own subroutine. With a simple string variable, I'd like to read the value selected from the listbox and call it's subroutine, which is the same name. Some very simple sample code is below: Old Code Method: Select Case Me.listItemList.Text Case "Sub1" Sub1_Proc Case "Sub2" Sub2_Proc Case "Sub3" Sub3_Proc Case "Sub4" Sub4_Proc etc...will continue up past 100 with the same logic End Select New Code: I would like to just reference the listbox and append "_Proc" to the end and then call that subroutine, something like below: Dim sProc as string sProc = Me.listItemList.Text & "_Proc" Call sProc Tag: Saving to an FTP site? Tag: 42152
 - 23
 - Copy a page as a picture Please help! Is there a way to copy the page header and footer along with the entire formatted contents of a page? My objective is to make an exact copy of the page the way it would look printed only copied to a new document as a picture. Your example code would be most appreciated. Thanks in advance. Tag: Saving to an FTP site? Tag: 42151
 - 24
 - Current Header and Footer Text Is there a way to find out what the text is in the header and footer for the page you are currently on? TIA - Jeffrey. Tag: Saving to an FTP site? Tag: 42148
 - 25
 - Run Module at Startup Is there a way to immediately get a VBA module to run as MS Word or Excel opens? Tag: Saving to an FTP site? Tag: 42147
- Next
 - 1
 - how to delete specific page breaks via vba I have 400 + large documents that were genereated automatically. They all have several extra page breaks at specific locations that are causing blank pages. I already have code that loops a list and opens each report in turn. I'd like to programmaticlly remove the specific page breaks. It would take quite awhile to regenerate the docuemnts, so I am hoping that programmatically modifying them will be faster. I'm pretty good with Access VBA and VB, but not so familiar with Word and its manipulation. I have a bookmark I can go to which is after the pagebreak. I want to step backwards to the 2nd preceeding page break and remove it. Any suggestions for doing this? Thus far I have: Selection.GoTo what:=wdGoToBookmark, Name:="SectionIV_TOC" Selection.GoToPrevious wdGoToPage Selection.GoToPrevious wdGoToPage 'this puts me on the page that has the pagebreak at the bottom that I want to remove How to select/move to the page break and delete it? Thanks, Tom Tag: Saving to an FTP site? Tag: 42146
 - 2
 - Combo_Box/List_Box Populating I have created a form which uses Drop-Down lists (Combo or list box) and am trying to find a way to populate the list with selections for the user. I know in VB you can uses Additem but the word document control does not seem to have the same functionality. Any help that can be provided would be greeatly appreciated. Tag: Saving to an FTP site? Tag: 42139
 - 3
 - Word 2000: Minimize/Maximize button on a Form I created a user form in Word 2000, and cannot find a property of the form such as "MinMax Buttons" (like in Access) to have the form display the Min/Max Button, rather than just having the "x" close button, which seems to be the default of a Word Form. How can I display these buttons? Tag: Saving to an FTP site? Tag: 42135
 - 4
 - Negative number replaced with parentheses Hi I have a selection of text mostly in a table, but some in free text, that I would like to replace all negative numbers (eg -99.24) with () so it would read (99.24). Can anyone help me please? I'll searched google and found nothing that helps me. Can it be done using the find/replace dialog? Or is it a VBA macro? I'd prefer macro! Thanks very much for your help Tag: Saving to an FTP site? Tag: 42134
 - 5
 - VBA replace paste command with Paste Special option Hello, I would be grateful for help with this problem. I would like a VBA macro to replace my default paste command with the Paste Special option to paste as Unformatted Unicode Text. I want this mascro, which I have recorded below, to globally replace all calls to regular paste in the way that, for example, the FileNew() command can be replaced. How do I do this? Thanks, Enda Sub PasteAsUnformattedUniCode() ' ' Macro1 Macro ' Macro recorded 01/12/2003 by Enda Ridge ' Selection.PasteSpecial Link:=False, DataType:=20, Placement:=wdInLine, _ DisplayAsIcon:=False End Sub Tag: Saving to an FTP site? Tag: 42129
 - 6
 - Selecting all text encompassed by a bookmark Does anyone know how to create a macro that would select all of the text that is contained in a bookmark (e.g., assume that I've bookmarked several paragraphs as "Harvey"). How could I get a macro to select all of the text bookmarked as "Harvey"? I'd be pleased to pay someone for the answer. Kindest regards, Marc Tag: Saving to an FTP site? Tag: 42122
 - 7
 - Help with "On Error" I thought I understood "On Error" but I'm thinking that I got it wrong. Can someone point me to a clear description of "On Error" and "Resume?" I may be confused: -------------- If I'm calling a single function and want to simply go to the next statement in case of an error, I can write: Private Sub MySub. On Error Resume Next 'some call like Open a file 'other code that will be executed regardless of errors End Sub ---------------- If i'm calling a bunch of potentially error-causing functions, I thought I could install an error handler and then simply drop out of my routine, like this: Private Sub MySub2 On Error Goto ErrHandler 'some system call 'some code 'another system call 'more code Exit Sub ErrHandler: MsgBox "Got an Error" Exit Sub But in reading Word 2003's help, it sounded like you have to have a Resume statement or the error handler will stay alive, which I don't want. Does exiting the subroutine terminate the error handler? If not, how do I terminate without resuming immediately after the offending call? Tag: Saving to an FTP site? Tag: 42121
 - 8
 - AutoOpen dilemma I have a developed a form that is downloaded each time a customer (many and varied) needs to use it from the Internet. The AutoOpen sub (code below)is located in the ThisDocument module and does various things when the form is first opened. Public Sub AutoOpen() On Error Resume Next ActiveWindow.View.ShowHiddenText = True ' shows the hidden text to the user. This text will not print 'Application.EnableCancelKey = wdCancelDisabled 'disables the ability for a user to break the macro Application.CommandBars("Update Details").Visible = True 'displays the update details toolbar. This calls the updetails procedure afeter user has filled in all details Application.CommandBars("Update Details").Position = msoBarFloating 'Positions toolbar as floating Set BMRange = ActiveDocument.Bookmarks ("bkRentorFin").Range 'sets a range for the bookmark If BMRange.Text = "" Then 'if there is no data in the above bookmark it means this is a new document and need to open user form Set BMRange = Nothing 'makes sure the range is set back to nothing frmSelOpt.Show 'shows form End If ActiveDocument.FormFields ("bkFullName").Select 'selects first field on form ActiveWindow.View = wdPageView 'ensures page layout view End Sub My dilemma is this, if a user selects the "open" option when downloading off the Internet the frmselopt.show does not load. Also if the form is saved as a template and a user selects it via File New, again frmselopt.show does not load. It is almost as if someone is pressing the Shift key when opening the form. Eveything else in the procedure works fine. Another oddity when opening from the Internet is that if the "Browse in Same Window" option is checked within file types under Explorer the frmselopt.show works fine. It also works without a problem when opening from a normal doc. Curiously as well the line Application.CommandBars("Update Details").Position = msoBarFloating seems to be ignored when opening from a template. It places the tool bar in the last opened position (docked or undocked). The form was written in word 97 but works well in other versions. Your help will be most appreciated Greg Mc Tag: Saving to an FTP site? Tag: 42117
 - 9
 - Adressing cells in table with splitted cells This is a multi-part message in MIME format. ------=_NextPart_000_0040_01C3B777.6C140B30 Content-Type: text/plain; charset="iso-8859-2" Content-Transfer-Encoding: quoted-printable Hi, I have a Word DOC, with a table as below. =20 =20 =20 =20 A B =20 C D =20 I need to fill in the cells A, B, C and D in a VBA macro How can I address them?=20 I get the reference to the table with=20 Set oWrdTbl =3D ActiveDocument.table(1) And I can address any cell in a table with the same number of rows and = colums using Cells collection of Table object=20 oWrdTbl.cells(1,1).Range.Text =3D "My text"=20 However I don't know how to address cells in a table as below Can anyone help? =20 Thank you Bogdan =20 ------=_NextPart_000_0040_01C3B777.6C140B30 Content-Type: text/html; charset="iso-8859-2" 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-2"> <META content=3D"MSHTML 6.00.2800.1276" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV> <DIV class=3DSection1> <SPAN=20 style=3D"FONT-SIZE: 12pt">Hi, <SPAN=20 style=3D"FONT-SIZE: 12pt"><?xml:namespace prefix =3D o ns =3D=20 "urn:schemas-microsoft-com:office:office" = /><o:p></o:p> <SPAN=20 style=3D"FONT-SIZE: 12pt">I have a Word DOC, with a table as=20 below. <SPAN=20 style=3D"FONT-SIZE: 12pt"><o:p></o:p><FONT=20 face=3D"Times New Roman" size=3D3> <TABLE=20 style=3D"BORDER-RIGHT: medium none; BORDER-TOP: medium none; = BORDER-LEFT: medium none; BORDER-BOTTOM: medium none; BORDER-COLLAPSE: = collapse; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm = 5.4pt 0cm 5.4pt"=20 cellSpacing=3D0 cellPadding=3D0 border=3D1> <TBODY> <TR style=3D"HEIGHT: 37.95pt" height=3D51> <TD=20 style=3D"BORDER-RIGHT: windowtext 0.5pt solid; PADDING-RIGHT: 5.4pt; = BORDER-TOP: windowtext 0.5pt solid; PADDING-LEFT: 5.4pt; PADDING-BOTTOM: = 0cm; BORDER-LEFT: windowtext 0.5pt solid; WIDTH: 92.8pt; PADDING-TOP: = 0cm; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 37.95pt"=20 vAlign=3Dtop width=3D124 height=3D51>  <SPAN=20 style=3D"FONT-SIZE: 12pt"><o:p></o:p></TD> <TD=20 style=3D"BORDER-RIGHT: windowtext 0.5pt solid; PADDING-RIGHT: 5.4pt; = BORDER-TOP: windowtext 0.5pt solid; PADDING-LEFT: 5.4pt; PADDING-BOTTOM: = 0cm; BORDER-LEFT: medium none; WIDTH: 92.8pt; PADDING-TOP: 0cm; = BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 37.95pt; = mso-border-left-alt: solid windowtext .5pt"=20 vAlign=3Dtop width=3D124 colSpan=3D2 height=3D51>  <SPAN=20 style=3D"FONT-SIZE: 12pt"><o:p></o:p></TD></TR> <TR style=3D"HEIGHT: 20.5pt" height=3D27> <TD=20 style=3D"BORDER-RIGHT: windowtext 0.5pt solid; PADDING-RIGHT: 5.4pt; = BORDER-TOP: medium none; PADDING-LEFT: 5.4pt; PADDING-BOTTOM: 0cm; = BORDER-LEFT: windowtext 0.5pt solid; WIDTH: 92.8pt; PADDING-TOP: 0cm; = BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 20.5pt; = mso-border-top-alt: solid windowtext .5pt"=20 vAlign=3Dtop width=3D124 rowSpan=3D2>  <SPAN=20 style=3D"FONT-SIZE: 12pt"><o:p></o:p></TD> <TD=20 style=3D"BORDER-RIGHT: windowtext 0.5pt solid; PADDING-RIGHT: 5.4pt; = BORDER-TOP: medium none; PADDING-LEFT: 5.4pt; PADDING-BOTTOM: 0cm; = BORDER-LEFT: medium none; WIDTH: 46.4pt; PADDING-TOP: 0cm; = BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 20.5pt; = mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid = windowtext .5pt"=20 width=3D62 height=3D27> <FONT=20 face=3D"Times New Roman" size=3D3><SPAN=20 style=3D"FONT-SIZE: 12pt">A<o:p></o:p></TD> <TD=20 style=3D"BORDER-RIGHT: windowtext 0.5pt solid; PADDING-RIGHT: 5.4pt; = BORDER-TOP: medium none; PADDING-LEFT: 5.4pt; PADDING-BOTTOM: 0cm; = BORDER-LEFT: medium none; WIDTH: 46.4pt; PADDING-TOP: 0cm; = BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 20.5pt; = mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid = windowtext .5pt"=20 width=3D62 height=3D27> <FONT=20 face=3D"Times New Roman" size=3D3><SPAN=20 style=3D"FONT-SIZE: 12pt">B<o:p></o:p></TD></TR> <TR style=3D"HEIGHT: 20.5pt" height=3D27> <TD=20 style=3D"BORDER-RIGHT: windowtext 0.5pt solid; PADDING-RIGHT: 5.4pt; = BORDER-TOP: medium none; PADDING-LEFT: 5.4pt; PADDING-BOTTOM: 0cm; = BORDER-LEFT: medium none; WIDTH: 46.4pt; PADDING-TOP: 0cm; = BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 20.5pt; = mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid = windowtext .5pt"=20 width=3D62 height=3D27> <FONT=20 face=3D"Times New Roman" size=3D3><SPAN=20 style=3D"FONT-SIZE: 12pt">C<o:p></o:p></TD> <TD=20 style=3D"BORDER-RIGHT: windowtext 0.5pt solid; PADDING-RIGHT: 5.4pt; = BORDER-TOP: medium none; PADDING-LEFT: 5.4pt; PADDING-BOTTOM: 0cm; = BORDER-LEFT: medium none; WIDTH: 46.4pt; PADDING-TOP: 0cm; = BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 20.5pt; = mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid = windowtext .5pt"=20 width=3D62 height=3D27> <FONT=20 face=3D"Times New Roman" size=3D3><SPAN=20 style=3D"FONT-SIZE: = 12pt">D<o:p></o:p></TD></TR></TBODY></TABLE> <SPAN=20 style=3D"FONT-SIZE: 12pt"><o:p></o:p> <SPAN=20 style=3D"FONT-SIZE: 12pt">I need to fill in the cells A, B, C and D in a = VBA=20 macro <SPAN=20 style=3D"FONT-SIZE: 12pt">How can I address them?<FONT=20 face=3D"Times New Roman" size=3D3><SPAN=20 style=3D"FONT-SIZE: 12pt"> <o:p></o:p> <SPAN=20 style=3D"FONT-SIZE: 12pt">I get the reference to the table with = <SPAN=20 style=3D"FONT-SIZE: 12pt">Set oWrdTbl =3D = ActiveDocument.table(1) <SPAN=20 style=3D"FONT-SIZE: 12pt"><o:p></o:p> <SPAN=20 style=3D"FONT-SIZE: 12pt">And I can address any cell in a table with the = same=20 number of rows and colums using Cells collection of Table=20 object<SPAN=20 style=3D"FONT-SIZE: 12pt"> <o:p></o:p> <SPAN=20 style=3D"FONT-SIZE: 12pt">oWrdTbl.cells(1,1).Range.Text =3D "My=20 text"<SPAN=20 style=3D"FONT-SIZE: 12pt"> <o:p></o:p> <SPAN=20 style=3D"FONT-SIZE: 12pt">However I don’t know how to address = cells in a table as=20 below <SPAN=20 style=3D"FONT-SIZE: 12pt"><o:p></o:p> <SPAN=20 style=3D"FONT-SIZE: 12pt">Can anyone help? <SPAN=20 style=3D"FONT-SIZE: 12pt"> <o:p></o:p> <SPAN=20 style=3D"FONT-SIZE: 12pt">Thank you <SPAN=20 style=3D"FONT-SIZE: 12pt">Bogdan <SPAN=20 style=3D"FONT-SIZE: = 12pt"> <o:p></o:p></DIV></DIV></BODY></HTML></FONT= > ------=_NextPart_000_0040_01C3B777.6C140B30-- Tag: Saving to an FTP site? Tag: 42104
 - 10
 - VBA code to Parse Word line Hi, I'm new to using VBA and am struggling with being able to parse a line so I can use part of that information in the filename. What I have are a bunch of Word files (these are doctor's patient notes) that I need to do two things to: 1.) I need to split these files into individual files. 2.) I need the resulting filename to be have the "MRN number" "Patient Name" "Date of visit" for the filename. (all of this information is contained within the first three lines of these files) For example, each file has the date as the filename and contains every patient seen by the doctor on that date. I need this to be split so each patient has their own file with the filename to be similar to: '1111111 plaintom 113003.doc' and stored in a specific folder. I have VBA code to split the files into individual patient files but the filename is 'newdocumentx.doc' where x is a number. Here is an example of the first three lines in each file: CLINIC NOTE PATIENT: LastName, FirstName CLINIC: 1234567 Doctor's Name, M.D. DATE OF VISIT: 5/30/03 Any help would be appreciated. Feel free to email me any suggestions. Thanks, plaintom Tag: Saving to an FTP site? Tag: 42103
 - 11
 - Retrieving contents of a Listbox I'm trying to retrieve the contents of a listbox and place it into a filename with a .doc extension. I know I have to loop through the list box and get the contents. I can retrieve the first item with listbox.text but I'm not quite sure how to retrieve the rest of the listbox.list and then concatenate everything into a filename. Any help would be greatly appreciated. Thanks, Barry Tag: Saving to an FTP site? Tag: 42098
 - 12
 - script to copy pages in MSWORD I am using the page set up A4 potrait 2 sheets per page (A5 landscape) I am after a vba script to read the A5 page in word, copy it and paste it to the next A5 page (both on the same A4 sheet when printed) Then go to the next page and repeat I also want page numbering ie: so that Page 1 appears at the end of each A5 page ie: twice on the A4 sheet Thanks inadvance Tag: Saving to an FTP site? Tag: 42096
 - 13
 - Word Count How do I automatically put the word count of a document into a footer of a document. This is for a school paper. Thanks Tag: Saving to an FTP site? Tag: 42090
 - 14
 - Exception This code produces an error when attempting to close the dialog in word.... An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred Additional information: Word has finished searching the document. What can I do to avoid it? ' With oDoc.Application.Dialogs(CInt(Word.WdWordDialog.wdDialogEditFind)) '.Show() 'End With Tag: Saving to an FTP site? Tag: 42085
 - 15
 - Antonym List Property Problem Dear Whoever, I'm trying to write a macro which will identify the antonym of a given word, but I've struck a problem. Before identifying the antonym I have to identify which meaning of the word is required (the word 'go' has 8 meanings - each having a different opposite meaning or no opposite meaning at all). I am able to select the correct meaning of the word and assign it the appropriate number in the MeaningList. However, the MeaningList number does not correspond with the AntonymList number (while there might be 8 meanings for a word there might only be 4 antonyms for the same word). So the 7th meaning of the word 'go' might correspond with the 4th Antonym of 'go'. Is it possible to identify the antonym of a given meaning of a given word using VBA. The Word Thesaurus is certainly able to. I hope I've made myself clear. If not, here is the (rather messy) code I'm working on. Thanks in advance, Chris Sub antonymFind() Set myAntObj = Selection.Range.SynonymInfo If myAntObj.Found = True Then relList = myAntObj.RelatedWordList If UBound(relList) <> 0 Then word2 = relList(1) Set myAntObj = SynonymInfo(word2) End If Else MsgBox "Sorry. No antonyms were found for the word '" & myAntObj.Word & "'" End End If Alistfound = myAntObj.Found If Alistfound = False Then End If MCount = myAntObj.MeaningCount If MCount < 2 Then i = 1 GoTo runmacro End If MsgBox "'" & myAntObj.Word & "' has " & MCount & " meanings" For i = 1 To MCount Mlist = myAntObj.MeaningList Answer = MsgBox("Is it a synonym of '" & Mlist(i) & "'", vbYesNo, "What does the word mean?") Select Case Answer Case vbYes 'Put the code here that runs in response to Yes GoTo runmacro Case vbNo 'Put the code here that runs in response to No If i = MCount Then MsgBox "There are no more recorded meanings for the word '" & myAntObj.Word & "'" End End If End Select Next i runmacro: Alist = myAntObj.AntonymList If UBound(Alist) <> 0 Then Selection.EndKey Unit:=wdStory Selection.TypeParagraph Selection.TypeParagraph Selection.Font.Bold = False Selection.TypeText Text:="Which word in the text is opposite in meaning to: " Selection.TypeParagraph Selection.Font.Bold = True Selection.TypeText Text:=Alist(i) Else MsgBox "Sorry. No antonyms were found for the word '" & myAntObj.Word & "'" End If End Sub Tag: Saving to an FTP site? Tag: 42080
 - 16
 - Document_Open As I understand it, if you put Document_Open event into ThisDocument, the procedure runs whenever you open the document. For me, this does not work and nothing happens. Even a Msgbox won't pop up. What am I missing to get something to happen (specifically fill in a bookmark) when I click to open a Word Document. I'm using Word 2000. Tag: Saving to an FTP site? Tag: 42077
 - 17
 - modifying a template somehow when i typed a letter , it became a template and opens up every time i go to word. How do i get my blank template back Tag: Saving to an FTP site? Tag: 42073
 - 18
 - protecting a doc hi is there a way to porotect a whole doc from editing Tag: Saving to an FTP site? Tag: 42068
 - 19
 - Selecting Pages I am trying to develop a macro that copies or filters pages within large document. I would like to select the complete contents of a pag and paste it to a separate document. Idealy I'd like to supply a lis of page numbers which are selected and exported automatically. I've mastered finding a page and selecting text as well as exportin the text, the problem though is I can't work out how to select th complete contents of a page - each page has a varying number of lines paragraphs. Any help appreciated ----------------------------------------------- ~~ Message posted from http://www.ExcelTip.com ~~View and post usenet messages directly from http://www.ExcelForum.com Tag: Saving to an FTP site? Tag: 42065
 - 20
 - Command Help Hi a newbie to vba,have understanding of program design but not off command for use with vba. I currently trying to do a simple project with a table Can some one assist me with a web site or commands to help me achieve the following read two cells out of a row in a table put the values and do a calculation (cell 1 value * cell 2 value) and put the result in the same row last cell then the best way of creating a loop to do this for each existing row. many thanks Devo Tag: Saving to an FTP site? Tag: 42030
 - 21
 - How I can insert an image into a shape How I can insert an image into a shape in Word document using VBA? Thanks Tag: Saving to an FTP site? Tag: 42027
 - 22
 - Help With This Simple Code Please Hi, I am using this VBA code within a Word macro button to create a task in Window SharePoint Services 2003: Public Sub AddNewTask() ' Retrieve the object root Dim sws As SharedWorkspace Set sws = ActiveDocument.SharedWorkspace ' Add a new task sws.Tasks.Add "Check Receipt", _ msoSharedWorkspaceTaskStatusNotStarted, _ msoSharedWorkspaceTaskPriorityNormal, _ msoSharedWorkspaceTaskAssigneeDEMOSERVER\administrator End Sub The probem is with the last line "msoSharedworkspaceTaskAssigneeDEMOSERVER\administrator" not working. I apparentely need to enter in both the domain and username as it appears in SharePoint tasks. This would be "DEMOSERVER\administrator". However, when I put that on the line it breaks the words into "DEMOSERVER \ administrator" with a space between each word and the slash and that does not work. I have tried putting everything around it such as "DEMOSERVER\administrator", (DEMOSERVER\administrator), ("DEMOSERVER\administrator"), 'DEMOSERVER\administrator', but none of those work. I am not a programmer by trade but can anyone give me some suggestions here? Alan Tag: Saving to an FTP site? Tag: 42025
 - 23
 - File Menu Inside a macro is there a way to tell the application to show or hide the text version of the menu that says File - Edit - View - Insert - Format - Tools (rests on top of the toolbar) Thank you for your help!! Tag: Saving to an FTP site? Tag: 42012
 - 24
 - Saving Help pages in VBA With Help files in Word 97 VBA, is there a way to save a particular Help page to return to it later? The only thing I see remotely like this in Options is annotations, and all that does is add notes to the Help page, it doesn't save it for easy retrieval. This can be a pain when you've found a really useful Help page, and there's no way to keep it around, but you have to go searching for it again the next time. Larry Tag: Saving to an FTP site? Tag: 42011
 - 25
 - Replacing Word menu bar with custom menu bar I just experimentally put together this code that replaces Word's menu bar with a temporary menu. Questions: Why would anyone want to replace the menu bar with a custom menu bar? If the Add method was not set for temporary, would it be possible to restore the regular menu once it had been replaced, or would it be lost from that template forever? Set mybar = CommandBars _ .Add(Name:="Custom", Position:=msoBarBottom, MenuBar:=True, Temporary:=True) With mybar .Visible = True End With Larry Tag: Saving to an FTP site? Tag: 42010

How could I save to an FTP site in VBA possibly using the
SaveAs function (I tried just stuffing an ftp url with a
default username and password in as the filename where the
path should go but it didn't work).

Top

Re: Saving to an FTP site? by Jezebel

Jezebel
Tue Dec 02 15:52:02 CST 2003

Don't try it. Save the document locally then use file functions to move the
file to the target location.

"Paul" <paulcaponetti@insurancedecisions.com> wrote in message
news:022401c3b905$460d7d10$a301280a@phx.gbl...
> How could I save to an FTP site in VBA possibly using the
> SaveAs function (I tried just stuffing an ftp url with a
> default username and password in as the filename where the
> path should go but it didn't work).

Top