hulpmiddelen voor het onderhoud aan Lijst van Radio 2-Top 2000'sBewerken
Start een nieuw document in Word
Klik op 'Beeld' en dan op 'Macro's'
Vul even "xxx" in onder 'Macronaam:'
Klik op 'Maken' (of Create)
Je ziet nu staan:
--------------------
Sub xxx()
'
' xxx Macro
'
'
End Sub
--------------------
Wis deze de sectie tussen de streepjes en plak de onderstaande tekst tussen de streepjes (exclusief de streepjes) op de plaats van de cursor.
--------------------
Sub T2000BroncodeNaarImport()
'
' T2000BroncodeNaarImport Macro
'
'
Dim UserName As String
Selection.PasteAndFormat (wdFormatPlainText)
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
.Text = "{|"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.HomeKey Unit:=wdLine
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Find.ClearFormatting
With Selection.Find
.Text = "|}"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p|-^p|"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "||"
.Replacement.Text = "^t"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ChangeFileOpenDirectory "C:\Users\" & Environ("UserName") & "\Desktop\"
ActiveDocument.SaveAs2 FileName:="import.txt", FileFormat:=wdFormatText, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=65001, InsertLineBreaks:=False, AllowSubstitutions:= _
False, LineEnding:=wdCRLF, CompatibilityMode:=0
ActiveWindow.Close
Application.Quit
End Sub
----------------------------------------
Sluit het venster en sluit daarna het programma 'Microsoft Visual Basic for Applications' af.
Je bent nu teruggekeerd naar Word.
Klik opnieuw op 'Macro's'
Als het goed is zie je nu dat er een macro bijgekomen is met de naam: T2000BroncodeNaarImport
Open nu:
https://nl.wikipedia.org/w/index.php?title=Lijst_van_Radio_2-Top_2000%27s&action=edit
plaats de cursor ergens binnen de broncode tekst en selecteer alles (Ctrl A)
Plaats de hele inhoud op het clipboard (Ctrl C)
Maak Word weer actief en voer de nieuwe macro uit.
Kan even duren, maar uiteindelijk sluit Word zichzelf af en staat er een tekstbestand op de desktop met de naam: 'import'.
Open nu Excel en start een leeg werkblad (automatisch: Map1 genaamd)
doe hetzelfde als bij de Word macro maar plak nu de inhoud van de onderstaande tekst:
----------------------------------------
Sub ImporteerImport()
'
' ImporteerImport Macro
'
'
Dim UserName As String
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\" & Environ("UserName") & "\Desktop\import.txt", Destination:=Range("$A$1"))
.Name = "import"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 65001
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Cells.Select
With Selection.Font
.Name = "Calibri"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
Rows("1:1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.149998474074526
.PatternTintAndShade = 0
End With
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.RowHeight = 27
Range("A1").Select
ActiveCell.SpecialCells(xlLastCell).Select
ActiveWindow.ScrollColumn = 1
Range("A1:Z4504").Select
Range("Z4504").Activate
Selection.AutoFilter
ActiveWindow.ScrollColumn = 1
Range("A1").Select
End Sub
----------------------------------------
voer in Excel de 'ImporteerImport' macro uit.
Deze hele lijst van Top 2000's zit nu in Excel
Tip: laat alle Wikicode (zoals: align="left"|, [[, ]], etc.) gewoon staan. Bij het terug converteren is deze weer nodig.
Maak de wenselijke aanpassingen in Excel.
Met het de Word macro "GekopieerdeExcelSelectieNaarT2000Broncode" ga je weer van Excel naar T2000 broncode.
Werkwijze als volgt:
Maak eerst een nieuwe Word macro op dezelfde manier met de onderstaande tekst:
----------------------------------------
Sub GekopieerdeExcelSelectieNaarT2000Broncode()
'
' GekopieerdeExcelSelectieNaarT2000Broncode Macro
'
'
With Selection.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(2.5)
.BottomMargin = CentimetersToPoints(2.5)
.LeftMargin = CentimetersToPoints(2.5)
.RightMargin = CentimetersToPoints(2.5)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.25)
.FooterDistance = CentimetersToPoints(1.25)
.PageWidth = CentimetersToPoints(29.7)
.PageHeight = CentimetersToPoints(42)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With
If Selection.PageSetup.Orientation = wdOrientPortrait Then
Selection.PageSetup.Orientation = wdOrientLandscape
Else
Selection.PageSetup.Orientation = wdOrientPortrait
End If
Selection.Style = ActiveDocument.Styles("Geen afstand")
Selection.Font.Name = "Consolas"
Selection.Font.Size = 8
Selection.PasteAndFormat (wdFormatPlainText)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^t"
.Replacement.Text = "||"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = "^p|-^p|"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.EndKey Unit:=wdStory
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeText Text:="}"
Selection.HomeKey Unit:=wdStory
Selection.TypeText Text:="{| class=""wikitable sortable"" style=""text-align: center; font-size: 75%;"""
Selection.TypeParagraph
Selection.TypeText Text:="!"
Selection.WholeStory
Selection.Copy
End Sub
----------------------------------------
Selecteer in Excel het gebied dat naar Wikipedia moet en druk Ctrl C.
Terwijl de sectie gekopieerd staat (kringeltjes rond de selectie) run je GekopieerdeExcelSelectieNaarT2000Broncode macro in Word.
het eindresultaat wordt automatisch op het clipboard gezet en het enige dat hoeft te gebeuren is plakken op de juiste plaats in de broncode pagina van de Lijst van Top 2000's pagina.
Succes.
Enquête bewerkers Nederlandstalige Wikipedia 2022Bewerken
Wikimedia Nederland organiseert voor de vierde keer een enquête onder de bewerkers van de Nederlandstalige Wikipedia. Misschien heb je de banner al voorbij zien komen. Er zijn in 2013, 2015 en 2018 soortgelijke enquêtes gehouden. Doel van de enquête is om meningen van de bewerkers te peilen (bijvoorbeeld over de werksfeer) en om inzicht te krijgen in de samenstelling van de gemeenschap.
Via deze weg benaderen we 300 willekeurige bewerkers persoonlijk, om te vragen mee te doen. We zijn erg geïnteresseerd in je mening. Meedoen kan tot woensdag 26 januari. Hier vind je de link naar de enquête.
Dank bij voorbaat, en hartelijke groet, Sandra Fauconnier - Wikimedia Nederland 20 jan 2022 15:28 (CET)