Create flashcards for your foreign language learning, with ChatGPT

The VBA created is this one:

# Define the German words and their English translations
german_words = [
“Verkehrsmittel”, “Richtungsangaben”, “Unterwegs mit Zug/Flugzeug”,
“(U/S-)Bahn die, -en”, “geradeaus”, “Abfahrt die”,
“Bus der, -se”, “links”, “Abflug der, -e”,
“Flugzeug das, -e”, “rechts”, “Ankunft die”,
“Lkw der, -s”, “(da) drüben”, “Anschluss der, -e”,
“Straßenbahn die, -en”, “Bahnsteig der,-e”, “Ausgang der, -ie”,
“Taxi das, -s”, “Bushaltestelle die, -n”, “Eingang der, -e”,
“Zug der, -ie”, “Durchsage die, -n”, “Fahrplan der, -e”,
“(da) vorne”, “Flughafen der, -“, “Gleis das, -e”,
“(da) hinten”, “Reisebüro das, -s”, “Schalter der, -“,
“(da) oben”, “Ticket das, -s”, “Verspätung die”,
“(da) unten”, “ab. fahren, du fährst ab, er fährt ab, (ist abgefahren)”, “weit”,
“fliegen, ist geflogen”, “wie weit”, “zu weit”,
“ab-fliegen, (ist abgeflogen)”, “zurück”, “hin und zurück”,
“an kommen, (ist angekommen)”, “aus-steigen (ist ausgestiegen)”, “ein•steigen, (ist eingestiegen)”,
“um•steigen, (ist umgestiegen)”
]

english_translations = [
“Means of transport”, “Directions”, “Traveling by train/plane”,
“Train, -s”, “straight ahead”, “Departure”,
“Bus, -ses”, “left”, “Takeoff, -s”,
“Airplane, -s”, “right”, “Arrival”,
“Truck, -s”, “over there”, “Connection, -s”,
“Tram, -s”, “Platform, -s”, “Exit, -s”,
“Taxi, -s”, “Bus stop, -s”, “Entrance, -s”,
“Train, -s”, “Announcement, -s”, “Timetable, -s”,
“in the front”, “Airport, -s”, “Track, -s”,
“in the back”, “Travel agency, -s”, “Counter, -s”,
“up there”, “Ticket, -s”, “Delay”,
“down there”, “to depart, you depart, he departs, (has departed)”, “far”,
“to fly, has flown”, “how far”, “too far”,
“to take off, (has taken off)”, “back”, “round trip”,
“to arrive, (has arrived)”, “to disembark (has disembarked)”, “to board, (has boarded)”,
“to transfer, (has transferred)”
]

# Function to create a table with specified styling for flashcards
def create_styled_table(words, slide, num_rows, num_columns):
rows = num_rows
cols = num_columns
left = top = Inches(0.5)
width = Inches(10.69) # A4 width – 1 inch for margins
height = Inches(7.27) # A4 height – 1 inch for margins

table = slide.shapes.add_table(rows, cols, left, top, width, height).table

# Set table style
table.first_row = False
table.horz_banding = False
table.vert_banding = False

for r_idx in range(rows):
for c_idx in range(cols):
idx = r_idx * cols + c_idx
if idx < len(words):
cell = table.cell(r_idx, c_idx)
cell.text = words[idx].upper()
cell.fill.solid()
cell.fill.fore_color.rgb = RGBColor(255, 255, 255) # White background
cell.margin_left = Inches(0.1)
cell.margin_right = Inches(0.1)
cell.margin_top = Inches(0.1)
cell.margin_bottom = Inches(0.1)
text_frame = cell.text_frame
text_frame.word_wrap = True
p = text_frame.paragraphs[0]
p.alignment = PP_ALIGN.CENTER
for run in p.runs:
run.font.size = Pt(18)
run.font.bold = True
run.font.color.rgb = RGBColor(0, 0, 0) # Black color for visibility

# Re-initialize Presentation
prs = Presentation()

# Set slide width and height for A4 paper size
prs.slide_width = Inches(11.69)
prs.slide_height = Inches(8.27)

# Create slides for German words and their English translations
for page_num in range(num_pages):
# German words slide
slide_german = prs.slides.add_slide(prs.slide_layouts[5])
start_idx = page_num * num_rows * num_columns
end_idx = start_idx + num_rows * num_columns
page_words_german = german_words[start_idx:end_idx]
create_styled_table(page_words_german, slide_german, num_rows, num_columns)

# English translations slide
slide_english = prs.slides.add_slide(prs.slide_layouts[5])
page_words_english = english_translations[start_idx:end_idx]
create_styled_table(page_words_english, slide_english, num_rows, num_columns)

# Save the new version of the presentation
new_flashcards_pptx = ‘/mnt/data/german_english_flashcards_styled.pptx’
prs.save(new_flashcards_pptx)

new_flashcards_pptx