Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Sub BookmarkInstancesOfStyle Dim strLanguages As Variant Dim i As Long Dim frange As Range i = 0 Selection.HomeKey wdStory Selection.Find.Style = ActiveDocument.Styles("user-style") strLanguages = Array("de", "en", "es", "fr", "it") With Selection.Find Do While .Execute(FindText:="", Forward:=True, _ MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=False) = True Set frange = Selection.Range ActiveDocument.Bookmarks.Add "MainTOC_" & strLanguages(i), frange i = i + 1 Selection.Collapse wdCollapseEnd Loop End With End Sub
|Can't open Embedded files MS Word 2013||3||85|
|Microsoft Word 2010 Conditional Printing||11||54|
|Add a row to a Word Table||23||50|
|In Word 2007, what else do I need to do than disabling background repagination to be able to edit my 50,000 words document?||14||33|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
23 Experts available now in Live!