TEST THREAD - You can try out new posts here, before posting to another thread.

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
All times are GMT -4.
The time now is 07:33 PM.
#1
San Francisco (up high below Twin Peaks Vista Point w/Bay-Downtown-Sunrise view),CA,USA. [SF native]
1,776 Posts
Joined Feb 2003
.
TEST THREAD - You can try out new posts here, before posting to another thread.
.
The purpose of this thread is to be the place in this forum where you can test A NEW POST,
to check the post's formatting and appearance, before adding the post to another thread in this forum or elsewhere on Cruise Critic.



- NOTE: If you want to test A NEW THREAD:
--.. Please use the following TEST FORUM, in Cruise Critic's "Community Guidelines and Message Board Help" forum:
--.. http://boards.cruisecritic.com/forumdisplay.php?f=225
.
---

-Roger-
Expand Signature
Collapse Signature
.
ROGER_...+
_____________ ►►► [FYI to HORNBLOWERS: See active Thread *HERE* -- and entire Forum HERE.] ◄◄◄

Adventure of the Seas 9/30/17-10/7/17 ▬ 7 n. Southern Caribbean • San Juan r/t − ABC Islands & St Kitts[St Maarten] ___/__ Freedom of the Seas 4/15/17-4/23/17 ▬ 8 n. E.Carib • Ft Lauderdale r/t
Explorer 9/30/16-10/8/16 ▬ 8 n. Pacific Coastal • Seattle r/t − Mini- West Coast & Hornblower Reunion ___/__. Grand Princess 12/20/15-12/30/15 ▬ 10 d. Mexican Riviera • San Francisco r/t − Christmas
Jewel 9/26/15-10/3/15 ▬ 7 n. California Coastal • Los Angeles r/t − West Coast Welcome Back -and- Hornblowers of the Americas Mini-Reunion!
Mariner 1/9/2011-1/16/2011 ▬ 7 n. Mexican Riviera • Los Angeles r/t − West Coast Farewell -and- Hornblowers of the Americas Mini-Reunion! .
•Roll -1 • -2 • -3
Mariner
1/4/09-2/19/09 ▬ 46 n. Westbound Around the Horn • Hornblowers of the Americas! • (Port Canaveral-Rio de Janeiro -B2B- Rio de Janeiro-Valparaiso -B2B- Valparaiso-Los Angeles)
Liberty 12/26/13-12/30/13 ▬ 4 n. W.Carib (Ft Lauderdale r/t - Cozumel)
Serenade 4/19/08-5/3/08 ▬ 14 n. Westbound Panama Canal (San Juan - San Francisco) •List __/__ Monarch 10/10/08-10/13/08 ▬ 3 n. Baja Mexico: Last weekend in San Pedro! (Los Angeles r/t - Ensenada)
Navigator 4/14/07-4/26/07 ▬ 12 n. Eastbound Transatlantic (Miami - Southampton) __--B2B--__ Navigator 4/26/07-4/28/07 ▬ Paris (Le Havre) ___/___ Monarch 12/28/07-12/31/07 ▬ Baja Mexico
Navigator 3/15/03-3/22/03 ▬ E.Carib ___/___ Navigator 4/9/05-4/16/05 ▬ E.Carib ___/___ Queen Mary Hotel 12/29/05-12/30/05 ▬ Docked ___/___ CCL Paradise 12/30/05-1/2/06 ▬ Baja Mexico
#2
San Francisco (up high below Twin Peaks Vista Point w/Bay-Downtown-Sunrise view),CA,USA. [SF native]
1,776 Posts
Joined Feb 2003

This is a POST from the original 1/4/2009 roll call thread, copied to the following document:
"Post 6802 - October 24th, 2008, 0138 PM - SUMMARY OF LISTS, Other References - October 24, 2008 (Post 2 of 2).doc"
LINK: https://skydrive.live.com/?cid=7923e9ee42622d06&sc=documents&id=7923E9EE4262 2D06%21296#!/view.aspx?cid=7923E9EE42622D06&resid=7923E9EE42622D06%21296
-----

The POST copied from the above Document follows, in blue:
[I ran an MS Word macro to format most Italic/Bold/Underline/Hyperlinks, but the macro does NOT format Color/Lists/Size.]


--- Start contents of post ---


SUMMARY OF LISTS, Other References - October 24, 2008 (Post 2 of 2)
________________________________________
.
-- SUMMARY OF LISTS, Continued from previous post. --




▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▄▄
III.- ACTIVITIES: -------- includes Events that have yet to be assigned dates, and on-request events --
A. BIKE TOURS from Jan 4-19, 2009 - Bike Buddies Wanted: Post 6263 on 10/12/2008, by Marc Albert(Linguist7)
1. Background info - Post 6091 on 10/7/2008, by Marc Albert(Linguist7)
2. Additional info - Post 6130 on 10/8/2008, by Marc Albert(Linguist7)
3. Additional info, locations to bike - Post 6191 on 10/9/2008, by Marc Albert(Linguist7)
4. Folding Bike description - Post 6407 on 10/15/2008, by Marc Albert(Linguist7)
5. Additional Folding Bike info - Post 6430 on 10/15/2008, by Marc Albert(Linguist7)
6. Folding Bike - clarification - Post 6432 on 10/15/2008, by Marc Albert(Linguist7)
Contact:-- Marc Albert(Linguist7)
-
B. GROUP PHOTO:
o Original Post: Event dates TBD (1x per leg) - Post 4544 on 8/20/2008, by Letty(cruzr4vr)
o Additional Info: Post 4568 on 8/21/2008, by Letty(cruzr4vr)
Contact:-- Letty(cruzr4vr)
-
C. PUB/POKER CRAWL:
o LIST and Description: Event dates TBD (1x per leg) - Post 6774 on 10/24/2008, by Paul(glgolfer)
o DESCRIPTION - Post 4105 on 8/4/2008, by Paul(glgolfer)
Previous Description - Post 4076 on 8/2/2008, by Paul(glgolfer)
Contact:-- Paul(glgolfer)
-
D. SLOT PULL:
o LIST and Description: Event dates TBD (1x per leg) - Post 6772 on 10/24/2008, by Paul(glgolfer)
o DESCRIPTION - Post 4076 on 8/2/2008, by Paul(glgolfer)
Contact:-- Paul(glgolfer)
-
E. MINI-GOLF TOURNAMENT - LIST: Event dates TBD (1x per leg) - Post 5539 on 9/20/2008, by Len(cruzr4vr)
Contact:-- Len(cruzr4vr)
-
F. POKER PLAYERS:
o Poker Players - LIST: Event dates TBD - Post 6794 on 10/24/2008, by Paul(glgolfer)
o Kinds of Poker to be Played: Post 4524 on 8/20/2008, by Paul(glgolfer)
Contact:-- Paul(glgolfer)
-
G. MAH JONGG PLAYERS: Event dates TBD - Post 4521 on 8/20/2008, by Carol(Merion_Mom)
Contact:-- Carol(Merion_Mom)
-
H. SCRABBLE PLAYERS - Group Forming: Event dates TBD - Post 6783 on 10/24/2008, by Mahya(Mahya)
Contact:-- Mahya(Mahya) [Please Reply to Post]
-
I. BOOKS FOR TRADING:
o Book Traders - LIST: Post 6171 on 10/9/2008, by Paul(glgolfer)
o Announcement/Instructions - BOOK INVENTORY: Post 6200 on 10/10/2008, by Julie(Sarvowinner)
Contact:-- Julie(Sarvowinner) -[previously Paul(glgolfer)]
-
J. DVDs FOR TRADING - LIST: Post 6777 on 10/24/2008, by Paul(glgolfer)
Contact:-- Paul(glgolfer)
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▄▄
IV.- ALBUM: ---------------- includes Photos, Albums, Slideshow & DVD, Logos, and Graphics --
A. ALBUM ON WEBSHOTS:
o Short Introduction: Post 6770 on 10/24/2008, by Paul(glgolfer)
o Instructions for Access: Post 4499 on 8/20/2008, by Paul(glgolfer)
o To Send/Change Photos, if you can't upload/update them yourself: Post 4730 on 8/25/2008, by Paul(glgolfer)
Contact:-- Paul(glgolfer)
.
B. SLIDE SHOW:
.
1. Short Introduction: Post 6770 on 10/24/2008, by Paul(glgolfer)
Contact:-- Paul(glgolfer)
.
2. DVD LIST and Instructions (for those who want DVD from Cruise Slide Show) - Most Recent Update: Post 6775 on 10/24/2008, by Paul(glgolfer)
Contact:-- Paul(glgolfer)
.
3. PRE-CRUISE PREVIEW: Post 4591 on 8/21/2008, by Patrick(pjm327)
Contact:-- Patrick(pjm327)
.
4. Instructions to see PREVIEW: Post 4375 on 8/13/2008, by Patrick(pjm327)
Additional instructions to see preview: Post 5797 on 9/27/2008, by Patrick(pjm327)
On cruise, give photos to Patrick: Post 4385 on 8/13/2008, by Patrick(pjm327)
On cruise, how to send photos to Patrick: Post 4390 on 8/13/2008, by Patrick(pjm327)
Contact:-- Patrick(pjm327)
.
5. Info on DVD Preview to be scheduled aboard ship: Post 5809 on 9/27/2008, by Patrick(pjm327)
.
C. GRAPHICS by Dottie Cooper Katz:
0. Sample Hornblowers of the Americas Logo: Post 4469 on 8/19/2008, by Paul(glgolfer)
1. Sample Itinerary (used on some Cafe Press items): Post 4689 on 8/24/2008, by Roger(RSS from SF)
Contact:-- Paul(glgolfer)
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▄▄
V.- ACCESSORIES: ---------------- includes Logo items and merchandise --
A. LOGO STORES:
o Site for Hornblowers shirts & stuff is www.cafepress.com/hornblowers: Post 5558 on 9/21/2008, by Paul(glgolfer)
o LINK for Zazzle.com: Post 4731 on 8/25/2008, by Paul(glgolfer)
o NEW LINK for CafePress.com: Post 4673 on 8/24/2008, by Paul(glgolfer)
o Original Post: Post 4522 on 8/20/2008, by Paul(glgolfer)
Contact:-- Paul(glgolfer)
.
B. STATIONERY - Event & Memo Message Cards to Print Out: Post 5721 on 9/24/2008, by Roger(RSS from SF)
-- Additional info, Message Board - Post 6780 on 10/24/2008, by Paul(glgolfer)
Contact:-- Roger(RSS from SF)
.
C. CABIN DOOR SIGN to Print Out: Post 5347 on 9/12/2008, repost by Jane(astralj) of Paul(Deaf Dude)
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▄▄
VI.- OTHER REFERENCES: --------------
A. ROLL CALL ORIENTATION - For New Members, and also a Reminder of some of the things we're doing:
1. Orientation info: Post 4500 on 8/20/2008, by Letty(cruzr4vr)
-- Additional - Post 5847 on 9/28/2008, by Letty(cruzr4vr)
2. Orientation info: Post 4045 on 8/1/2008, by Paul(glgolfer)
-- Additional - Post 5160 on 9/4/2008, by Paul(glgolfer)
-- Update: Activities for all 3 legs. - Post 6768 on 10/24/2008, by Paul(glgolfer)
.
B. Roll Call Members' Websites: (Sites include content specific to our cruise.)
.
1. Photos & Info_ [*PLEASE NOTE* - Personal Info/Photos posted here are public.]_ - Post 6102 on 10/7/2008, by Ken(Mexico)
-- Additional info - Post 6106 on 10/7/2008, by Ken(Mexico)
Contact:-- Ken & Pene(Mexico)
.
2. Itinerary (In future may add Event content) - Post 6207 on 10/10/2008, by Joanie(fleklady)
Contact:-- Joanie(fleklady)
.
C. Astrology:
.
1. Astrological Signs - LIST - Most Recent Update: Post 6779 on 10/24/2008, by Paul(glgolfer)
Contact:-- Paul(glgolfer)
.
2. Offer to do a few mini readings - Post 4891 on 8/29/2008, by Jane(astralj)
Contact:-- Jane(astralj)
-
3. Offer to do some mini looks - Post 6783 on 10/24/2008, by Mahya(Mahya)
Contact:-- Mahya(Mahya) [Please Reply to Post]
.
D. Insurance:
1. Thread about insurance fraud: Post 5031 on 9/01/2008, by Paul(glgolfer)
2. RCI's vs InsureMyTrip.com: Post 5036 on 9/01/2008, by Karen(travelgoddess1)
3. Travelex, Travel Guard: Post 5037 on 9/01/2008, by Paul(glgolfer)
-- AIG Travel Guard Protect Assist - Post 5044 on 9/01/2008, by Paul(glgolfer)
.
E. Argentina Reciprocal Fee:
1. Original Post -- Additional Fee possible beginning January 1, 2009: Post 6598 on 10/19/2008, by Roger(RSS from SF)
2. Reply from Argentine Consulate in NY: Post 6663 on 10/21/2008, by Mariana(scubapro48), comment Roger(RSS from SF)
3. Nothing yet implemented; negotiating postponement to March: Post 6687 on 10/22/2008, by Jane(astralj)
.
F. Brazilian Visa:
.
1. Letter from RCI regarding Brazil visa: Post 6054 on 10/6/2008, by Paul(glgolfer)
-- Link: PDF of letter (on RCI letterhead) - Post 6138 on 10/8/2008, by Roger(RSS from SF)
.
2. Consular Offices:
a. Atlanta (States AL,GA,MS,NC,SC,TN): Post 5529 on 9/20/2008, by Judy(happicruzer)
b. Boston (States ME,MA,NH,RI,VT): Post 4919 on 8/29/2008, by Jane(astralj)
c. Chicago (IL,IN,IA,MI,MN,MO,NE,ND,SD,WI): Post 4904 on 8/29/2008, by Richard(richardb)
d. Houston (AR,CO,KS,LA,NM,OK,TX): Post 4345 on 8/12/2008, by Betty(abroad at sea)
e. Ottawa & Toronto: Post 4482 on 8/20/2008, by Sarvowinner
f. Vancouver: Post 4250 on 8/8/2008, by Bel(MsDolly)
.
3. Procedures for Obtaining a Tourists Visa into Brazil: Post 4905 on 8/29/2008, by Jane(astralj)
-- Clarification - Post 4907 on 8/29/2008, by Richard(richardb)
-- Clarification - Post 4909 on 8/29/2008, by Letty(cruzr4vr)
-- Clarification - Post 4919 on 8/29/2008, by Jane(astralj)
.
4. List of things to take to S.F. Consulate, for Tourist Visa: Post 6043 on 10/6/2008, by Mariana(scubapro48)
-- Clarification for L.A.: No cash, personal or company checks are accepted. - Post 6046 on 10/6/2008, by Letty(cruzr4vr)
-- Clarification: Requirements differ among Consulates. - Post 6047 on 10/6/2008, by Letty(cruzr4vr)
.
5. Address in Brazil to use on Visa form: Post 6177 on 10/9/2008, by Marjorie(Two4Cruisin)
.
6. Visa Services:
a. Needing Visa for Brazil; www.TravelDocs.com - Post 33 on 8/27/2007, by Patti(cruisenfever)
b. www.ItsEasy.com (based in New York City) - Post 6015 on 10/5/2008, by Woody(walcherw)
-- a.k.a. www.ItsEasyPassport.com - Post 6525 on 10/17/2008, by Sherrie P.(Hamburg Avon Lady)
c. www.PassportsAndVisas.com - Post 6332 on 10/14/2008, by Gail(ozland)
d. www.PassportsPlus.com (based in Houston) - Post 6337 on 10/14/2008, by WAVTAM
.
G. Yellow Fever Shot:
.
1. CDC Lists of Yellow Fever Vaccination Clinics: Post 6174 on 10/9/2008, by WichitaCruiser
.
2. For Brazil:
a. Link to Iguazu/Brazil thread: Post 6019 on 10/5/2008, by Gail(ozland)
b. Chicago Brazilian Embassy info on Yellow Fever shot: Post 6179 on 10/9/2008, by Patrick(pjm3277)
.
3. For Uruguay & Costa Rica:
a. CDC info on Yellow Fever vaccination requirement: Post 6198 on 10/10/2008, by Paul(glgolfer)
b. CDC Contacts for more information: Post 6203 on 10/10/2008, by Sherrie P.(Hamburg Avon Lady)
c. Some info from Costa Rican Embassy & Uruguay Consulate: Post 6209 on 10/10/2008, by Lou(SA Traveler)
.
4. For Costa Rica:
a. World Health Organization Yellow Fever vaccination requirement: Post 6222 on 10/10/2008, by Lou(SA Traveler)
b. Costa Rican Consulate & Tourism Office: Looks like no exceptions. - Post 6334 on 10/14/2008, by Paul(glgolfer)
-- Similar response from Costa Rican Embassy in Ottawa. - Post 6340 on 10/14/2008, by Calgary Snowbird
.
H. Weather and Wave Heights: Post 4908 on 8/29/2008, by Paul(glgolfer)
.
I. Entertainment/Officers/Crew on Mariner:
1. Captain & CD (1,2,3), Entertainment List (1): Post 5353 on 9/12/2008, by Sherrie P.(Hamburg Avon Lady)
2. Entertainment List (1,2,3): Post 5404 on 9/14/2008, by Rick(rick01)
3. CD (1,2,3): Post 5408 on 9/14/2008, by Bob & Jane(FUN33)
-- Additional Info - Capt Johnny & CD Abe - Post 5591 on 9/21/2008, by Bob & Jane(FUN33)
.
J. Related Photos and Articles:
1. South America cruise album: Post 5362 on 9/12/2008, by jbond
-- Corrected Link - Post 5364 on 9/12/2008, by jbond
2. Leg 2 postcard preview of places we'll see: Post 5402 on 9/14/2008, by Jane(astralj)
3. Boston Globe article on cruising, rounding Cape Horn: Post 5634 on 9/22/2008, by reallyitsmema
.
██████████████████████████████████████████████████ █████████████████████████████████████████████ ██


