How do you center the text in the footer from vb6

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Office Automation / ASP Hello. I am having problem with Office automation / ASP / IIS. I have an ASP page on a Windows 2000 Server running IIS. I have Office 2002 Standard installed on this as well. What I am trying to do is automate word and excel to: 1) Open a document located on a novell server 2) Print the document to a pdf printer, which saves the file as a pdf in a location on the server 3) close word/excel The ASP page then loads the pdf to display the information to the user. On the Windows 2000 server, I have IIS setup to use an account that has the proper priviliges and rights to use resources on the server, and the novell server (at least I think I do.) Also, I used DCOMCNFG to setup Word to run as this administrative-level user and changed default access and default launch permission accordingly (based on a Microsoft KB article). Here is the code I use in word: --------------------------------------- 'WORD AUTOMATION Dim objWord Set objWord = CreateObject("Word.Application") objWord.Documents.Open fileName, false, true, false objWord.Application.DisplayAlerts = 0 objWord.Application.ActivePrinter = "PDF995" objWord.Application.PrintOut true,,0,,,,,1 objWord.ActiveDocument.Close false objWord.Quit Set objWord = Nothing --------------------------------------- I use similiar code to automate excel. The error I get is on the line that calls the Documents.Open method, if I am trying to access a file on the Novell server. The word process simply hangs. And, because of this, the entire website stops responding. When I try to use that same code in the VBA editor in word, and execute it there, I can step through to the line Documents.Open, and when it calls that line, it just hangs there. It works if I try to call a local file located on the server. It also works if I open Word and select file open to try to access a file on the Novell server. I can manually open a file, so I have permission to do so (when logged in as the appropriate user, the same user that IIS is setup to use as the anonymous user). In Word I get that hanging problem, and when trying to automate excel, it gives me this: --------------------------------------- Microsoft Excel error '800a03ec' '\\servername\sys1\folder\file.xls' could not be found. Check the spelling of the file name, and verify that the file location is correct. If you are trying to open the file from your list of most recently used files on the File menu, make sure that the file has not been renamed, moved, or deleted. --------------------------------------- Here's the kicker - This worked flawlessly up until Windows 2000 Service Pack 4 was installed on the Windows 2000 Server. Since then, I have had this hanging problem. I am completely bewildered at this point. Any, and I mean any help would be greatly appeciated! Thanks! Justin Tag: How do you center the text in the footer from vb6 Tag: 34919
  - 2
    - Loosing Code in a Template Hi: Anybody out there who can give me a hand? I started using VBA for Word and created a simple page as a template with one control button on the page. When this control is clicked on it sends the page through the local email as an attachment. This seems to work fine on my computer but when I copy the file over on the local server i suddenly loose all the code behind the control button, so nothing happens when someone else wants to send an email. Anybody know why this is happening and how I can correct for this? Thanks Rocky Tag: How do you center the text in the footer from vb6 Tag: 34915
  - 3
    - Runtime error 5977 when creating an envelope I'm creating an envelope-when I press the enter key to move to the next line I receive the following error: "Runtime error 5977. Cannot create a selection object when this dialog is active." I'm using the "enter key" macro that was kindly provided on the mvp site. The macro has been placed in the normal.dot file. When I took it out, the enter key worked just fine with the envelopes. I looked at the code and there's nothing referencing env, labels, etc. How do I go about keeping the macro and still be able to create an envelope???? Tag: How do you center the text in the footer from vb6 Tag: 34914
  - 4
    - Show multiple file types to open? I should like to be able to set the Word file open dialog to show all files with either the .doc or .rtf extension. I have the following at present With Dialogs(wdDialogFileOpen) .Display .Name = "*.doc; *.rtf" End With But that only offers RTF files. Is it possible to get Word to show both? If so how? Thanks Tag: How do you center the text in the footer from vb6 Tag: 34912
  - 5
    - Greek Gamma I'm having trouble converting the Greek letter Gamma when I convert my document to pdf format. It converts fine when it is in an equation, but not in when it is in the body text. I tried to record a macro to find instances of Gamma in the main text and replace it with instances of Microsoft Equation Editor containing one letter. Unfortunately when I run the macro I am left with empty equations. Is it possible to do this or can anyone think of a better way? Tag: How do you center the text in the footer from vb6 Tag: 34909
  - 6
    - CommandButton Hi, Is there a way of knowing what CommandButton has been clicked on within a method ? I would like to write a generic method to process the text on a CommandButton such as: Private Sub CommandButton1_Click() 'Display Command Button Text MsgBox("The button you clicked on was: "+theCommandButton.Caption End Sub There does not seem to be any keywords such as "this" or "sender" etc. Thanks Mark Tag: How do you center the text in the footer from vb6 Tag: 34908
  - 7
    - Help...Urgent..!!! Hi Friends, I want to convert System.Drawing.color to Word.wdColor. WHen i tried to cast it is is telling "Cannot convert type 'System.Drawing.Color' to 'Word.WdColor'". My requirement is - 1. when i click on button ,it will open color dialogbox. 2. I will select some color and on click of Ok in color dialog, the selected color should be applied to the selected font of the word document. In this process i am setting the font color for the Range as follows- rang.Font.Color=(Word.WdColor)MyDialog.Color.ToArgb(); Here, rang->Range Object MyDialog->Color dialog object Just i want font color functionality of the word. If u know the way to do that and any other better ways plese reply.. Waiting for reply, Ramaprasad Upadhyaya Tag: How do you center the text in the footer from vb6 Tag: 34902
  - 8
    - envelope dialog problem I have to remove the inbuilt envelope and labels facility from some documents I have produced as they are restricted. So I have used a sub procedure where I unprotect the document and then call the envelope and labels dialog as follows. Dialogs(wdDialogToolsEnvelopesAndLabels).Show 2 problems I have found which I need help solving if there is a solution are as follows. 1. before I could highlight the address in a letter and open the envelopes dialog and the address would automatically be entered in the dialog, now I have to copy and paste it.. Why is there a solution to this 2. in the labels section it gives you the facility to specify which column and row of a single label you want the details to be printed on but no matter which row and coulmn you selct it always prints at row 1 and column 1 so you have to create a new document and select the specific label.... Why is there a soultion to this. I am using word 97 with SR2 installed. Cheer Fred Tag: How do you center the text in the footer from vb6 Tag: 34889
  - 9
    - Ask field updating a header with Macro Having problems using the ASK field to insert one user prompted answer into both the body of my document as well as the header of all but the first page header. I created an AutoNew macro to generate the ASK question but once a user presses the OK button, only the Bookmark in the body of my doc receives the AutoNew update. I have tried to update my header while recording my Macro, but to no avail...??? Anyone? Tag: How do you center the text in the footer from vb6 Tag: 34883
  - 10
    - Figuring out how many lines are in a paragraph Is there any way to programmatically determine how many lines are in a paragraph? In addition, is there any way to determine what page(s) a paragraph lies on, and how many lines of text (not including header and footers) lie on a given page of a document? Thanks... Dan Tag: How do you center the text in the footer from vb6 Tag: 34882
  - 11
    - Lists->Text and Weird Space I'm converting lists to text and am running into a weird problem where SOMETIMES a space (spacelike?) character appears. The goal of my program is to take an AutoNumbered list like: 1. The first item 2. The second item and turn it into plain text that looks like: <ListItem>1.\tThe first item <ListItem>2.\tThe second item The code I have below does that absolutely fine. BUT, if you change the tag (just change both instances of "<ListItem>" to something like "ListItem:" then some weird space/not-space (it seems to be character 32, but behaves..oddly) appears between the colon and the item number. It occurs WHEN pasting..I just don't get it, it's very weird. Any thoughts? thanks much, Scott Code below: Sub TagLists() Dim li As List Dim ap As Paragraph ' ' Do the tagging ' For Each li In ActiveDocument.Lists For Each ap In li.ListParagraphs ap.Range.InsertBefore "<ListItem>" Next ap Next li ' ' Change to text ' ActiveDocument.ConvertNumbersToText ' ' Go re-arrange the lines ' Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting With Selection.Find .Text = "<ListItem>" .Forward = True .Wrap = wdFindStop End With While Selection.Find.Execute ' ' Get before the "<ListItem>" tag and select to the beginning of the line ' Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.HomeKey Unit:=wdLine, Extend:=wdExtend ' MsgBox "Selection = >" & Selection.Text & "<" & vbCr & _ ' "Length = >" & Selection.Characters.Count & "<" & vbCr Selection.Cut Selection.Find.Execute Selection.Move Count:=1 Selection.Paste Wend End Sub Tag: How do you center the text in the footer from vb6 Tag: 34863
  - 12
    - How to print document automatically I want to print all documents in one directory. I prefer VB to launch word application, and open each document. Then I use document.printout. My question is the process will suspend if a doc has marcos or password in it, because nobody will response the popup dialog. Anyone can suggest me how to answer the possible dialog and continue the print process? Thanks in advance. Tag: How do you center the text in the footer from vb6 Tag: 34859
  - 13
    - Finding RTF docs based on user criteria I was wondering if there is a way to search through a file of RTF docs based on user criteria (from an Access form). There are hundreds of these RTF docs currently saved, but they are all in one folder. As an example, if the user picks "rr00f" as filter criteria, I would then look through every doc in the folder to find the ones that have that exact text anywhere in the body of the doc and then return each file name. Of course, the users will be picking many different values to filter by, so the actual number of docs that have their combination of values would be small. What do you think? Is this viable? I am clueless about the code to use to do this, but I imagine it could be very simple. Thanks again, Clint Tag: How do you center the text in the footer from vb6 Tag: 34856
  - 14
    - Cycling through the Revisions collection In Word 2000, I have a subroutine to compare two documents and after comparing them, cycle through the collection and print any page with revisions. The trouble is it seems to get hung up on certain revisions when stepping through the collection and Word stops responding. Debug.Print statements show it gets hung up when the code tries to get the page number of a particular revision. The bare bones code, stripped down to its essence, is: Public Sub CompAndPrint(strDoc1 As String, _ strDoc2 As String) Dim objWordApp As Word.Application Dim objRev As Word.Revision Dim intLastPagePrinted As Integer Dim intCurrentRevPage As Integer Dim strPageList As String Set objWordApp = New Word.Application With objWordApp .DisplayAlerts = wdAlertsNone .Documents.Open FileName:=strDoc1, _ AddToRecentFiles:=False '1st document .ActiveDocument.Compare Name:=strDoc2 'compare with 2nd intLastPagePrinted = 0 For Each objRev In .ActiveDocument.Revisions intCurrentRevPage = _ objRev.Range.Information(wdActiveEndPageNumber) 'check if added to page list yet If intLastPagePrinted <> intCurrentRevPage Then intLastPagePrinted = intCurrentRevPage strPageList = strPageList & _ Format$(intLastPagePrinted) & "," End If Next objRev strPageList = Left$(strPageList, _ -1 + Len(strPageList)) 'remove last , 'now print .PrintOut FileName:="", Range:=wdPrintRangeOfPages, _ Item:=wdPrintDocumentContent, Copies:=1, _ Pages:=strPageList, PageType:=wdPrintAllPages, _ Collate:=False, Background:=False, _ PrintToFile:=False, _ PrintZoomColumn:=0, PrintZoomRow:=0, _ PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0 'close, don't save .ActiveDocument.Close wdDoNotSaveChanges End With objWordApp.Quit Set objWordApp = Nothing End Sub Tag: How do you center the text in the footer from vb6 Tag: 34852
  - 15
    - despite certificate message '... contains macros ...' Hi NG, I developed some VBA macros that run with Word 97, 2000 and 2002. They are located in the startup folder as .dot files. All macros contain a signature (certificate) to avoid problems at the customers site. Normally the customer trusts my certificate, sets the corresponding options and everything is working fine, independant of the security options. Now there is a customer with correctly adjusted options, but at each startup of word the message '... contains macros. Macros can contain virusses ...' appears (translated from German). He has to acknowledge this by clicking on the 'Activate macros' button. With another customer of him exactly the same problem occurs. He installed his computers, what makes me think that it has something to do with an option that prevents the execution of this macro. But which? Security options: Security level High or Medium (doesn't matter) Trustworthy source registered (my certificate) Trust all installed add ins and templates marked Trust access to vb project marked Translated from German, the english terms may sound different. With exactly the same options it's running fine with other customers. All files double checked. Does anybody have an idea? I can't expect the customer to switch to low security level. TIA and have a nice day Thomas Thomas(at)Osthege(dot)de Tag: How do you center the text in the footer from vb6 Tag: 34847
  - 16
    - Subscript and Superscript templates How can a subscript and superscript template be created like the one in MS Equation Editor 3.0? Thank you, Ajlan Tag: How do you center the text in the footer from vb6 Tag: 34843
  - 17
    - How to search HTML source for bold tags and paste to word document? I know that I can search the P element (paragraph) from HTML source, but how to search only bold tags? Please help. Thanks. Eddie Tag: How do you center the text in the footer from vb6 Tag: 34833
  - 18
    - Text box control in Word form Hello, I have a form in a Word template with a Userform. I want to display some information, which, when it is long, I want the user to be able to scroll and see. I dont want the user to be able to change it. Which is the control to be used? I tried textbox control, but if I set the Enable to Yes, user can edit. If I set it to No, it wont display scroll bars and he cannot see the complete information. I dont want to increase the size and make it multi line, it wont look nice on the form. Thanks in advance. Regards, Ravi Tag: How do you center the text in the footer from vb6 Tag: 34822
  - 19
    - Word 97, Program Opening My Word 97 program now takes approx. 2 minutes to open and approximately another 2 minutes to open a file document. Originally it took just a few seconds. Once opened everyting appears to be normal with the exception of opening any saved file document. Tag: How do you center the text in the footer from vb6 Tag: 34820
  - 20
    - How to Get Word From Dictionary in Word Hi I am designing a game in which i require a method so that i can get word from dictionary of word2000 using vba ,is it possible pls send the soln asap Tag: How do you center the text in the footer from vb6 Tag: 34806
  - 21
    - An easy question (hopefully) about text length. Thanks! Folks, I am trying to determine programmatically the length (in inches, pixels or any distance measure) of a given text selection (or line). For example: THE QUICK BROWN FOX. . when typed in capitalized letters takes more screen space than. the quick brown fox . when typed in lower caps. Also, the bold version of it the quick brown fox .takes a little more screen space than the non-bold version.. The above is also true for text strings containing different characters. For example: Mmmmmmmmmm . takes more screen space than iiiiiiiiii So far I know how to get the length of a selected text (in characters) using the following line: Selection.Characters.Count Can someone tell me how to get the length (distance) of a given text line in the screen ? I don't care if it is in inches, pixels, or centimeters. Thanks in advance. JOCA Tag: How do you center the text in the footer from vb6 Tag: 34779
  - 22
    - Writing data to Specific Cells??? Hi Folks, I'm trying to write data from cell calculation which updates automatically as part of a FOR loop into a specific range of cells. I would like to be able to read in a numeric value from a cell and loop round that number writing to cells M1 to M100 or so but all I can get is the data writing accross the row rather than down the col??? Here's what I have so far! Any Help Appreciated Private Sub CommandButton1_Click() Dim myRange As Range Dim myrange2 As Range Set myRange = Worksheets("Sheet1").Range("A110") Set myrange2 = Worksheets("Sheet1").Range("M1:M100") For i = 1 To 100 With Worksheets("Sheet1").Cells(114, i) If .Value = "" Then .Value = myRange End With Application.SendKeys (F9) Next i End Sub I was playing around with using myrange2 but had no luck :/ Cheers John Tag: How do you center the text in the footer from vb6 Tag: 34771
  - 23
    - Invoking Word from Outlook: Autoexec Doesn't Exec When I invoke Word from Outlook, the AutoExec:Main module seems not to run (certain menu bars created by the AutoExec:Main module are not created. I planted a test <MsgBox "The Autoexec macro has run"> inside the AutoExec:Main procedure to test the theory and when I open Word via Outlook, it does not appear. Is this on purpose? Is there any way to cause the autoexec procedure to run when Word loads via Outlook? Other routines depend upon the stuff that AutoExec sets up. I get a runtime errors when I try to run other macros inside this scantily adorned version of Word. (I know that I can trap the runtime errors and recreate the necessary setting, but that seems to add needless coding to my add-in.) Thanks, Roy Tag: How do you center the text in the footer from vb6 Tag: 34764
  - 24
    - Seeks Advice on VBA Literature. A few months ago I bought O'Reilly Press - Writing Word Macros, by Steve Roman, It served me quite well I've been able to use it to create company fax-sheets and formatting-macros for my own use. Last week I bought the SYBEX Publications' - VBA Developers Handbook, by Getz and Gilbert. But, it seems to be too far advanced. Is there a middle of the road book that will start me where the first book finished and lead me up to the second? Any advice would be appreciated. Regards DYLAN Tag: How do you center the text in the footer from vb6 Tag: 34761
  - 25
    - Seeks Advice on VBA Literature. A few months ago I bought O'Reilly Press - Writing Word Macros, by Steve Roman, It served me quite well I've been able to use it to create company fax-sheets and formatting-macros for my own use. Last week I bought the SYBEX Publications' - VBA Developers Handbook, by Getz and Gilbert. But, it seems to be too far advanced. Is there a middle of the road book that will start me where the first book finished and lead me up to the second? Any advice would be appreciated. Regards DYLAN Tag: How do you center the text in the footer from vb6 Tag: 34758
- Next
  - 1
    - How can I pass a Word VBA variable to an ACCESS Query SQL string? Hi I want to use the contents of a variable in a Word VBA module as a criterion to filter records in an Access database. A SQL string however does not accept variables. Passing the variable to a form in the Access database seemed like a possible option, but I do not manage to make it work. Does anybody have experience with this, or a suggestion for books that cover this ? Rudy Tirry Tag: How do you center the text in the footer from vb6 Tag: 34755
  - 2
    - enable macros ? Everytime I close Outlook 2000 (running win XP), I am getting a visual basic error statement saying "The macros in this project are disabled. Please refer to the online help or documentation of the host application to determine how to enable macros." I have clicked "tools, macro, visual basic editor"...and it freezes Outlook. This problem just appeared out of the blue, and have not a clue as to the cause or how to fix. PLEASE HELP !!!!! Thanks Gregg Tag: How do you center the text in the footer from vb6 Tag: 34754
  - 3
    - send data from vb to word hi, i'm from germany, and i try to explain my problem: i define a public class in vb and i can reference that class in word. but how can i put data from vb to word in the way like: call "wordmakro"(transferclass) or set word.class = vb.class? can you help me? until later eggert Tag: How do you center the text in the footer from vb6 Tag: 34743
  - 4
    - Text Boxeses cant be converted hi all, I am developing a converter in vb which converts word document in html.I am using save as html option of word97. Everything is fine. But whenever any document is having text boxes. My converter does not convert it to html. Although i tried to convert text box in frames and tables and then converted the documnet to html.But this conversion distorts the appearence my document. If anyone can solve my problem I will be very thankfull. Tag: How do you center the text in the footer from vb6 Tag: 34742
  - 5
    - Open files in another program, like pdf, xls or ppt Hi, How do I open a pdf-file using VBA? The name can vary. Following code works: Dim RetVal RetVal =3D Shell("C:\\Adobe\Acrobat 5.0\Acrobat\Acrobat.exe=20 c:\test\123.pdf", vbMaximizedFocus) Follwing code does not work: Dim RetVal Const fPDF =3D "C:\Test\123.pdf" RetVal =3D Shell("C:\\Adobe\Acrobat 5.0\Acrobat\Acrobat.exe=20 fPDF", vbMaximizedFocus) What=B4s the solution? / Ulf Tag: How do you center the text in the footer from vb6 Tag: 34739
  - 6
    - document processing ok, access database contains company names, addresses, document security keys document A is a company garauntee letter, 1 page document, has placeholders in it using the naming convention of [datafieldname], [date], [certificationcodekey], etc goal is to create document b, that has 1 page for every company record that is processed. so user gets a list of companies to choose from, selects all that they desire and press teh print letter key. the program should then: 1) open document a 2) create new document b 3) insert contents of a into b 4) read a record from the database 5) search and replace the placeholders with data from teh database and with program generated values 6) go to end of document b, insert page break return to step3 until no more records to process. when i try dim documenta as document set documenta = document.open ("GaraunteeLetter") i get either err 53, file not found or 429 activex cannot create the object. this is driving me nuts. thanks Woody Tag: How do you center the text in the footer from vb6 Tag: 34738
  - 7
    - Last page update help Does anyone know how to (if it is even possible) have a different "page last updated" date on each page of a document. I am working on a "how-to" manual and would like each page to reflect the exact date that page was last changed. For example if the manual is 90 pages, and page 7 was last changed on March 23, 2002, and page 81 was last updated on January 16, 2001, is there a way to have each page show that information (and update the date automatically). The "last saved on " date reflects the date the entire document was last saved, I want each page to be able to reflect the date that specific page was last changed. THANKS! Tag: How do you center the text in the footer from vb6 Tag: 34721
  - 8
    - "call" a document (file) into another document in a mail merge pr macro. I sthere a way to "call" a file, or document into a mail mere template or macro. I mail out some letter s from time to time. The basic document is the same but I insert one standard page into each document The info on this page changes often yet I do not want to have to change many documents which contain this page every time it changes. There are many diferent docs, all using this page. Much simpler would be to "call" this page into a document thereby allowing us to change it only one time as required. In word Perfect they called this "nesting documents" What is the command, if any in WOrd? Thanks Tag: How do you center the text in the footer from vb6 Tag: 34719
  - 9
    - Table of Contents Creation Hello, I'm trying to make a macro create a TOC, but I do not want that TOC to use the normal Headings(Heading 1, through Heading 9). Instead, I wish the TOC to use a particular heading of my creation(It's called TOC). Creating the TOC by hand is quite simple in word, and I can deselct the Heading 1 through Heading 9, and have word only use my created "TOC" heading, however, getting the macro to do it isn't working. Thus far my code is this: With ActiveDocument .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _ True, AddedStyles _ :="TOC,1", LowerHeadingLevel:=1, UpperHeadingLevel:=1, UseHeadingStyles:= _ False, IncludePageNumbers:=True, UseHyperlinks:=True, HidePageNumbersInWeb:=True .TablesOfContents(1).TabLeader = wdTabLeaderDots .TablesOfContents.Format = wdIndexIndent End With What this does for me is create a TOC, but it ends up listing out both my created heading "TOC", and Heading 1. All I want to do is to get word to stop including the Heading 1. Any suggestions would be great. Fred Tag: How do you center the text in the footer from vb6 Tag: 34711
  - 10
    - Setting and retaining a range Word2000 I would like to perform a search-replace within a selected range of text (as opposed to the whole document) and perform the same search repeatedly (within the original range) until the target text-combination no longer exists. (Specifically, "^p^p^p" to "^p^p", i.e., three contiguous paragraph marks to two.) I can't figure out how to retain the original selection (of course, the "original" selection changes internally with each pass of the search-replace). If you define a range as being the original selection, that named range no longer refers to the original selection (as altered) once the search-replace routine is run through the first pass. I tried defining the range by setting a bookmark at the beginning and one at the end of the original selection, but the search-replace routine destroys the end bookmark, so the orginally defined range can no longer be selected. Anyway, is there a foolproof way of defining the beginning and the end of the original selection, so the range can be reselected and the search-replace routine run till exhaustion? Thanks very much. Jay Tag: How do you center the text in the footer from vb6 Tag: 34709
  - 11
    - avoiding password prompt when opening new document from a template I have a macro that creates a new document from a template file that is password protected against modification. When the macro goes to create a new file using that template, it prompts for a password, or to click the read only button. Is there some way I can automatically "click" the read-only button for the user with my macro? I am using the following method of creating the new document: Documents.Add Template:=template_folder & "\" & Switch.TemplateList.Value, NewTemplate:=False Any suggestions you have would be most appreciated!!! Christine. Tag: How do you center the text in the footer from vb6 Tag: 34702
  - 12
    - Hiding text from a macro I've written a macro which visits each paragraph in a table cell and hides it or unhides it depending on its style. The macro works correctly, but is very slow. Each iteration of the per-paragraph loop appears to take a large fraction of the second, and the fractions add up. I'm trying to be rewrite the macro to eliminate the per-paragraph loop. One step in the rewritten macro is to hide or unhide the entire text of the cell. It isn't working. I can set the text's Font.Hidden property, but it has no effect. That is, VBA neither changes the text's Hidden property nor changes the contents of the window. (Nor does it gives me an error.) Here's an extract of the code: Dim msgRange As Range ' . . . Set msgRange = Selection.Cells(1).Range ' Select the cell. msgRange.MoveLeft unit:=wdcharacter,count:=1,extend:=wdextend ' Just the text in the cell. msgRange.Font.Hidden = True ' Hide everything. I tried hiding the text by hand (which works) and recording the operation in a macro. The macro does exactly the same thing I do, except that it operates on Selection instead of a Range variable. I tried hiding Selection.Range in the immediate window (executing the exact statement from the recorded macro) and THAT has no effect. Does anybody know what Word is doing to me, and how to work around it? My mail address is jsachs177 at earthlink dot net. Tag: How do you center the text in the footer from vb6 Tag: 34698
  - 13
    - FileCopy Error 52 Bad FileName or number Hi I'm trying to copy a file from a source to a destination, but whatever I try, I get error 52 bad filename or Number. I use Filecopy and a generated string as destination, here's an example: Source = "D:\Projecten\Shell\SPDC\EDMS\test.txt" Destination = "D:\Projecten\Shell\SPDC\EDMS\test\DEE\DMP\CodeB\test.txt" FileCopy SourceFile, DestinationFile Can anyone tell me what I'm doing wrong here? Thanks Tag: How do you center the text in the footer from vb6 Tag: 34695
  - 14
    - Document Map does not fire the XMLSelectionChanged even Hi, I find that if I navigate to text enclosed in an XML tag using the Document Map, the XMLSelection Changed event is not fired. This event does get fired if I navigate to the same location via a mouse click or by scrolling moving my cursor to that same location. Is this a known issue? When is it likely to be resolved? - Ranjit Tag: How do you center the text in the footer from vb6 Tag: 34693
  - 15
    - Word Automation / Windows 2000 SP4 I have a program that uses word automation to open word, open a document, print a selected document, and closes word. Before I installed SP4 for Windows 2000, the following code worked flawlessly: Dim objWord Set objWord = CreateObject("Word.Application") objWord.Documents.Open strFileName, false, true, false objWord.Application.DisplayAlerts = 0 objWord.Application.ActivePrinter = "HP_printer" objWord.Application.PrintOut true,,0,,,,,1 objWord.ActiveDocument.Close false objWord.Quit Set objWord = Nothing In DCOMCNFG, I have Word set to run under the identity of Administrator, in order to have access to all network resources. This was on Windows 2000 SP3. Since I installed SP4 for Windows 2000, this Word automation does not work. Whenever I call the line in the above code 'objWord.documents.open ... " the program freezes and the word process hangs. The same happens if I try to run this code in a macro in Word VBA. Whenever it gets to the line that opens a file, and the file is on a shared network resource, it hangs. Again, this worked prior to SP4. Is there a new security setting in SP4? I have tried uninstalling Office, restarting, and reinstalling Office, but that did not work. Any help would be GREATLY appreciated. Thanks! Tag: How do you center the text in the footer from vb6 Tag: 34692
  - 16
    - Need help getting entries from ToC I have some difficulties trying to extract entries form a Table of Contents in a Word document. What I want is, basically, to retrieve for each entry in a ToC the name (i.e. the text) of the entry and the point it's referring to (i.e. the name of the hidden bookmark). My first idea was to use the Paragraphs collection on the range of the ToC; but then I'm faced with the problem that, while it works quite well for all Paragraphs except the very first and very last, for both of the latter the Fields collection contains *all* the fields of the entire ToC, leading to a number of special case branches, which rely on a number of assumptions I made about the structure of the data in the collections in question. Consequently, I'm not 100% sure my solution is going to be water-proof in all cases; all in all I'm wondering (or rather hoping) that there is a simpler, more elegant and most of all more reliable method for accomplishing what I'm trying to do. If anyone here has any idea's, I'd be eager to hear them. Thanks. Tag: How do you center the text in the footer from vb6 Tag: 34691
  - 17
    - Formating Text in Textframes I am able to use the for each - next method to run through textframes, and if a frame with a width greater than 200 is encountered I am able to set the left and right indentations. However, I can seem to be able to change the alignment of the text where the string "N/A" is found inside the frame. Am I going about this the correct way? This will let me set the indentation, and following it is the code I have written to try to select textframes with the string "N/A" Sub FormatTextbox() Dim shp As Shape Dim Sel As Selection ' Switch Screen Updating off Word.Application.ScreenUpdating = False For Each shp In ActiveDocument.Shapes ' Format Plain Textboxes If shp.Width > 240 Then shp.Select With Selection .ParagraphFormat.LeftIndent = CentimetersToPoints(0.25) .ParagraphFormat.RightIndent = CentimetersToPoints(0.14) .ParagraphFormat.Alignment = wdAlignParagraphJustify .Range.Font.Name = "Times New Roman" .Range.Font.Size = 10 End With ' [Following Code goes here] End If '[Following Code] Next shp End Sub ElseIf shp.TextFrame.TextRange.Text = "*[N/A]*" Then shp.Select With Selection ' Set text to centred alignment .ParagraphFormat.Alignment = wdAlignParagraphCenter .MoveLeft Unit:=wdCharacter, Count:=3 .TypeParagraph ' Set the font size to 10 .Font.Size = 10 .ShapeRange.Select .Font.Size = 10 End With Any help would be appreciated. Dylan Tag: How do you center the text in the footer from vb6 Tag: 34689
  - 18
    - fonts Hi, how can I add a combobox that lists fonts intalled on my computer. Thanks in advance -- _________________________________________ Mitko Kostov ICQ#: 67068080 More ways to contact me: http://wwp.icq.com/67068080 _________________________________________ Tag: How do you center the text in the footer from vb6 Tag: 34685
  - 19
    - Word97 to 2002 migration Hi, I work for a legal firm that is planning a roll out of XP in the near future. We have many Word97 documents which act as templates and make extensive use of VBA. I have 2 questions 1. Do I have to convert these 97 files or will this be done automatically by XP? 2. Are there likely to be any problems with the VBA elements of the documents. Thanks Andy Newland Tag: How do you center the text in the footer from vb6 Tag: 34682
  - 20
    - Set word = nothing takes a looong time I have a VB6 app that uses vba against Word 2000. When I runs the line Set WordObj = Nothing it takes from 1 minut up to 10 minutes to get freed from memory. This problem has come as I have added some code to one of my procedures, I have added the following FilNavn = Mid(CStr(VisWord), 7, Len(CStr(VisWord)) - 6) WordObj.Selection.WholeStory WordObj.Selection.Copy WordObj.Documents.Add WordObj.Selection.Paste WordObj.ActiveDocument.SaveAs FileName:=FilNavn WordObj.ActiveDocument.Close WordObj.Selection.HomeKey Then I return to VB and does some code before calling another procedure that end Word: WordObj.ActiveDocument.PrintOut Background:=False WordObj.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges WordObj.Quit Set WordObj = Nothing It is the last line that takes up all my CPU and uses from 1 munute and up to complete. What can I do to speed this up, cos it is unbearable to sit and wait for it to complete and I use this a lot in my VB app? Regards Betina Tag: How do you center the text in the footer from vb6 Tag: 34664
  - 21
    - FAQ - frequently asked questions - vba - please read before posting - unofficial - July posting FAQ = Frequently Asked Questions - brief - vba - unofficial This FAQ is posted weekly.- more or less Please save us all some time by reading it before posting to the news group. This newsgroup is about VBA - Visual Basic for Applications - which is the programming language for Word 97-2002 (macros). There is a longer FAQ with more questions and links that is regularly posted in the non-VBA Word newsgroups. You may want to check that out as well. --- BEFORE POSTING ANYTHING PLEASE READ THIS --- <URL: http://www.mvps.org/word/FindHelp/Posting.htm> Reading this article will help you get a quick and meaningful response to your question rather than just more questions for you. It may keep your message from being screened or bounced. A few basics, though: (1) Be nice; everyone answering questions here is a volunteer. (2) Post a question in only one newsgroup generally. If you _have to_ post in more than one, post a _single_ message and put both newsgroups in the header for that _single_ message. (3) Do not attach anything to a message. (4) The only really stupid question is the one you don't ask. The reasons for the requests are spelled out on the web page. A longer version of this FAQ is also on the Internet at <URL: http://addbalance.com/word/index.htm> Newsgroup Archives: <URL: http://groups.google.com/advanced_group_search> MVPs FAQ site: <URL: http://www.mvps.org/word/> To the extent there is any "official" FAQ, this is it. --- Also, before posting, you may want to look at the following questions to see if yours is among them. ---------- ---------- ---------- ---------- ---------- ---------- 1. I see a macro in a newsgroup I would like to try. How do I add it to my template? <URL: http://addbalance.com/word/macrosfromnewsgroups.htm> or <URL: http://www.mvps.org/word/FAQs/MacrosVBA/CreateAMacro.htm> 2. What are some good books for me to read about Word? <URL: http://addbalance.com/word/wordbooks.htm> and <URL: http://www.mvps.org/word/Tutorials/BookRecommendations.htm> 3. How can I run a macro automatically when a document opens, closes, is created? <URL: http://www.mvps.org/word/FAQs/MacrosVBA/DocumentEvents.htm> 4. What is an MVP? <URL: http://www.mvps.org/word/AboutMVPs/index.html> and <URL: http://addbalance.com/word/mvp.htm> 5. I need to make a form to... Userforms are custom dialog boxes written using vba. If you want a fill-in-the-blanks form you want what Word calls an online form. Look in Word's help for that, and for more info on online forms follow the links at: <URL: http://addbalance.com/word/wordwebresources.htm#Forms> especially Dian Chapman's series of articles If you want a custom dialog box that you code with VBA commands you want a UserForm. Take a look at: <URL: http://www.mvps.org/word/FAQs/Userforms.htm> 6. Where can I find more information on the Web? <URL: http://addbalance.com/word/wordwebresources.htm#webvba> <URL: http://www.mvps.org/word/FAQs/MacrosVBA.htm> <URL: http://www.mvps.org/word/FAQs/Userforms.htm> <URL: http://www.mvps.org/word/FAQs/Customization.htm> <URL: http://www.mvps.org/word/FAQs/OfficeInterdev.htm> Comments / corrections / additions may be sent to wordfaq@addbalance.com Posted 2 July 2003 Charles Kenyon (the editor) Tag: How do you center the text in the footer from vb6 Tag: 34655
  - 22
    - Paragraph Styles for Text in All Cells I need to insert the name of the paragraph style in front of the text that is in the cells of all the tables in a document. This is how I did it for the regular text in a document: Dim ParSty As String ParSty = Selection.Paragraphs(1).Style Selection.Range.InsertBefore "{" & ParSty & "}" Do Until Selection.Paragraphs(1).Style = "END" Selection.MoveDown Unit:=wdParagraph, Count:=1 ParSty = Selection.Paragraphs(1).Style Selection.Range.InsertBefore "{" & ParSty & "}" Loop It works fine, but I'm not sure how to do the same thing for tables. Can anyone help me? Thanks. Jerry Tag: How do you center the text in the footer from vb6 Tag: 34645
  - 23
    - Blank line suppress in Word Automation I have code that merges access xp data into word templates by setting the values of Word document custom properties. The word templates have fields referencing the name of the custom properties For address info in the access db I have two possible field for address. Typically both have records for say people in an apartment, but for home address typically one, the second field, is null. When the custom properties are set through automation, however, a blank is left where that custom property is referenced. Any ideas? Thanks. Tag: How do you center the text in the footer from vb6 Tag: 34641
  - 24
    - Input box. I have an input box that I am using in a macro that requires the user to input an age between 18 and 65. I made it so they could only input ages in that range by using a loop with <>. And that works fine. If they input 15, it just loops. However, if they accidently try to input anything but a number (i.e. the letter a) they get a mismatch error. Is there some way for me to write code that will allow them to input ONLY numbers. I'm hoping for something similar to what I've done already (just to loop until they put in a number between 18 - 65.) Thanks for looking at this. Elaine Johnson Tag: How do you center the text in the footer from vb6 Tag: 34638
  - 25
    - Project organizer bug with user forms BUG REPORT BUG: There is a bug in the Word 2000 Project Organizer (accessed by opening the templates and add-ins window, clicking "Organizer", and clicking the "Macro Project Items" tab) that causes problems when user forms are transferred between an external template and the Normal template. ERROR MESSAGE: If the user form was transferred to the Normal template with the project organizer, when the user form is run, the error message "Run-time error '5981': Could not open macro storage." is displayed. ERROR OCCURRENCE: Specifically, I received this error when I tried to run the Find Symbol dialog box, which was provided in the sample macros supplied by Microsoft (Macros9.dot). I had transferred this user form and the subroutine that loaded it using the project organizer, as suggested in the Macros9.dot file. When I received this error message, I first tried retransferring the user form and subroutine. This did not change anything, so I tested the code subroutine by subroutine to pinpoint the location of errors. I found that certain bookmark instructions were causing errors, although there were no errors when I ran the user form from the external template. SOLUTION: I opened the template, and then in the Visual Basic Editor I opened the project explorer. I dragged both the user form and the subroutine that loaded it from the Macros9.dot template to the Normal template. The Find Symbol user form ran fine after this. POSSIBLE CAUSE: The project organizer may have messed up some of the code of the user form when transferring it, or not transferred some information needed to run it. This appears to be a bug in project organizer. Tag: How do you center the text in the footer from vb6 Tag: 34634

How do you center the text in the footer.

wrdSelection.Sections(1).Footers(wdHeaderFooterPrimary).Range.Font.Size = 8
wrdSelection.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = "Some
text for footer"

Thanks

M

Top

Re: How do you center the text in the footer from vb6 by Doug

Doug
Tue Jul 08 21:05:28 CDT 2003

Hi Mustapha,

As there is by default a centre aligned tab in the footer, you can just use:

ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Font.Size =
8
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = vbTab
& "Some text for footer"

Alternatively,

ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Font.Size =
8
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = "Some
text for footer"
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.ParagraphFor
mat.Alignment = wdAlignParagraphCenter

will align the text without the use of the tab.

Please respond to the newsgroups for the benefit of others who may be
interested.

Hope this helps
Doug Robbins - Word MVP
"Mustapha Amrani" <ma10024@newton.cam.ac.uk> wrote in message
news:beeptr$24o$1@pegasus.csx.cam.ac.uk...
> How do you center the text in the footer.
>
> wrdSelection.Sections(1).Footers(wdHeaderFooterPrimary).Range.Font.Size =
8
> wrdSelection.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = "Some
> text for footer"
>
> Thanks
>
> M
>
>

Top