GodProof

"Bulletproof" is the new Godsmack single and the reaction to it is not overwhelmingly awesome: http://www.blabbermouth.net/news/godsmack-to-release-when-legends-rise-album-in-april-bulletproof-single-available/

Live N

Wherever I May Roam Tickets

METALLICA Selling Limited "Wherever I May Roam" Passes Which Grant Fans Floor Access To Every Show on Their Upcoming Tour

Here's where the band travels for their first 9 concerts:

Buy 3 tickets and the $598 pass pays for itself. Here's more about it: The $598 Metallica Tour Pass Is Actually a Pretty Good Deal -- The metal titans are selling a "Wherever I May Roam Black Ticket" that gets you into all the shows of their upcoming tour.

Stay in a Haze to Be Honest

This will continue. NAOMI videos will be embedded as I hear more of the tunes.

---

---

It's not a warning - it's the way it is.

---

---

My co-worker and I had a Breakthrough - It looks like this

Teresa, my co-worker, and I have been using the same meeting room each week when we meet to plot out how we want the "ideal" Knowledge Article workflow to look like. The meeting room walls are a whiteboard and so, for a few weeks, at each meeting, I've filled the walls with our ideas using dry erase markers in multiple colors. I started writing on the left wall as you walk into the room - it is about 98% covered. Until yesterday, I've left the right wall untouched. Now, it looks like this:

---

---

I have a lot of other pictures I took with my cell phone of the wall and Teresa has meticulously documented what I've wrote on the walls in a MS Word document. It's slowly becoming the Knowledge Management strategy for our department.

Hauntingly Beautiful & Soul-bearing

Guns-n-Top

NAOMI - Band from Cedar Rapids, IA!

From my house, this band is north on I-380 about 20 minutes.

---

---

Who knew this kind of talent was so close to me?

More videos here, including this one:

---

---

Despising the Disrespect

Here are some tour dates for 3/4ths of Smashing Pumpkins:

---

August 11, 2018 Columbus, OH Schottenstein Center
August 13, 2018 Chicago, IL United Center - SOLD OUT
August 14, 2018 Chicago, IL United Center - On Sale Mon Mar 5
August 16, 2018 Kansas City, MO Sprint Center
August 17, 2018 Indianapolis, IN Bankers Life Fieldhouse
August 19, 2018 St. Paul, MN Xcel Energy Center
August 20, 2018 Omaha, NE CenturyLink Center
August 21, 2018 Sioux Falls, SD Denny Sanford Premier Center

---

It's the disrespect I despise. A band will play to the east, the south, the east, the north, the west, and northwest of Iowa, but don't play IN Iowa.They could have easily added August 14, 2018, as a date in Des Moines or Cedar Rapids (where they have played on another tour) or Iowa City - all three of which are actually on the way to their next concert in Kansas City, MO, but nope. It's bullshit.

All that said, when I bought that motherload of CDs from Mitch in Indy back in 11/2013, one of the binders was full of CDs by Smashing Pumpkins and I gave that binder away. I like "Bullet with Butterfly Wings," "Cherub Rock," and maybe a couple others.

Best Drummer on His Guitar

http://www.blabbermouth.net/news/metallicas-robert-trujillo-james-hetfield-is-one-of-the-best-drummers-in-the-world-on-his-guitar/

If I Lived Near FL

Another Day, Another Indeed Fail

While the title of this post calls out "Indeed" as the failing contributor in the email below, I really am. My search string is currently ["technical" and "writer"] so I need to change it to ["technical writer"] if I really want to stop getting the jobs listed below as potential jobs for me:

---

---

At the same time, I wonder if I should simply delete the alert email in my Indeed.com profile as never have I felt so firmly planted at work. I am neither interested in the above "technical writing" jobs, nor in any other "technical writing" jobs... until I get the phone call from the company that maintains http://www.metallica.com!

Did the KISS Army Repeal Don't Ask, Don't Tell?

Wow

Meh

Per this article - http://bleacherreport.com/articles/2761415-wwe-wrestlemania-34-full-match-card-predictions-after-elimination-chamber - the next Wrestlemania will have these matches:

1. The Miz vs. Braun Strowman (Intercontinental Championship)
2. Cedric Alexander vs. Mustafa Ali (Cruiserweight Championship Final)
3. Ronda Rousey and Seth Rollins vs. Triple H and Stephanie McMahon
4. Charlotte Flair vs. Asuka (SmackDown Women's Championship)
5. The Usos vs. The Bludgeon Brothers (WWE SmackDown Tag Team Championship)
6. Alexa Bliss vs. Nia Jax (Raw Women's Championship)
7. Kevin Owens vs. Sami Zayn
8. John Cena vs. Undertaker
9. AJ Styles vs. Shinsuke Nakamura (WWE Championship)

Maybe I'm FINALLY outgrowing professional wrestling, but I don't think there's a single match on that list I want to see.

BS Dominates!

It's Either 188 Days Away or 378 Days Away

When I saw the text in yellow, I thought "Awesome! They're going to play Iowa City or Cedar Rapids!" The best date would be Sunday, Sep 2, 2018, in Madison, WI OR Monday, March 11, 2019, in Indianapolis, IN, on the way to the Rock & Roll Hall of Fame in Cleveland, OH, on Spring Break 2019, which is ONLY 1 year, 1 week, 6 days or 378 days away from today...

METALLICA ANNOUNCE SECOND NORTH AMERICAN LEG OF WORLDWIRED TOUR

New Leg Kicks Off September 2, 2018 In Madison, WI

Band to Return to Select Cities For The First Time In Decades

Tickets On Sale To Public Starting March 2nd At LiveNation.Com

METALLICA WORLDWIRED NORTH AMERICAN TOUR DATES 2018-2019

Sep 2, 2018	Madison, WI	Kohl Center
Sep 4, 2018	Minneapolis, MN	Target Center
Sep 6, 2018	Lincoln, NE	Pinnacle Bank Arena
Sep 8, 2018	Grand Forks, ND	Alerus Center
Sep 11, 2018	Sioux Falls, SD	Denny Sanford Premier Center
Sep 13, 2018	Winnipeg, MB	Bell MTS Place
Sep 15, 2018	Saskatoon, SK	SaskTel Centre
Oct 16, 2018	Milwaukee, WI	Wisconsin Entertainment and Sport Center
Oct 18, 2018	Pittsburgh, PA	PPG Paints Arena
Oct 20, 2018	State College, PA	Bryce Jordan Center
Oct 22, 2018	Charlotte, NC	Spectrum Center
Oct 27, 2018	Buffalo, NY	KeyBank Center
Oct 29, 2018	Albany, NY	Times Union Center
Nov 26, 2018	Las Vegas, NV	T-Mobile Arena
Nov 28, 2018	Boise, ID	Taco Bell Arena
Nov 30, 2018	Salt Lake City, UT	Vivint Smart Home Arena
Dec 2, 2018	Spokane, WA	Spokane Arena
Dec 5, 2018	Portland, OR	Moda Center
Dec 7, 2018	Sacramento, CA	Golden 1 Center
Dec 9, 2018	Fresno, CA	Save Mart Center
Jan 18, 2019	Tulsa, OK	BOK Center
Jan 20, 2019	Little Rock, AR	Verizon Arena
Jan 22, 2019	Birmingham, AL	Legacy Arena at The BJCC
Jan 24, 2019	Nashville, TN	Bridgestone Arena
Jan 28, 2019	Raleigh, NC	PNC Arena
Jan 30, 2019	Cincinnati, OH	U.S. Bank Arena
Feb 1, 2019	Cleveland, OH	Quicken Loans Arena
Feb 28, 2019	El Paso, TX	Don Haskins Center
Mar 2, 2019	Lubbock, TX	United Supermarkets Arena
Mar 4, 2019	Wichita, KS	Intrust Bank Arena
Mar 6, 2019*	Kansas City, MO*	Sprint Center*
Mar 9, 2019	Louisville, KY	KFC Yum! Center
Mar 11, 2019	Indianapolis, IN	Bankers Life Fieldhouse
Mar 13, 2019	Grand Rapids, MI	Van Andel Arena

The Person Chose the Title of this Article Correctly!

This is an example of how GOOD writing can draw you in.
Worst Roommate Ever “You’ve got your whole life in front of you. You’re pretty, you’ve got this house — well, you don’t have this house anymore. This house is my house.” By William Brennan

Step Brothers

On Saturday morning, Karen & I watched "Step Brothers" for the first time - it was released 9 years, 7 months, 1 day (3503 days) ago on 7/25/2008! The "Bunk Beds" scene is really funny as is the third video, though there is some adult language in it.

---

---

---

---

From the Spooky Time of the Year

Today, the Iowa men's basketball team plays their final game of the season when they host Northwestern at Carver-Hawkeye Arena. Back on November 1, 2017, I read this article on the KRUI website: http://krui.fm/2017/11/01/iowa-basketball-can-spooky-march/.

I have no idea today, 11/2/2017, whether the Iowa men's basketball team has had a good season or a disappointing season. In either case, revisiting the article is probably worth the time doing so.


Editor's Note: The season was a disappointment - strictly speaking and looking at only winning 4 Conference games - but deeper, there was much more success:Jordan Bohannon Intentionally Misses FT to Preserve Chris Street's Iowa Record.

There next game is Wednesday against Illinois, a team that they played earlier in the season and defeated!

---

---

GO HAWKS!!

Preparing for Sunday Part II

No, you didn't miss "Part I" - the barrage of "The Walking Dead" videos basically constitute "Part I." One of the other two events on Sunday is the WWE PPV -
here's a preview article with predictions. Personally, if I could choose, I would choose Elias or Finn Balor to win the 7 man main event. I don't want Roman Reigns to win. More than once, "experts" predict Roman Reigns will win by last eliminating Seth Rollins. I hope they are wrong. Rollins & Reigns need to remain 2/3rds of the Shield stable until Dean Ambrose returns from his injury... although, if WWE sets up Rollins feuding with Reigns, when Ambrose returns, both Rollins & Reigns could try to sway Ambrose to join their side, which would be interesting (to me). Overall, the problem I have with Roman Reigns as the one in the Wrestlemania Main Event is that - sigh - neither Brock Lesnar nor Reigns are good on the mic. Paul Heyman speaks for Brock Lesnar and while I really do like a Paul Heyman promo, it makes me feel less connected to Lesnar. The way Lesnar is presented, as a silent giant, is not engaging to me. Reigns showed that he has promise on the mic during his feud with John Cena, but clearly, John Cena won that mic battle. I can fathom John Cena even winning IF they are going to ensure he is on Monday Night Raw week after week. Lesnar didn't even show up on the Monday Night Raw leading up to Monday's PPV - it's like he is not part of the equation, which is not true. The winner of Sunday's match faces Lesnar. At the VERY least, Lesnar should have sat on a chair on the stage and then ran down and attacked the winner of the match, to weaken him for Sunday.

Why am I not a WWE Creative writer?!?

Editor's Note: Because you do not want to travel around the country... duh! Here is a pre-PPV article - http://bleacherreport.com/articles/2761452-grading-hype-level-for-each-announced-match-on-wwe-elimination-chamber-2018-card and a post-PPV article - http://bleacherreport.com/articles/2761416-wwe-elimination-chamber-2018-results-winners-grades-reaction-and-highlights - for your Monday AM.

Justice to Remains As it Was 30 Years Ago

Completion!

As you may recall, I set up a DRStandards.docx file in the s:\drp folder. There are standard headings in that file with assigned bookmarks. Throughout the rest of the folder structure, in each Word doc, I have fields that refers to those bookmarks. this macro automatically processes each Word document in my folder structure by updating the fields in the Word document. If I have bookmark text that says “Apples” and it needs to say “Pears”, I update the DRStandards.docx file in the s:\drp folder, run this macro and, because the bookmark text is a field, “Apples” will change to “Pears.” I have a field referring to the standards file that I use for my heading, and a field referring to the standards file that I use for my footer as well. If I ever wanted to include a TOC in these documents - I don't today because I have a Master page in RoboHelp that auto generates my TOC based upon heading styles - after adding the TOC field to each document, this macro would update the TOC as well.

Yesterday, I finalized the following macro code. The code processed 354 Word docs spread among 193 folders in my s:\drp folder. All fields in each Word document are updated.

The forum thread that helped me get this code is located here: http://www.msofficeforums.com/word-vba/38290-update-fields-all-documents-folder.html. I didn't do this in a vacuum - others helped me!

---

'Part I
Option Explicit
Dim FSO As Object, oFolder As Object, StrFolds As String

---

'Part II
Sub Main()
Application.ScreenUpdating = False
Dim TopLevelFolder As String, TheFolders As Variant, aFolder As Variant, i As Long
TopLevelFolder = GetFolder
StrFolds = vbCr & TopLevelFolder
If FSO Is Nothing Then
Set FSO = CreateObject("Scripting.FileSystemObject")
End If
'Get the sub-folder structure
Set TheFolders = FSO.GetFolder(TopLevelFolder).SubFolders
For Each aFolder In TheFolders
RecurseWriteFolderName (aFolder)
Next
'Process the documents in each folder
For i = 1 To UBound(Split(StrFolds, vbCr))
Call UpdateDocuments(CStr(Split(StrFolds, vbCr)(i)))
Next
Application.ScreenUpdating = True
End Sub

---

'Part III
Sub RecurseWriteFolderName(aFolder)
Dim SubFolders As Variant, SubFolder As Variant
Set SubFolders = FSO.GetFolder(aFolder).SubFolders
StrFolds = StrFolds & vbCr & CStr(aFolder)
On Error Resume Next
For Each SubFolder In SubFolders
RecurseWriteFolderName (SubFolder)
Next
End Sub

---

'Part IV
Sub UpdateDocuments(strFolder As String)
Dim strFile As String, wdDoc As Document
If strFolder = "" Then Exit Sub
Do Until Right(strFolder, 1) = Chr(92)
strFolder = strFolder & Chr(92)
Loop
strFile = Dir(strFolder & "*.docx", vbNormal)
While strFile <> ""
Set wdDoc = Documents.Open(FileName:=strFolder & strFile, AddToRecentFiles:=False, Visible:=False)
With wdDoc
Call RefreshFields(wdDoc)
.Close SaveChanges:=True
End With
strFile = Dir()
Wend
Set wdDoc = Nothing
End Sub

---

'Part V
Sub RefreshFields(wdDoc As Document)
Dim oStory As Range, oTOC As TableOfContents, oTOF As TableOfFigures
With wdDoc
For Each oStory In .StoryRanges
oStory.Fields.Update
If oStory.StoryType <> wdMainTextStory Then
While Not (oStory.NextStoryRange Is Nothing)
Set oStory = oStory.NextStoryRange
oStory.Fields.Update
Wend
End If
Next oStory
For Each oTOC In .TablesOfContents
oTOC.Update
Next oTOC
For Each oTOF In .TablesOfFigures
oTOF.Update
Next oTOF
End With
End Sub

---

'Part VI
Function GetFolder() As String
Dim oFolder As Object
GetFolder = ""
Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Choose a folder", 0)
If (Not oFolder Is Nothing) Then GetFolder = oFolder.Items.Item.Path
Set oFolder = Nothing
End Function

No Tools

I only mention the Content Manager II position because, unlike most Technical Writer position descriptions, this ad doesn't mention tools (I don't count "SlideShare, Facebook, Twitter" as tools - I think of them as "technologies" or "platforms" that are used. There's nothing about using CRM Tool A or Blog Tool B - the focus is not on the tools that would be used. It's an interesting approach. Be sure to scroll to the bottom of this post for a position that can be used as a contrast to the Content Manager II position.

---

Content Manager II

Responsibilities

The content marketing manager is responsible for developing and enhancing a portfolio of cross channel content to educate, motivate, and nurture customers and prospects. You’ll share the content across multiple channels, measure your results, and refine our content, channels, and approach to optimize engagement and consumption. This role partners with numerous teams including international, marketing, PR, and strategic partners to design, curate, enhance and deliver unique content that engages with our customers and prospects.

ESSENTIAL JOB RESPONSIBILITIES

• Develop a portfolio of compelling marketing content across multiple campaigns, serving numerous channels, and driving performance against the international marketing team’s KPI’s (traffic, engagement, leads, sales). This will include such areas as emails, webinars, videos, landing pages, blog articles, testimonials, interactive tools, and infographics.
• Blog on an ongoing basis to highlight international and strategic partner news and to attract, engage, and convert visitors.
• Collaborate across functions within the international team, domestic US marketing, PR, and with our strategic partners to identify, curate, enhance and deliver content.
• Collaborate with key stakeholders including international marketing team, regional business development directors and strategic partners to establish priorities and align content development efforts.
• Create content development playbook to ensure editorial governance and to improve repeatability and effectiveness of efforts.
• Develop, manage, and publish a content calendar aligning efforts with key stakeholders.
• Manage all creative resources including designers, writers, and other agency personnel.
• Develop and deliver executive presentations on the program approaches and results.
• Measure and analyze content performance on an ongoing basis in order to develop specific strategies and action plans based on that analysis to optimize content performance.

Qualifications

Education:

• Bachelor’s degree in a related area required; preferably marketing
• Or an equivalent combination of education and experience from which comparable knowledge and abilities can be acquired.

Experience:

• A minimum of three years of progressively responsible marketing experience required.
• Previous experience producing content for the web and channel-specific knowledge including blogs, SlideShare, Facebook, Twitter, webinars, video, articles, and testimonials.
• Previous experience building audiences online or offline.
• Previous experience developing content for demand generation, nurture campaigns and social networks.
• Marketing, project management or vendor management preferred.

Knowledge, Skills and Abilities:

• Knowledge of marketing theories and practices.
• Highly creative and an excellent writer while also being process-driven, focused on scale, and relying on data to make decisions.
• Understanding of key technical aspects of marketing systems (marketing automation, CRM) used to generate, distribute, and report on leads.
• Strategic planning ability.
• Excellent communication and interpersonal skills.
• Strong project management skills.
• Knowledge in brand creation and management, print production, CRM practices, social media engagement and web integration.
• Knowledge of basic budgeting and accounting principles.
• Client relationship building and management skills.

COMPENSATION:

Starting salary commensurate with qualifications. Excellent benefits and work environment.

---

Here's another position for a Copy Editor. Notice specific tool are mentioned. I don't know what the ad means by asking for "advanced knowledge of MS Word, PowerPoint and Excel" - I would be ecstatic, were I applying, to find out that they use templates with styles!

---

Copy Editor

Job Information

The Copy Editor position is a key contributor to an expanding marketing team and would be responsible for maintaining product copy across multiple platforms. Key responsibilities include writing, editing, and managing digital and print collateral, research, content distribution, trade show support, and website content management. In addition, contribute to various marketing projects and initiatives.

Content Development

• Write, edit, proofread and maintain copy for advertising, website, brochures, catalogs, printed materials, email campaigns, social media, presentations, articles, press releases and other copy in collaboration with senior leadership, marketing team members and other internal staff.
• Assist in competitive market research that effectively promotes company brand awareness.
• Manage drafts through the final edit and approval process.
• Perform audits of all communications and collaborate with team members to revise as needed.
• Ensure that internal and external communications are consistent with company brand messaging and guidelines.
• Organize and maintain all content for print and online materials.

Key Qualifications

• Bachelor's degree in Journalism, English, Communications, Advertising, Marketing or related field.
• Minimum of 3-5 years of proven copywriting, and/or advertising experience or equivalent combination of education and experience.
• Superior knowledge and understanding of grammar, spelling, and punctuation in the English language.
• Solid editing and proofreading skills.
• Excellent communication (oral and written) and presentation skills.
• Ability to translate data into promotional materials, etc. into a conversational tone, voice and personality that will effectively engage various target audiences.
• Must be able to manage multiple copy editing projects from concept to completion within the allotted timeframes and aggressive deadlines.
• Able to work in a team environment.
• Willing to learn new skills, expand knowledge, and adapt to technological and business changes.
• Self-motivated and assertive – able to work independently with little direction.
• Detail oriented and precise in work and communication.
• Excellent organizational skills.
• Ability to demonstrate sound business judgment.
• Strong fact checking skills
• Meticulous proofreading
• Deadline driven

Required Technical Skills

Experience in content management systems for editing and website maintenance.

Advanced knowledge of MS Word, PowerPoint and Excel

13 Slabs of Nu Metal

From http://teamrock.com/feature/2018-02-20/the-13-best-nu-metal-videos

---

---

---

---

---

---

---

---

---

---

---

---

Wow...

Loa Hex Needs a Drummer in Chicago...

It's Perfect

Why Not? I'm Worth a Jinxing

I posted my desire to join a band and have a potential situation. It's too early to say more than I hope it comes to fruition.

I made contact with a band that is looking for a drummer. They are also looking for a bassist & a guitarist so it's a rebuilding project. This is their setlist:

Set 1

1. Don't Stop - Fleetwood Mac
2. Aimee - Pure Prairie League
3. Crocodile Rock - Elton John
4. Running On Empty - Jackson Browne
5. Hollywood Nights - Bob Seger (maybe Katmandu instead)
6. Magic - The Cars
7. Break Up Song - Greg Kihn Band
8. Only Wanna Be With You - Hootie & The Blowfish
9. Desperado - The Eagles
10. Heartbreaker - Pat Benatar
11. Two Princes - Spin Doctors
12. All American Girl - Melissa Etheridge
13. Hole Hearted - Extreme
14. Never Been Any Reason - Head East
15. Sussudio - Phil Collins

Set 2

1. Dancing Queen - ABBA
2. The Middle - Jimmy Eat World
3. Keep Your Hands/Down on the Farm - Georgia Satellites/Tim McGraw
4. Pink Houses - John Mellencamp
5. Love Shack - B-52's
6. Refugee - Tom Petty
7. Amazed - Lonestar
8. Hold the Line - Toto
9. Shake Your Body - Jackson 5
10. Ah Leah - Donnie Iris
11. Dreams - The Cranberries
12. Roll With The Changes - REO SPeedwagon (maybe Don't Let Him Go)
13. Shut Up and Dance - Walk The Moon

Set 3

1. Sweet Emotion - Aerosmith
2. I've Done Everything - Rick Springfield
3. Middle of the Road - The Pretenders
4. Already Gone - The Eagles
5. Talk To Ya' Later - The Tubes
6. Working for the Weekend - Loverboy
7. Two Tickets to Paradise - Eddie Money
8. Summer of 69 - Bryan Adams
9. Have I Told You Lately - Rod Stewart
10. Walk Like An Egyptian - The Bangles
11. You May Be Right - Billy Joel
12. Bad Case of Loving You - Robert Palmer
13. Hip To Be Square - Huey Lewis
14. Saturday Night's Alright for Fighting - Elton John
15. I'll Be There for You - The Rembrandts

This is It! This is the ONE!

Received a reply to the thread: http://www.msofficeforums.com/word-vba/38290-update-fields-all-documents-folder.html

---

It should be* strFolder* not *StrInFolder *However it would in any case appear superfluous

Code:

---

Sub UpdateDocuments(strFolder As String) Dim strFile As String, wdDoc As Document
If strFolder = "" Then Exit Sub
Do Until Right(strFolder, 1) = Chr(92)
strFolder = strFolder & Chr(92)
Loop
strFile = Dir(strFolder & "*.docx", vbNormal)
While strFile <> ""
Set wdDoc = Documents.Open(FileName:=strFolder & strFile, AddToRecentFiles:=False, Visible:=False)
With wdDoc
Call RefreshFields(wdDoc)
.Close SaveChanges:=True
End With
strFile = Dir()
Wend
Set wdDoc = Nothing
End Sub

---

Here's the working macro, which includes the code above down below!

---

'Part I
Option Explicit
Dim FSO As Object, oFolder As Object, StrFolds As String
'Part II
Sub Main()
Application.ScreenUpdating = False
Dim TopLevelFolder As String, TheFolders As Variant, aFolder As Variant, i As Long
TopLevelFolder = GetFolder
StrFolds = vbCr & TopLevelFolder
If FSO Is Nothing Then
Set FSO = CreateObject("Scripting.FileSystemObject")
End If
'Get the sub-folder structure
Set TheFolders = FSO.GetFolder(TopLevelFolder).SubFolders
For Each aFolder In TheFolders
RecurseWriteFolderName (aFolder)
Next
'Process the documents in each folder
For i = 1 To UBound(Split(StrFolds, vbCr))
Call UpdateDocuments(CStr(Split(StrFolds, vbCr)(i)))
Next
Application.ScreenUpdating = True
End Sub
'Part III
Sub RecurseWriteFolderName(aFolder)
Dim SubFolders As Variant, SubFolder As Variant
Set SubFolders = FSO.GetFolder(aFolder).SubFolders
StrFolds = StrFolds & vbCr & CStr(aFolder)
On Error Resume Next
For Each SubFolder In SubFolders
RecurseWriteFolderName (SubFolder)
Next
End Sub
'Part IV
Sub UpdateDocuments(strFolder As String) Dim strFile As String, wdDoc As Document
If strFolder = "" Then Exit Sub
Do Until Right(strFolder, 1) = Chr(92)
strFolder = strFolder & Chr(92)
Loop
strFile = Dir(strFolder & "*.docx", vbNormal)
While strFile <> ""
Set wdDoc = Documents.Open(FileName:=strFolder & strFile, AddToRecentFiles:=False, Visible:=False)
With wdDoc
Call RefreshFields(wdDoc)
.Close SaveChanges:=True
End With
strFile = Dir()
Wend
Set wdDoc = Nothing
End Sub

'Part V
Sub RefreshFields(wdDoc As Document)
Dim oStory As Range, oTOC As TableOfContents, oTOF As TableOfFigures
With wdDoc
For Each oStory In .StoryRanges
oStory.Fields.Update
If oStory.StoryType <> wdMainTextStory Then
While Not (oStory.NextStoryRange Is Nothing)
Set oStory = oStory.NextStoryRange
oStory.Fields.Update
Wend
End If
Next oStory
For Each oTOC In .TablesOfContents
oTOC.Update
Next oTOC
For Each oTOF In .TablesOfFigures
oTOF.Update
Next oTOF
End With
End Sub
'Part VI
Function GetFolder() As String
Dim oFolder As Object
GetFolder = ""
Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Choose a folder", 0)
If (Not oFolder Is Nothing) Then GetFolder = oFolder.Items.Item.Path
Set oFolder = Nothing
End Function

---

VBA Error

I created this post so that I could include the following screen shot in a thread (link below) in the MS Office Forums:

---

---

I want to have a macro where I can select a folder and then, for each MS Word document in each sub-folder, refresh the fields. Here's the forum thread: http://www.msofficeforums.com/word-vba/38290-update-fields-all-documents-folder.html

When I consulted the online Help for this error, I saw this:

---

---

Might as well have been written in Klingon because I have no idea how to apply the words I read to my macro:

---

---

'Part I
Option Explicit
Dim FSO As Object, oFolder As Object, StrFolds As String

---

'Part II
Sub Main()
Application.ScreenUpdating = False
Dim TopLevelFolder As String, TheFolders As Variant, aFolder As Variant, i As Long
TopLevelFolder = GetFolder
StrFolds = vbCr & TopLevelFolder
If FSO Is Nothing Then
Set FSO = CreateObject("Scripting.FileSystemObject")
End If
'Get the sub-folder structure
Set TheFolders = FSO.GetFolder(TopLevelFolder).SubFolders
For Each aFolder In TheFolders
RecurseWriteFolderName (aFolder)
Next
'Process the documents in each folder
For i = 1 To UBound(Split(StrFolds, vbCr))
Call UpdateDocuments(CStr(Split(StrFolds, vbCr)(i)))
Next
Application.ScreenUpdating = True
End Sub

---

'Part III
Sub RecurseWriteFolderName(aFolder)
Dim SubFolders As Variant, SubFolder As Variant
Set SubFolders = FSO.GetFolder(aFolder).SubFolders
StrFolds = StrFolds & vbCr & CStr(aFolder)
On Error Resume Next
For Each SubFolder In SubFolders
RecurseWriteFolderName (SubFolder)
Next
End Sub

---

'Part IV
Sub UpdateDocuments(oFolder As String)
Dim strFolder As String, strFile As String, wdDoc As Document
StrInFolder = oFolder
If strFolder = "" Then Exit Sub
strFile = Dir(strFolder & "\*.docx", vbNormal)
While strFile <> ""
Set wdDoc = Documents.Open(FileName:=strFolder & "\" & strFile, AddToRecentFiles:=False, Visible:=False)
With wdDoc
Call RefreshFields(wdDoc)
.Close SaveChanges:=True
End With
strFile = Dir()
Wend
Set wdDoc = Nothing
End Sub

---

'Part V
Sub RefreshFields(wdDoc As Document)
Dim oStory As Range, oTOC As TableOfContents, oTOF As TableOfFigures
With wdDoc
For Each oStory In .StoryRanges
oStory.Fields.Update
If oStory.StoryType <> wdMainTextStory Then
While Not (oStory.NextStoryRange Is Nothing)
Set oStory = oStory.NextStoryRange
oStory.Fields.Update
Wend
End If
Next oStory
For Each oTOC In .TablesOfContents
oTOC.Update
Next oTOC
For Each oTOF In .TablesOfFigures
oTOF.Update
Next oTOF
End With
End Sub

---

'Part VI
Function GetFolder() As String
Dim oFolder As Object
GetFolder = ""
Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Choose a folder", 0)
If (Not oFolder Is Nothing) Then GetFolder = oFolder.Items.Item.Path
Set oFolder = Nothing
End Function

---