Everyone --
Please let me know if there's any corrections, additions, or updates you'd like me to make to the above list.

To request a correction to the contents of a linked post, please reply to the Poster or email the Contact person.

Roger

--- End contents of post ---
Expand Signature
Collapse Signature
.
ROGER_...+
_____________ ►►► [FYI to HORNBLOWERS: See active Thread *HERE* -- and entire Forum HERE.] ◄◄◄

Adventure of the Seas 9/30/17-10/7/17 ▬ 7 n. Southern Caribbean • San Juan r/t − ABC Islands & St Kitts[St Maarten] ___/__ Freedom of the Seas 4/15/17-4/23/17 ▬ 8 n. E.Carib • Ft Lauderdale r/t
Explorer 9/30/16-10/8/16 ▬ 8 n. Pacific Coastal • Seattle r/t − Mini- West Coast & Hornblower Reunion ___/__. Grand Princess 12/20/15-12/30/15 ▬ 10 d. Mexican Riviera • San Francisco r/t − Christmas
Jewel 9/26/15-10/3/15 ▬ 7 n. California Coastal • Los Angeles r/t − West Coast Welcome Back -and- Hornblowers of the Americas Mini-Reunion!
Mariner 1/9/2011-1/16/2011 ▬ 7 n. Mexican Riviera • Los Angeles r/t − West Coast Farewell -and- Hornblowers of the Americas Mini-Reunion! .
•Roll -1 • -2 • -3
Mariner
1/4/09-2/19/09 ▬ 46 n. Westbound Around the Horn • Hornblowers of the Americas! • (Port Canaveral-Rio de Janeiro -B2B- Rio de Janeiro-Valparaiso -B2B- Valparaiso-Los Angeles)
Liberty 12/26/13-12/30/13 ▬ 4 n. W.Carib (Ft Lauderdale r/t - Cozumel)
Serenade 4/19/08-5/3/08 ▬ 14 n. Westbound Panama Canal (San Juan - San Francisco) •List __/__ Monarch 10/10/08-10/13/08 ▬ 3 n. Baja Mexico: Last weekend in San Pedro! (Los Angeles r/t - Ensenada)
Navigator 4/14/07-4/26/07 ▬ 12 n. Eastbound Transatlantic (Miami - Southampton) __--B2B--__ Navigator 4/26/07-4/28/07 ▬ Paris (Le Havre) ___/___ Monarch 12/28/07-12/31/07 ▬ Baja Mexico
Navigator 3/15/03-3/22/03 ▬ E.Carib ___/___ Navigator 4/9/05-4/16/05 ▬ E.Carib ___/___ Queen Mary Hotel 12/29/05-12/30/05 ▬ Docked ___/___ CCL Paradise 12/30/05-1/2/06 ▬ Baja Mexico
#3
San Francisco (up high below Twin Peaks Vista Point w/Bay-Downtown-Sunrise view),CA,USA. [SF native]
1,776 Posts
Joined Feb 2003

