Open Document Properties Dialog Box

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Table renumbering. I am trying to replace Appenidix # with Table #.# Only difference is I cannot replace all Appendix # with Table #.#. I mean how will I use fields to replace numbers(#.#) using find and replace command. My files can be of 5-50page it depends. Any help.. it's very urgent I am using following macro to do this. Selection.Find.ClearFormatting With Selection.Find .Text = "Appendix 1" .Replacement.Text = "Table " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "SEQ Table\c ", PreserveFormatting:=True Selection.TypeText Text:="." Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "SEQ Table\c ", PreserveFormatting:=True End With Tag: Open Document Properties Dialog Box Tag: 75252
  - 2
    - View Text but Don't Print Is there a way to put some type of comment on the document (like in a text box) but make it so it does not print. I'm trying to put help tips in a template and I want the user to see it but I don't want it to print out. My other idea is to have a mouse-over or click-on type feature that shows a pop-up comment but when I do a comment I get a big long "So and So wrote on Such and Such a Date at Such and Such a Time". I just want the comment to show up. Not all that other stuff. -- Debra Ann Tag: Open Document Properties Dialog Box Tag: 75251
  - 3
    - Sort according to word length Does anyone have a clue for a macro that can sort a list of words according to how many letters there are in the words. Example: I'd like the list: bear do horse a are to end up like: a do are bear horse thanks to anyone who can help! -- per-erik Tag: Open Document Properties Dialog Box Tag: 75248
  - 4
    - Public Function NAME() causes VBA Run-Time error Can someone tell me why if I name a Public Function "NAME", I get a run-time error when I try to use the Application.Run VBA code in Word 2000? Application.Run "NAME" However, if I use Application.Run "NAME1" instead, and rename my function to "NAME1", it works? My assumption is, you cannot name a function "NAME", for whatever reason. My simple function is listed below: Public Function NAME() MsgBox "Hello" End Function Tag: Open Document Properties Dialog Box Tag: 75246
  - 5
    - get the page number of a given bookmark Hi all, I am trying to get the page number of a given bookmark inserte somewhere in the middle of a document. Anyone could give me a clue on how to do it -- ignhdezPosted from - http://www.officehelp.i Tag: Open Document Properties Dialog Box Tag: 75245
  - 6
    - CTRL-BACKSPACE doesn't work when document is protected for forms Hi all, I have some users who are complaining that they can no longer use CTRL-BACKSPACE to delete a complete word when their document is containing protected for forms. Is there a way to catch the event of a user pressing the CTRL-BACKSPACE keys and do this myself? Thanks for your time, Romain Tag: Open Document Properties Dialog Box Tag: 75243
  - 7
    - Is Insertion Point in Table of Contents (TOC)? How do tell if the insertion point in a table of contents (TOC)? Tag: Open Document Properties Dialog Box Tag: 75239
  - 8
    - "continue searching" message when recording a "find & replace" mac I want to record a "find & replace" macro that applies only to text that is highlighted when the macro is run. How do you disable or avoid this automatic message: "Word has finished searching the selection. [Some # of] replacements were made. Do you want to search the remainder of the document?" In other words, how do I convince the macro recorder that I highlighted that text to set limits -- not just a temporary stopping point -- to the "find & replace" process? I don't care if the message appears during the recording process, but I want to avoid it when the macro is run. The purpose of a macro is to automate some process with a single key stroke. The "continue searching" message just adds a further step (hitting the "no" button), and several such steps if the macro includes multiple "find & replace" actions. By the way, WordPerfect, Version 8, didn't have this problem. -- cmmnctng Tag: Open Document Properties Dialog Box Tag: 75237
  - 9
    - "continue searching" message when recording a "find & replace" mac I want to record a "find & replace" macro that applies only to text that is highlighted when the macro is run. How do you disable or avoid this automatic message: "Word has finished searching the selection. [Some # of] replacements were made. Do you want to search the remainder of the document?" In other words, how do I convince the macro recorder that I highlighted that text to set limits -- not just a temporary stopping point -- to the "find & replace" process? I don't care if the message appears during the recording process, but I want to avoid it when the macro is run. The purpose of a macro is to automate some process with a single key stroke. The "continue searching" message just adds a further step (hitting the "no" button), and several such steps if the macro includes multiple "find & replace" actions. By the way, WordPerfect, Version 8, didn't have this problem. -- cmmnctng Tag: Open Document Properties Dialog Box Tag: 75235
  - 10
    - VB Buttons Hiya guys.... I have created a VB Button into my word document which has a macro attached to it. But when I print the page I dont want to show the button, How can I change it so the button only sppears in the page and not on the printed documents? Alistaire Tag: Open Document Properties Dialog Box Tag: 75231
  - 11
    - set picture Width and Height with ActiveDocument.Shapes.AddPicture I try the script below at Word 2002 template file is works fine but not for Word 97? When run at Word 97, i ecounter an error and it close my Word. If i remove the Width and Height then everthing are ok. Anyone can help? Set myShape = ActiveDocument.Shapes.AddPicture(FileName:="C:\ImageFileName. gif", LinkToFile:=False, Width:=155#, Height:=25#, Anchor:=.Paragraphs(1). Range) Thanks. -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.aspx/word-programming/200510/1 Tag: Open Document Properties Dialog Box Tag: 75230
  - 12
    - AutoText Is it possible to add the GUID of a document as an Autotext Entry or equivalent? Tag: Open Document Properties Dialog Box Tag: 75224
  - 13
    - find / replace for only certain pages - Please see code Greetings, Here is my code. What i would like for it to do is only work on say the first 10 pages of a document and not go any further. I have users who will be adding (insert - file) later on in this template and i dont want the find replace to go and change any of the potential areas other than the first 10 pages.. Hope this makes sence. Thanks in advance Sub FindAndReplaceWithHypertext() Dim rDoc As Range ' range replace Dim sFnd As String ' string to be found Dim sHpl As String ' hyperlink Dim sDsp As String ' hyperlink display sFnd = InputBox("Enter the word you wish to replace with a hyperlink:") sHpl = InputBox("Enter File Name:") sDsp = InputBox("Enter the HyperLink display name") Set rDoc = ActiveDocument.Range ResetSearch With rDoc.Find .Text = sFnd .Wrap = wdFindStop Do While .Execute ActiveDocument.Hyperlinks.Add _ rDoc, sHpl, TextToDisplay:=sDsp rDoc.End = rDoc.End + Len(sDsp) rDoc.Collapse wdCollapseEnd Loop End With End Sub Public Sub ResetSearch() With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute End With End Sub Tag: Open Document Properties Dialog Box Tag: 75217
  - 14
    - running loop I am trying to ask use to add number on pages in a text box and then when they hit ok macro should replace specific text with specific formatted text. Any help Thanks Tag: Open Document Properties Dialog Box Tag: 75202
  - 15
    - Controlling Publisher 2000 from word macro I have been trying to open publisher using microsoft word, to open a mailmerge document, show the details, and then print it out. I can get Publisher to open, but I cannot work out how toggle the mailmerge fields- to show the details rather than the mailmerge field codes. Also, I can get the printer to print using this macro, but I obviously have the wrong code, because all it does is dump a single blank page. It is a long winded reason why I want to control Publisher from word, but basically I need to kick things off in a Document Template. Perhaps it would be better to use a macro in Publisher, but then how would I call a macro in Pub from word? Below is the code I have been unsuccessfully trying. Thanks in advance for any suggestions, Ian Sub OpenNewPub() Dim appPub As New Publisher.Application appPub.Open FileName:="c:\documents and settings\Ian McLeish\My Documents\TestRecord Card2000 4th Attempt.pub", _ ReadOnly:=True, AddToRecentFiles:=False, _ SaveChanges:=pbPromptToSaveChanges appPub.ActiveWindow.Visible = True 'ActiveDocument.MailMerge.ViewMailMergeFieldCodes = False ThisDocument.PrintOut End Sub Tag: Open Document Properties Dialog Box Tag: 75198
  - 16
    - Text format inside Text Box G'Day I understand how to format text (i.e., symbols) inside a table cell, but I cannot figure out how to use "superscript & underlines" on text within a text box. Can anyone give me an example to emulate, Please? Krakmup Tag: Open Document Properties Dialog Box Tag: 75197
  - 17
    - Late binding a referenced word template I am working on Word 97 for work tempates, but slowly they are upgrading to WORD XP. We have a template which keeps a number of constants which is normally placed in the path C:\Program Files\Microsoft OFfice\Office\Startup. Is there a way to do late binding on this file as the path in later version of word changes from Office to eg Office10 or even Office11? If there is, the file is called menu.dot all references are called with men.(something). If someone could assist with a solution it would be greatly appreciated. Tag: Open Document Properties Dialog Box Tag: 75190
  - 18
    - Problem to insert same datas to different places (bookmarks & REF) Hi, I got a little problem. I try this example http://www.computorcompanion.com/LPMArticle.asp?ID=224 which is exactly what I need : inserting my client name in various place in a Word Document (I'm using Word 2000) I try something very simple : - add a "clientName" bookmark in my doc - type text and add a { REF clientName } reference to get the value of my bookmark - I made this very little script : Sub test() ActiveDocument.Bookmarks("clientName").Range.Text = "John Doe" Selection.WholeStory Selection.Fields.Update Selection.Fields.ToggleShowCodes End Sub Then I got my bookmark point updated as I expected but the REF point is not. What am I doing wrong ? Thanks a lot for your help Nicolas Tag: Open Document Properties Dialog Box Tag: 75188
  - 19
    - Launching Word with macros from webpage We have a Word doc with macros that we open OK from the network. I tried linking it from our webpage with a line like: <a href="\\path\file.doc" target="_new">Word Doc</a> It asks whether we want to enable macros, but if we hit yes, it doesn't execute. Is it our security settings, a limitation of IE 6.0 or Word 2000? Tag: Open Document Properties Dialog Box Tag: 75184
  - 20
    - Zero Values This was a previous post of mine. I came back to this issue and want to make sure that my post is seen. I'm trying to hide zero values in a form field calculation. I've done what was suggested below, and the $0.00 display is gone now, but now it's not calculating the fields. This is what I've used: {=Trans1+Hotel1+Meals1+Car1+Misc1 \# $,0.00;-$,0.00;} Do I have to format the fields used in the calculation any certain way? Right now they are formatted as 0.00. Thanks! "macropod" wrote: > Hi Sue, > > You don't need any vba for this. Instead, you can code the calculation field > as: > {=BkMrk1-BkMrk2 \# $,0.00;-$,0.00;} > where BkMrk1 and BkMrk2 are the bookmark names of your formfields. > > The numeric picture switch (ie '\# $,0.00;-$,0.00;') tells Word how to > display +ve;-ve;0 values. In this case, +ve and -ve values are displayed as > dollars and cents, with a thousands separator. By leaving the third > parameter (ie whatever follows the second semi-colon) empty, you can make > Word display nothing when the result of your calculation is zero. > > For more information on Word Field Maths, see my 'tutorial' at: > http://www.wopr.com/cgi-bin/w3t/showthreaded.pl?Number=365442 > > Cheers > > > "Sue" <Sue@discussions.microsoft.com> wrote in message > news:991C6D5B-D4AA-4220-BDB6-FF8A780008A6@microsoft.com... > > I've tried that, but it displays "0". I want to display the calculation > as > > currency unless it's a zero value. I don't want to display anything if > > there's nothing in the calculated fields. > > > > I'm not getting something here. > > :( > > > > "Tony Jollans" wrote: > > > > > You can use number formatting pictures, but .. don't do it through the > > > dialog. > > > > > > In the Form Field Options Dialog for the field, make sure Text Format is > > > empty - and close the dialog > > > > > > Press Alt+F9 to see the field codes in the document. > > > The calculated field will look something like this: > > > > > > { FORMTEXT { =Firstnum+Secondnum } } > > > > > > where the bit inside the internal field is your calculation. > > > Add "\# #" after the calculation but before the closing brace so it > looks > > > like ... > > > > > > { FORMTEXT { =Firstnum+Secondnum \# #} } > > > > > > Press Alt+F9 to hide the field codes and it should then behave as you > want. > > > > > > -- > > > Enjoy, > > > Tony > > > > > > > > > "Sue" <Sue@discussions.microsoft.com> wrote in message > > > news:F0B82F8B-0D61-4CDC-AC47-97A12D85BC23@microsoft.com... > > > > How to I "hide" zero values in form fields? I want the users to have > the > > > > option to print a blank form without "0" displaying in the calculation > > > fields. > > > > > > > > Thanks! Tag: Open Document Properties Dialog Box Tag: 75177
  - 21
    - Thumb nail Hi, I had both office 2003 and office XP. Then I unistalled XP. Now my explorer is not showing thumbnail view for .gif, .jpeg, and .jpgfiles? ~Vinaya Tag: Open Document Properties Dialog Box Tag: 75176
  - 22
    - Bookmark that moves! I use a Word template that has a bookmark called LASTPAGE right at the end (so that the footers can display "Page M of N", where "N" is the last page number in the current section rather than in the document. (Pages are numbered i to x, 1 to 20 for example.) Recently, I wrote the VBA macro below to insert an "intentionally blank" page for double-sided printing if the last page number was odd. This works fine, except that if, after running it (and having a blank page added), you update the fields by doing ctrl+A, F9, the "LASTPAGE" bookmark moves back to the penultimate page, so messing up the numbering! This is using Word 2003. I'd be grateful if anyone could explain this, or suggest a workround. Regards, Nigel Hoult Sub AddBlankPages() ' Macro to add an "intentionally blank" page at the end of the last section where that ' section ends on an odd page ' Added text is identified by bookmark "AUTO_BLANK_LAST_PAGE", which will be removed before ' processing so that the macro can be used repeatedly on the same document. ' See if there's a bookmark called LASTPAGE: if so, remove it ' It will be re-inserted after all changes are made hasLastPage = False If ActiveDocument.Bookmarks.Exists("LASTPAGE") = True Then ActiveDocument.Bookmarks("LASTPAGE").Delete hasLastPage = True End If ' Remove any previously added text If ActiveDocument.Bookmarks.Exists("AUTO_BLANK_LAST_PAGE") = True Then ActiveDocument.Bookmarks("AUTO_BLANK_LAST_PAGE").Range.Delete Set rEnd = ActiveDocument.Range rEnd.Collapse (wdCollapseEnd) rEnd.Delete Unit:=wdCharacter, Count:=1 End If ' Scan through the sections to find if any pages need adding For Each Section In ActiveDocument.Sections ' Get the end of the section Set rEnd = Section.Range rEnd.Collapse (wdCollapseEnd) If (Section.Index = ActiveDocument.Sections.Count) Then ' If it is the last section endPage = rEnd.Information(wdActiveEndAdjustedPageNumber) If (endPage Mod 2 = 1) Then rEnd.InsertBreak (wdPageBreak) rEnd.InsertAfter ("This page intentionally blank") Set r = Section.Range Set lastPara = r.Paragraphs(r.Paragraphs.Count) halfWay = (Section.PageSetup.PageHeight - Section.PageSetup.TopMargin) / 2 lastPara.Style = wdStyleNormal lastPara.SpaceBefore = halfWay lastPara.Alignment = wdAlignParagraphCenter ActiveDocument.Bookmarks.Add Name:="AUTO_BLANK_LAST_PAGE", Range:=lastPara.Range End If End If Next ' Finally, replace LASTPAGE bookmark if it was there originally If hasLastPage = True Then Set rEnd = ActiveDocument.Range rEnd.Collapse (wdCollapseEnd) ActiveDocument.Bookmarks.Add Name:="LASTPAGE", Range:=rEnd End If End Sub Tag: Open Document Properties Dialog Box Tag: 75174
  - 23
    - Max number of args to a function? Is there a limit to the number of arguments a VBA function can take in Word 2003? Someone mentioned two or three years ago that the limit was 59, but I am wondering if that has changed. I don't see anything in Help about this. Thanks. Tag: Open Document Properties Dialog Box Tag: 75173
  - 24
    - Conditional Text Form Field I want to have a text form field that is visible only when a particular option is selected in a drop down form field. I think it's a VBA problem (or a macro that's run when leaving the drop down field), but I can't figure out how to do it. Something along the lines of IF Dropdown1 = "Yes" THEN Text1.Visible = TRUE or something like that. I don't really care if the text stays if the dropdown option is changed back and forth. I'm running Word 2003. Thanks, Ray Tag: Open Document Properties Dialog Box Tag: 75172
  - 25
    - Conditional Text Form Field I want to have a text form field that is visible only when a particular option is selected in a drop down form field. I think it's a VBA problem (or a macro that's run when leaving the drop down field), but I can't figure out how to do it. Something along the lines of IF Dropdown1 = "Yes" THEN Text1.Visible = TRUE or something like that. I don't really care if the text stays if the dropdown option is changed back and forth. I'm running Word 2003. Thanks, Ray Tag: Open Document Properties Dialog Box Tag: 75171
- Next
  - 1
    - Word Section Index Problem Hello Every one, This is really bugging me :) I Add a Section at a range by the code: hr = m_pDoc->get_Sections(&m_pSections); hr = m_pSections->Add(&vtRange,&_variant_t((LONG) wdSectionContinuous),&m_pSection); //I then add many sections m_pSection now has the reference to the section it just created. hr = m_pSection->get_Index (&nSectionIndex); // I then ask for the index of the range in the document. Surprisingly i get similar values for different m_pSection !!!! This is funny Do help, Jose Chen (Wannabe Word MVP) Tag: Open Document Properties Dialog Box Tag: 75169
  - 2
    - VBA - Formating Images in headers and Footers Hi, I am inserting an A4 image into the header of word using VBA and having trouble changing the Picture properties in word through VBA. Does anyone know the VBA for changing the following in which are normally accessed by right clicking on the picture and selecting Menu/ Picture options: 1. Setting the Scale and Height of a picture to 100%; and 2. Setting the Layout properties for the image to Behind text. Kind regards Tag: Open Document Properties Dialog Box Tag: 75160
  - 3
    - retrieve last 10 authors from Word file Is this a magical question? I know there are tools that will give you this but I want to automate it in some code. Posted a similar question yesterday. Maybe it was too vague. I am looking at maybe parsing it at a binary level to get the info out. It doesn't look like a standard format. Will post it here if I don't get a response. Thanks in advance, --AC Tag: Open Document Properties Dialog Box Tag: 75152
  - 4
    - Converting word document to xml Using VBA, I am trying to convert a word doc to xml. The creation happens without a problem but when I try to open it using word I get an error in the xml document. Basically I create a new xml file using the file system object and dump the contents using "ActiveDocument.Range.XML" I am under tight deadline and any help would be greatly appreciated. Tag: Open Document Properties Dialog Box Tag: 75149
  - 5
    - Any way to hide fields without effectively inactivating them? Greetings! Is there a setting that governs how Word interprets the hidden font setting with respect to formulas in fields? I use a bookmarked field in my document to provide a value which is used in a calculation performed by a formula in another field, elsewhere in the document. I would like to hide the bookmarked item by applying the hidden font format, but if I do this Word ceases to provide the value of that bookmark to the calculation -- kind of like conditional text in FrameMaker. I believe that I have used the hidden font in similar circumstances before, without having this result. Many thanks for your advice!... Tag: Open Document Properties Dialog Box Tag: 75145
  - 6
    - I would like to delete unwanted styles from my file I have two unwanted styles in macro(from old folder) and I'll keep receiveing it in my file. I am trying to create macro button on my toolbar where it always deletes these two(styles called Caption and Tx_normal_10). Any help Tag: Open Document Properties Dialog Box Tag: 75143
  - 7
    - coding for table numbering and table title We have tables with specific header and table title. I am trying to change table title as per our client requirements. The situation is challenging because my Table titles are as follow Table X Table Title and I am trying to change it to Table X.X Table title I have changed the styles etc., it's just the table numbering and sentence case for the title. Any help. What will be the coding. Tag: Open Document Properties Dialog Box Tag: 75141
  - 8
    - send Active Document to Multiple E-mails I have read the links on MVPs but it seem not to answer the question I am about to ask. My Question is "How do I activate or input the e-mail addresses in program if I have them already in word format or as a group in my Outlook Address Book" Like saying .Add Recipient = <"c:\Managerial EmailAdds.doc"> Where "c:\Managerial EmailAdds.doc" contains the E-mail Addresses of the intending recipients. Please Help. Tag: Open Document Properties Dialog Box Tag: 75140
  - 9
    - select the word but not the space behind it With Selection .Moveend Unit:=wdWord, Count:=1 .movestart Unit:=wdWord, Count:=-1 .InsertBefore Text:="(" .InsertAfter Text:=")" End With I wrote the above to insert brackets to the word where the cursor locates. But it included the space behind the word. any way to improve it? Tag: Open Document Properties Dialog Box Tag: 75135
  - 10
    - Calculating dates in MS-Word I have sections of a document for Monday, Tuesday, Wednesday, Thursday and Friday. I have the week begining date in Subject field. How Would I calculate the headings in the Word document from the Subject field. Something like Dateadd("D", 1 , Subject) Steve Tag: Open Document Properties Dialog Box Tag: 75132
  - 11
    - Disable Maximize and minimze menu of a Word document Hi, I'm using Word 2002 with VBA. Is it possible to disable the Maximize and Minimze menu of a Word document inside Word ? I try this but no effect : Dim wrdWnd As Long Dim x As Long, docwnd As Long Dim lStyle As Long Const GWL_STYLE = (-16) Const WS_MAXIMIZEBOX = &H10000 Const WS_MINIMIZEBOX As Long = &H20000 wrdWnd = FindWindow("OpusApp", 0&) x = FindWindowEx(wrdWnd&, 0, "_Wwf", "") x = FindWindowEx(wrdWnd&, x, "_Wwf", "") docwnd = FindWindowEx(x, 0, "_Wwb", "test.doc") lStyle = GetWindowLong(docwnd, GWL_STYLE) --> lStyle has the value "1455489024" but doesn't change after the following lines lStyle = lStyle Or (WS_MAXIMIZEBOX) ' Maximize lStyle = lStyle And Not (WS_MINIMIZEBOX) ' Minimize Call SetWindowLong(docwnd, GWL_STYLE, lStyle) It works if I change the Maximize and Minimze menu of Word, but not for the documents open inside Word! Thank for your help, David GALLONE Tag: Open Document Properties Dialog Box Tag: 75123
  - 12
    - Using textfield in a dot file Hi Using this code ThisDocument.Navn = TextBox1.Text Working but if i save my document as a dot file and then create a new document from this dot file then ThisDocument.Navn = TextBox1.Text dosn't work Why?? Best regards alvin Tag: Open Document Properties Dialog Box Tag: 75117
  - 13
    - from form to document Hi!! Can someone tell me how i get a text value from a form into a document, Best regards alvin Tag: Open Document Properties Dialog Box Tag: 75110
  - 14
    - Macro for replacement processing Hi all, I need further help with a macro. I reached the place where I have to do this search and replace action: Find: (selected phrase, e.g. "green piano") Replace: <a href="bword://green piano">green piano</a> That is to say, I'll select sertain phrases from the text and when I run the macro the selected phrase should be tagged like this: <a href="bword://XYZ">XYZ</a> XYZ is any phrase I choose to select. I'll assign the macro to a button for quick work. Ivaylo Tag: Open Document Properties Dialog Box Tag: 75109
  - 15
    - tabstop at right margin I wantt to write a macro to insert a right align tabstop just at the right margin of the the document. the .rightmargin in VBA only give the point from the right edge of the document. Hence, Selection.ParagraphFormat.TabStops.Add Position:= .rightmargin, Alignment:=wdAlignTabRight, Leader:=wdTabLeaderSpaces only add the tabstop at the, say, 90 points from the LEFT edge of the document. Thanks Tag: Open Document Properties Dialog Box Tag: 75104
  - 16
    - View Frustrations Sub Frustration() ActiveDocument.Bookmarks("Test").Select "&^$%#*& view changes to Normal with Split window for header pane. 'The bookmark is selected. 'This bit gets the PrintView back but the selection is collapsed If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If ActiveWindow.ActivePane.View.Type = wdPrintView ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader 'So I cobbled together this bit which is working. Question - Is there 'a way to "prevent" the view from changing when using the .Bookmarks(index).Select 'method? Dim myRng As Range ActiveDocument.Bookmarks("Test").Select Set myRng = Selection.Range If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If ActiveWindow.ActivePane.View.Type = wdPrintView ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader myRng.Select End Sub -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: Open Document Properties Dialog Box Tag: 75103
  - 17
    - Universal event listener Hello, I am trying to find a way to use VB to create a universal event listener for MS Word that would allow me to grab any action that the user takes in an open Word doc (typing a word, changing a font, scrolling, etc.) and then to repeat that event in another Word doc. I imagine that these would be the same events that are automatically recorded in a macro or saved in the undo log, but I don't know how to get access to them so that I can repeat them programatically, without the user having to save and execute a macro. Any help would be greatly appreciated. Thanks, Andy Tag: Open Document Properties Dialog Box Tag: 75101
  - 18
    - Last Ten Authors script Does anyone have a script to pull out the last 10 authors from a word document? Thanks in advance Tag: Open Document Properties Dialog Box Tag: 75099
  - 19
    - Make it fit Is there a vba subroutine to mimic Wordperfects make it fir for a section of a document? Tag: Open Document Properties Dialog Box Tag: 75091
  - 20
    - organizercopy problem - destroys format Hi! I am using organizercopy to copy the styles from a template to a document. this works fine, but the format e.g. font inside the document gets corrupted. how can I prevent that? I use: For Each currstyle In ActiveDocument.Styles If currstyle.Type = wdStyleTypeCharacter Or wdStyleTypeParagraph Then Application.OrganizerCopy Source:=sourcedocname, _ Destination:=destdocname, _ Name:=currstyle, _ Object:=wdOrganizerObjectStyles ' Object:=currstyle.Type End If Next currstyle thanks in advance hans Tag: Open Document Properties Dialog Box Tag: 75087
  - 21
    - OrganizerCopy hi i'm trying to insert a module in a template to every new document created by a specific template using OrganizerCopy i'm calling OrganizerCopy in the Document_New method with arguments "mysource.dot", ActiveDocument.FullName, "Common", .. module constant which fails saying document not found. is it possible to do this for destination document which is not saved and/or not a template? thanx riyaz ps: my common module has instance variables which cannot be accessed (as i understand) when started as a global template (using methods such as Application.Run) Tag: Open Document Properties Dialog Box Tag: 75086
  - 22
    - Using makros Hi'' I have some macros in a document, its working allright Now i want to create some tolls, like buttoms or something like that to run my macros, i can do this in my word, but i want to do this in my document so when i copy this document to another Pc then i want to still have my tools, is there not away to do this? hope someone understand me and my poor english alvin Tag: Open Document Properties Dialog Box Tag: 75077
  - 23
    - Open a form Hi' How can i make it so my form open when i open the document Hope some one can help alvin Tag: Open Document Properties Dialog Box Tag: 75075
  - 24
    - FTP documents What is the 'trick' to opening a document saved on an FTP server? I have the password, etc., but not the VBA coding to make it happen. (When I record the steps with the macro recorder, and upon successfully opening the remote document I get the following (edited): ChangeFileOpenDirectory ftp://ftp.myhost.com/htdocs/ShareDoc/ Documents.Open FileName:= _ "ftp://ftp.myhost.com/htdocs/ShareDoc/MyDocument.doc", _ ConfirmConversions:=True, ReadOnly:=False, AddToRecentFiles:=False, _ PasswordDocument:="", PasswordTemplate:="", Revert:=False, _ WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _ wdOpenFormatAuto, XMLTransform:="" When I close out Word and then run this above, I get only an error that the file cannot be found. When I recall the document from the Recent Used Files list (under 'Files') I get an FTP logon dialog (this seems to be the missing key), but I cannot figure out how to get to that. Is it accessible via VBA? What am I missing? Ed Tag: Open Document Properties Dialog Box Tag: 75072
  - 25
    - XML and the future of VBA Somebody just scared the bejeebers out of me saying that Microsoft is going to ditch VBA in favor of XML. Is it true? Are there going to be automatic converters? Can VBA be readily converted to XML. Are there existing publications discussing this? Is this all a hoax? Thanks. Ed Tag: Open Document Properties Dialog Box Tag: 75071

Can someone please tell me how to open the document properties dialog box
with a macro command?

I've linked some fields to some of the custom document property items and I
want the document properties to pop up the first time the template is opened
for people to enter in the Document Propertie Values.

Thanks in advance,
-Matt

Top

Re: Open Document Properties Dialog Box by Tony

Tony
Wed Oct 19 17:14:12 CDT 2005

You could try ..

Application.Dialogs(750).Show

--
Enjoy,
Tony

"Matt" <set_@hotmail.com> wrote in message
news:umNflpN1FHA.2008@TK2MSFTNGP10.phx.gbl...
> Can someone please tell me how to open the document properties dialog box
> with a macro command?
>
> I've linked some fields to some of the custom document property items and
I
> want the document properties to pop up the first time the template is
opened
> for people to enter in the Document Propertie Values.
>
> Thanks in advance,
> -Matt
>
>

Top