This is a Visual Basic macro to convert posts that have been copied to WORD back to BBCODE.
This macro was used to produce the content of the two preceding posts [the text in blue in these 2 posts], which were copied from Word.

"W2BB.bas" -- Macro to run in MS Word.


INSTRUCTIONS:
  1. From the link below, download W2BB.bas from the "[RSS' ARCHIVE] Mariner of the Seas 1-4-2009 Around the Horn" folder;
    -OR-
    Copy the contents of the code box, below, to create W2BB.bas (or you can copy the contents directly to a new macro module in MS Word).
  2. Import W2BB.bas to your MS Word program (if you didn't already copy the code box contents, below, directly to a new macro module in Word).
  3. Copy post from Cruise Critic thread to Word.
  4. Run the W2BB macro (or whatever you named it) to convert Word to BBCode.
  5. Copy the generated BBCODE to a new post in Cruise Critic.

NOTE: The macro formats most Italic/Bold/Underline/Hyperlinks, but the macro does NOT format Color/Lists/Size correctly.
[In W2BB.bas, the commands to execute the Color/Lists/Size subroutines are commented out.]

LINK: https://skydrive.live.com/?cid=7923e9ee42622d06&sc=documents&uc=1&id=7923E9EE 42622D06%21294#
-----

The contents of "W2BB.bas" follows, in a code box:


--- Start contents of W2BB.bas ---


Code:
'Word2BBCode-Converter v0.1, June 2, 2006
'Matthew Kruer
'Some parts adapted from
'Word2Wiki-Converter V0.4, May 28, 2006
'http://de.wikipedia.org/wiki/Wikipedia:Helferlein/Word2MediaWikiPlus
'Original Version by InfPro: http://www.infpro.com/downloads/downloads/wordmedia.htm
'Major improvements by Gunter Schmidt, Mail me: [email protected]
'Works only with Word 2000 and above
'License: GPL: Feel free to use and modify. Keep the credits and do not sell.


Sub Word2BBCode()
 

'*** NOTE:  RSS's comments are preceded by "'*** ".
'*** SOURCE OF CODE:   http://www.phpbb.com/community/viewtopic.php?f=17&t=395554
'*** Additional Link referencing above source:  http://www.onlinehowto.net/convert-word-document-to-bbcode/1511
    
    
    Application.ScreenUpdating = False
        
    ConvertItalic
    ConvertBold
    ConvertUnderline
    
    '*** Commented out execution of sub ConvertSize because it isn't working ***
    'ConvertSize
    
    '*** Commented out execution of sub ConvertLists because it handles Lists incorrectly ***
    'ConvertLists
    
    ConvertHyperlinks
    
    '*** Commented out execution of sub ConvertColor because it has compile error ***
    'ConvertColor
   
    ActiveDocument.Content.Copy
    
    Application.ScreenUpdating = True
End Sub
Private Sub ConvertBold()
    ActiveDocument.Select
    
    With Selection.Find
    
        .ClearFormatting
        .Font.Bold = True
        .Text = ""
        
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        
        .Forward = True
        .Wrap = wdFindContinue
        
        Do While .Execute
            With Selection
                If InStr(1, .Text, vbCr) Then
                    ' Just process the chunk before any newline characters
                    ' We'll pick-up the rest with the next search
                          .Font.Bold = False
                    .Collapse
                    .MoveEndUntil vbCr
                End If
                                       
                ' Don't bother to markup newline characters (prevents a loop, as well)
                If Not .Text = vbCr Then
                    .InsertBefore ""
                    .InsertAfter ""
                End If
                
                .Font.Bold = False
            End With
        Loop
    End With
End Sub
Private Sub ConvertItalic()
    ActiveDocument.Select
    
    With Selection.Find
    
        .ClearFormatting
        .Font.Italic = True
        .Text = ""
        
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        
        .Forward = True
        .Wrap = wdFindContinue
        
        Do While .Execute
            With Selection
                If InStr(1, .Text, vbCr) Then
                    ' Just process the chunk before any newline characters
                    ' We'll pick-up the rest with the next search
                    .Font.Italic = False
                    .Collapse
                    .MoveEndUntil vbCr
                End If
                                       
                ' Don't bother to markup newline characters (prevents a loop, as well)
                If Not .Text = vbCr Then
                    .InsertBefore ""
                    .InsertAfter ""
                End If
                
                .Font.Italic = False
            End With
        Loop
    End With
End Sub
Private Sub ConvertUnderline()
    ActiveDocument.Select
    
    With Selection.Find
    
        .ClearFormatting
        .Font.Underline = True
        .Text = ""
        
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        
        .Forward = True
        .Wrap = wdFindContinue
        
        Do While .Execute
            With Selection
                If InStr(1, .Text, vbCr) Then
                    ' Just process the chunk before any newline characters
                    ' We'll pick-up the rest with the next search
                    .Font.Underline = False
                    .Collapse
                    .MoveEndUntil vbCr
                End If
                                       
                ' Don't bother to markup newline characters (prevents a loop, as well)
                If Not .Text = vbCr Then
                    .InsertBefore ""
                    .InsertAfter ""
                End If
                
                .Font.Underline = False
            End With
        Loop
    End With
End Sub


Private Sub ConvertSize()
   
Dim fSize&
   
    If convertFontSize = False Then Exit Sub
   
    If DefaultFontSize = 12 Then DefaultFontSize = 12
    fSize = 12
       
    For fSize = 1 To 50
    If fSize > DefaultFontSize + 1 Or fSize < DefaultFontSize - 1 Then 'at least two points difference
        ActiveDocument.Select
        With Selection.Find
   
            .ClearFormatting
            .Font.Size = fSize
            .Text = ""
            .Format = True
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Forward = True
            .Wrap = wdFindContinue
   
            Do While .Execute
                With Selection
   
                    If Len(.Text) > 1 And InStr(1, .Text, vbCr) Then
                        ' Just process the chunk before any newline characters
                        ' We'll pick-up the rest with the next search
                        .Collapse
                        .MoveEndUntil vbCr
                    End If
   
                    ' Don't bother to markup newline characters (prevents a loop, as well)
                    If Not .Text = vbCr Then
                        If fSize = DefaultFontSize Then
                            .InsertBefore "[size=" & fSize & "]"
                            .InsertAfter "[/size]"
                         End If
                    End If
   
                    If useDefaultStyle Then .Style = ActiveDocument.Styles(DefaultStyleName) 'must be localized to your language, see CONST on top
                    .Font.Size = DefaultFontSize
                    '.Collapse wdCollapseEnd
                    '.MoveLeft , 4, True
                    'ClearFormatting
   
                End With
            Loop
        End With
    End If
    Next

End Sub

Private Sub ConvertLists()
   Dim para As Paragraph
    For Each para In ActiveDocument.ListParagraphs
        With para.Range
            .InsertBefore "[list]"
            For i = 1 To .ListFormat.ListLevelNumber
                If .ListFormat.ListType = wdListBullet Then
                    .InsertBefore "[*]"
                Else
                    .InsertBefore "[#]"
                End If
            Next i
            .InsertBefore "[list]"
            .ListFormat.RemoveNumbers
            
        End With
    Next para
End Sub

Private Sub ConvertHyperlinks()
    'converts Hyperlinks
    '24-MAY-2006: only convert http..., mark others with error marker

Dim hyperCount&
    Dim i&
    Dim addr$ ', title$

    hyperCount = ActiveDocument.Hyperlinks.Count

    For i = 1 To hyperCount

        With ActiveDocument.Hyperlinks(1) 'must be 1, since the delete changes count and position

            addr = .Address
            If Trim$(addr) = "" Then addr = "no hyperlink found"
            'title = .Range.Text
           
            'http, ftp
            If LCase(Left$(addr, 4)) = "http" Or LCase(Left$(addr, 3)) = "ftp" Then
                .Delete 'hyperlink
                .Range.InsertBefore ""
                .Range.InsertAfter ""
               
                GoTo ConvertHyperlinks_Next
            End If
           
            'mailto:
            If LCase(Left$(addr, 7)) = "mailto:" Then
                .Delete 'hyperlink
                .Range.InsertBefore "" & addr & " "<br />
              ....InsertAfter ""
               
                GoTo ConvertHyperlinks_Next
            End If
           
            'file guess
            If Len(addr) > 4 Then 'the reason for not nice goto
                If Mid$(addr, Len(addr) - 3, 1) = "." Then
                    .Delete
                    .Range.InsertBefore "[file://" & Replace(addr, " ", "_") & " "
                    .Range.InsertAfter "]"
                   
                    GoTo ConvertHyperlinks_Next
                End If
            End If
           
            'unidentified
            .Delete
            .Range.InsertBefore UnableToConvertMarker & "[" & addr & " "
            .Range.InsertAfter "]"

ConvertHyperlinks_Next:
        End With

    Next i

End Sub

Sub ConvertColor()
    'converts the colors of the text to HTML-Colors
    'maybe there is a faster method?
    
    Dim CurColor& 'Current Color, indicates change
    Dim OpenColor& 'Color the font was opened with
    Dim pgColor&
    Dim cNo& 'Number of characters
    Dim txt$
    Dim FontOpen As Boolean
    Dim pg As Paragraph
    
    'First check, if the paragraphs have different colors
    'seems Word gives 9999999 if more than one color!
    
    For Each pg In ActiveDocument.Paragraphs
        'blanks at the beginning
        If pgColor <> pg.Range.Font.Color Then
            pgColor = pg.Range.Font.Color
            If pgColor = "9999999" Then 'different colors in paragraph
                'Check each letter in paragraph
                'I found no other possibility other then to check each letter
                'Dead slow
                cNo = 0
                With pg.Range
                Do While cNo < .Characters.Count
                    cNo = cNo + 1
                    'Debug.Print cNo, .Characters(cNo)
                    If cNo Mod 20 = 0 Then DoEvents
                    If CurColor <> .Characters(cNo).Font.Color Then
                        If FontOpen = False Then
                            'open font
                            CurColor = .Characters(cNo).Font.Color
                            If RGB2HTML(CurColor) <> "#000000" Then
                                OpenColor = .Characters(cNo).Font.Color
                                txt = "[font color=""" & RGB2HTML(OpenColor) & """]"
                                .Characters(cNo).InsertBefore txt
                                FontOpen = True
                                cNo = cNo + Len(txt) - 1
                            End If
                        Else
                            'close font
                            CurColor = 0
                            OpenColor = 0
                            txt = "[/font]"
                            .Characters(cNo).InsertBefore txt
                            FontOpen = False
                            cNo = cNo + Len(txt) - 1
                        End If
                    End If
                Loop
                End With
                
            ElseIf FontOpen = False Then
                    'open font
                    pgColor = pg.Range.Font.Color
                    If RGB2HTML(pgColor) <> "#000000" Then
                        OpenColor = pg.Range.Font.Color
                        txt = "[font color=""" & RGB2HTML(OpenColor) & """]"
                        pg.Range.InsertBefore txt
                        FontOpen = True
                        cNo = cNo + Len(txt) - 1
                    End If
                Else
                    'close font
                    If pgColor <> OpenColor Then
                        CurColor = 0
                        OpenColor = 0
                        txt = "[/font]"
                        pg.Range.InsertBefore txt
                        FontOpen = False
                        cNo = cNo + Len(txt) - 1
                    End If
                'End If
            End If
            
        End If
    Next
    
End Sub
--- End contents of W2BB.bas ---
Expand Signature
Collapse Signature
.
ROGER_...+
_____________ ►►► [FYI to HORNBLOWERS: See active Thread *HERE* -- and entire Forum HERE.] ◄◄◄

Adventure of the Seas 9/30/17-10/7/17 ▬ 7 n. Southern Caribbean • San Juan r/t − ABC Islands & St Kitts[St Maarten] ___/__ Freedom of the Seas 4/15/17-4/23/17 ▬ 8 n. E.Carib • Ft Lauderdale r/t
Explorer 9/30/16-10/8/16 ▬ 8 n. Pacific Coastal • Seattle r/t − Mini- West Coast & Hornblower Reunion ___/__. Grand Princess 12/20/15-12/30/15 ▬ 10 d. Mexican Riviera • San Francisco r/t − Christmas
Jewel 9/26/15-10/3/15 ▬ 7 n. California Coastal • Los Angeles r/t − West Coast Welcome Back -and- Hornblowers of the Americas Mini-Reunion!
Mariner 1/9/2011-1/16/2011 ▬ 7 n. Mexican Riviera • Los Angeles r/t − West Coast Farewell -and- Hornblowers of the Americas Mini-Reunion! .
•Roll -1 • -2 • -3
Mariner
1/4/09-2/19/09 ▬ 46 n. Westbound Around the Horn • Hornblowers of the Americas! • (Port Canaveral-Rio de Janeiro -B2B- Rio de Janeiro-Valparaiso -B2B- Valparaiso-Los Angeles)
Liberty 12/26/13-12/30/13 ▬ 4 n. W.Carib (Ft Lauderdale r/t - Cozumel)
Serenade 4/19/08-5/3/08 ▬ 14 n. Westbound Panama Canal (San Juan - San Francisco) •List __/__ Monarch 10/10/08-10/13/08 ▬ 3 n. Baja Mexico: Last weekend in San Pedro! (Los Angeles r/t - Ensenada)
Navigator 4/14/07-4/26/07 ▬ 12 n. Eastbound Transatlantic (Miami - Southampton) __--B2B--__ Navigator 4/26/07-4/28/07 ▬ Paris (Le Havre) ___/___ Monarch 12/28/07-12/31/07 ▬ Baja Mexico
Navigator 3/15/03-3/22/03 ▬ E.Carib ___/___ Navigator 4/9/05-4/16/05 ▬ E.Carib ___/___ Queen Mary Hotel 12/29/05-12/30/05 ▬ Docked ___/___ CCL Paradise 12/30/05-1/2/06 ▬ Baja Mexico
#4
Columbia, SC
113 Posts
Joined Apr 2008
test
Expand Signature
Collapse Signature
Bill and Twila, Columbia, SC
Planned
:
Oct 18, 28 & Nov 12, 2017 Celebrity Eclipse.
Cruised:
Apr 3, 13 & 20 & May 7, 2017 Celebrity Solstice, Nov 9 & 24, 2016 Celebrity Infinity, Feb 22, Mar 4 & 14, 2016 Celebrity Equinox, Oct 1 & 13, 2014 Celebrity Infinity, Jan 25, Feb 8 & 22, 2014 Celebrity Eclipse, Jan 26 (partial) & Feb 9 (cancelled), 2013 Celebrity Eclipse, Nov 7 & 22, 2012 Celebrity Infinity, Jan 14 & 28, 2012 Celebrity Constellation, Jan 29 & Feb 12, 2011 Celebrity Constellation, Oct 11 & 22 & Nov 1, 2010, Celebrity Millennium, Mar 19 & 29, 2010 Celebrity Mercury, Nov 1 & 15 & 29, 2008 Celebrity Summit, Mar 10, 2008 Celebrity Constellation, May 6 & 13, 2007 Princess Caribbean, Nov 8 2005 Princess Sun, Apr 30 & May 14, 2006 Celebrity Millennium, Nov 7, 2004 Celebrity Zenith, Oct 20, 2003 Celebrity Summit, Mar 25, 2002 Princess Crown, Sept 16, 2001 RCI Enchantment of the Seas, Apr 2, 2001 RCI Vision of the Seas, Nov 2, 2000 Holland America Volendam, May 15, 1999 RCI Grandeur of the Seas
#5
Columbia, SC
113 Posts
Joined Apr 2008
test 2
Expand Signature
Collapse Signature
Bill and Twila, Columbia, SC
Planned
:
Oct 18, 28 & Nov 12, 2017 Celebrity Eclipse.
Cruised:
Apr 3, 13 & 20 & May 7, 2017 Celebrity Solstice, Nov 9 & 24, 2016 Celebrity Infinity, Feb 22, Mar 4 & 14, 2016 Celebrity Equinox, Oct 1 & 13, 2014 Celebrity Infinity, Jan 25, Feb 8 & 22, 2014 Celebrity Eclipse, Jan 26 (partial) & Feb 9 (cancelled), 2013 Celebrity Eclipse, Nov 7 & 22, 2012 Celebrity Infinity, Jan 14 & 28, 2012 Celebrity Constellation, Jan 29 & Feb 12, 2011 Celebrity Constellation, Oct 11 & 22 & Nov 1, 2010, Celebrity Millennium, Mar 19 & 29, 2010 Celebrity Mercury, Nov 1 & 15 & 29, 2008 Celebrity Summit, Mar 10, 2008 Celebrity Constellation, May 6 & 13, 2007 Princess Caribbean, Nov 8 2005 Princess Sun, Apr 30 & May 14, 2006 Celebrity Millennium, Nov 7, 2004 Celebrity Zenith, Oct 20, 2003 Celebrity Summit, Mar 25, 2002 Princess Crown, Sept 16, 2001 RCI Enchantment of the Seas, Apr 2, 2001 RCI Vision of the Seas, Nov 2, 2000 Holland America Volendam, May 15, 1999 RCI Grandeur of the Seas
#7
The low desert, AZ
3,661 Posts
Joined Mar 2010
test
Attached Images
File Type: jpg Port Everglades.jpg (18.3 KB, 3 views)
Expand Signature
Collapse Signature
"Borrow money from pessimists -- they don't expect it back."
Steven Wright

"If everything seems under control, you're not going fast enough."
Mario Andretti
#8
Sudbury, ON. Canada
266 Posts
Joined Dec 2011
Attached Files
File Type: pdf Greater Sudbury, ON - 7 Day Forecast - Environment Canada.pdf (91.8 KB, 5 views)
Expand Signature
Collapse Signature

Future
Carnival Magic - Carib - Dec 2016 - Family Cruise

Past
Costa Mediterranea - TA - Nov 2006
Brilliance of the Seas - Repo - Nov 2012
Carnival Victory - S. Carib – Nov 2012
Serenade of the Seas - Bahamas – Mar 2014
Carnival Pride – Repo - Mar 2015[
#9
Kansas City, Kansas
138 Posts
Joined Jan 2010
test

My Cruise Countdown | I'm sailing to the Caribbean on 04/08/2016 aboard the Carnival Sunshine! Visit Carnival.com to see all Caribbean cruises.
Expand Signature
Collapse Signature

Carnival Liberty 9/25/2010
Carnival Freedom 4/20/2013
Carnival Sunshine 4/8/2016
#10
Bowie, MD
12,079 Posts
Joined Feb 2002
440 days to go!

Have not figured out how to post pictures on the redesigned boards yet. Working on it. Stay tuned.


Expand Signature
Collapse Signature





+

Crown & Anchor Diamond Plus Member